Dim level As Integer = e.Node.Level
Dim dbFile As String
dbFile = strBibleDataPath & strBibleFilename
Dim cnnBL As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" _
& dbFile & ";Mode=Read;Jet OLEDB
atabase Password=" & strBiblePw(strBibleID))
If level = 1 Then 'BookChapter Populate
ElseIf level = 2 Then 'BookVerse Populate
'Reset Labels
LabelChapterVerse.Text = "" 'Chapter & Verse
LabelNarration.Text = "" 'Narration
cnnBL.Open()
''When Select Chapter Only POpulate All Verses in Chapter
Dim cmdTest As String
cmdTest = "SELECT Chapter, Verse, Narration FROM BibleVerses Where BookNum = " _
& LabelBookNum.Text & " AND Chapter = " & LabelBookChapter.Text & " ORDER BY Verse"
Dim BLCommandTst As New OleDb.OleDbCommand(cmdTest, cnnBL)
Dim BLReaderTst As OleDb.OleDbDataReader
BLReaderTst = BLCommandTst.ExecuteReader()
If BLReaderTst.Read() Then
Do While BLReaderTst.Read()
Dim verse, narration As String
verse = BLReaderTst("Verse")
narration = BLReaderTst("Narration")
LabelNarration.Text &= verse & " "
LabelNarration.Text &= narration & vbCrLf & vbCrLf
Loop
Else
LabelNarration.Text = "There are no data."
End If
LabelChapterVerse.Text = "Chapter " & LabelBookChapter.Text
''When Select Chapter and Verse
Dim BLReader As OleDb.OleDbDataReader
Dim cmdBibleChapter As String = "SELECT Verse, Chapter, BookNum FROM BibleVerses Where BookNum = " _
& LabelBookNum.Text & " AND Chapter = " & LabelBookChapter.Text & " ORDER BY Verse"
Dim BLCommand As New OleDb.OleDbCommand(cmdBibleChapter, cnnBL)
BLReader = BLCommand.ExecuteReader()
While BLReader.Read()
Dim BookName As New TreeNode()
BookName.Text = "Verse " & BLReader("Verse")
BookName.Tag = BLReader("Chapter")
e.Node.Nodes.Add(BookName)
End While
BLCommand.Dispose()
cnnBL.Close()
e.Node.Expand()
End If