-
August 27th, 2013, 02:46 AM
#31
Re: ListBox
Originally Posted by Probie887
I don't understand the debug program.
You must!
Otherwise you can forget about programming and just look for some other job.
Victor Nijegorodov
-
August 27th, 2013, 07:40 AM
#32
Re: ListBox
Good morning jggtz....I got it now the rest of it is okay...I will mark this resolved and thank you so much. Thanks
Code:
strSQL = "SELECT * FROM BibleTable WHERE [TextData] LIKE '" & txtName & "%'"
MousePointer = vbHourglass
Database.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\KJV.mdb;"
'MsgBox strSQL
rs.Open strSQL, Database, adOpenStatic, adLockPessimistic
If rs.BOF = False And rs.EOF = False Then
text2.Text = rs.Fields("BookTitle")
text3.Text = rs.Fields("Chapter")
text4.Text = rs.Fields("Verse")
text5.Text = rs.Fields("TextData")
Else
MsgBox "not found"
End If
Last edited by Probie887; August 27th, 2013 at 07:46 AM.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|