• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This is used to search a database for a specific word

This is used to search a database for a specific word

This is used to search a database for a specific word

API Declarations


Dim rsTitles As Recordset



Rate This is used to search a database for a specific word

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

List1.Clear
SQLQuery = "Title LIKE '*" & Text1 & "*'"
rsTitles.FindFirst SQLQuery
If rsTitles.NoMatch = True Then Exit Sub
List1.AddItem rsTitles.Fields("Title")
Do Until rsTitles.NoMatch = True
rsTitles.FindNext SQLQuery
List1.AddItem rsTitles.Fields("Title")
Loop
End Sub

Private Sub Form_Load()
Set dbBiblio = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb")
SQLQuery = "SELECT * FROM Titles WHERE Title LIKE '*data*'"
Set rsTitles = dbBiblio.OpenRecordset(SQLQuery)
Do Until rsTitles.EOF = True
List1.AddItem rsTitles.Fields("Title") & "(" & rsTitles.Fields("[Year Published]") & ")"
rsTitles.MoveNext
Loop