help with datagrid code

what is the DB you are connecting to? if you only want a single verse, wouldn’t it be better to query the DB for just the verse and not the whole chapter?

The problem was in your SQL Querys. I changed several things. First, rather then using booknum, I set it up to use EnglishName to fill ComboBox1. Then I changed it to display verses based on selected EnglishName and ChapterNum. Here is the changed code with comments on my changes:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' This is not needed

'CON.Open()

' Added EnglishName to the Query

Dim sql As String = "SELECT ArabicName,EnglishName FROM BibleBookNames"

Dim Data1 As New OleDbDataAdapter(sql, CON)

Dim DS As New DataSet

DS.Clear()

Data1.Fill(DS, "BibleBookNames")

ComboBox1.DataSource = DS

' Changed the ValueMember to display EnglishName instead of BookNum

ComboBox1.ValueMember = ("BibleBookNames.EnglishName")

' This is not needed

'CON.Close()

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

' Use Try-Catch to avoid problems with null returns

Try

' Redefined the SQL Query to pull chapers per book name

Dim sql1 As String = "SELECT DISTINCT Bible.ChapterNum " & _

"FROM Bible INNER JOIN BibleBookNames ON Bible.BookNum = BibleBookNames.BookNum " & _

"WHERE (((BibleBookNames.EnglishName)=""" & ComboBox1.Text & """));"



Dim data2 As New OleDbDataAdapter(sql1, CON)

Dim ds1 As New DataSet

ds1.Clear()

data2.Fill(ds1, "Bible")

Dim s As String = ds1.Tables.Item(0).TableName

ComboBox2.DataSource = ds1

ComboBox2.ValueMember = "Bible.ChapterNum"

Catch

End Try

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

' Use Try-Catch to avoid problems with null returns

Try

' Redefined Query to pull Verses based on book name & chapter selected

Dim sql1 As String = "SELECT Bible.Verse2 " & _

"FROM Bible INNER JOIN BibleBookNames ON Bible.BookNum = BibleBookNames.BookNum " & _

"WHERE (((BibleBookNames.EnglishName)=""" & ComboBox1.Text & """) AND ((Bible.ChapterNum)=" & ComboBox2.Text & "));"



Dim data2 As New OleDbDataAdapter(sql1, CON)

Dim ds1 As New DataSet

ds1.Clear()

data2.Fill(ds1, "Bible")

CON.Close()

DataGridView1.DataSource = ds1

DataGridView1.DataMember = "Bible"

Catch

End Try

End Sub

sorry that was for my testing and learning. forgot to remove it… it is not used or needed.

i think this is what you want to do:

add button1 to the form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex + 1).Cells(DataGridView1.CurrentCell.ColumnIndex)

TextBox1.Text = DataGridView1.CurrentCell.Value

End Sub

You will still have to code how to send it to the room.

Also note change in this event (last line before catch):

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

' Use Try-Catch to avoid problems with null returns

Try

' Redefined Query to pull Verses based on book name & chapter selected

Dim sql1 As String = "SELECT Bible.Verse2 " & _

"FROM Bible INNER JOIN BibleBookNames ON Bible.BookNum = BibleBookNames.BookNum " & _

"WHERE (((BibleBookNames.EnglishName)=""" & ComboBox1.Text & """) AND ((Bible.ChapterNum)=" & ComboBox2.Text & "));"



Dim data2 As New OleDbDataAdapter(sql1, CON)

Dim ds1 As New DataSet

ds1.Clear()

data2.Fill(ds1, "Bible")

CON.Close()

DataGridView1.DataSource = ds1

DataGridView1.DataMember = "Bible"

'Add this to update the textbox content when the datagrid is updated

TextBox1.Text = DataGridView1.CurrentCell.Value

Catch

End Try

End Sub