03. februar 2002 - 14:52Der er
8 kommentarer og 1 løsning
Søg med VB
Hej
Jeg har sådan en knap her: Private Sub cmdsog_Click()
Dim soegetitel As String
soegetitel = InputBox("Søg efter titel")
Data1.Recordset.MoveFirst Do While Data1.Recordset.EOF = False If Data1.Recordset("titel") = soegetitel Then Exit Sub End If Data1.Recordset.MoveNext Loop MsgBox ("Titel findes ikke i databasen") End Sub
Den søger og finder også titel fint hvis man skriver det titlen korekt... men hvis jeg f.eks. søger på titlen Jalla finder den ikke Jalla Jalla... hvordan får jeg den til sådan det søger på ord og ikke hele feltet...?
Du kan også bruge : Dim Kriterium As String Kriterium = "titel LIKE '*" & soegetitel & "*'" Data1.Recordset.FindFirst Kriterium If Data1.Recordset.NoMatch Then MsgBox "Findes ikke" Else MsgBox "Findes i database" End If
hyde
Synes godt om
Slettet bruger
03. februar 2002 - 15:00#5
If InStr(1, Data1.Recordset("titel"), soegetitel, vbTextCompare) Then
et andet problem.... Hvis titlen er Jalla Jalla i databasen... hvis jeg så søger på jalla jalla så finder den ikke... Hvordan får man den til ikkre at tage hensyn til store og små bogstaver....?
Kriterium = "titel LIKE '*" & soegetitel & "*'" Data1.Recordset.FindFirst Kriterium If Data1.Recordset.NoMatch Then MsgBox "Findes ikke" Else MsgBox "Findes i database" End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
