Jag håller på att göra en adressbok. Ingen särskilt komplicerad. Hej Förstår inte riktigt vad du menar databasmotor. Så här ser koden för sökningen ut: Hej Tack för tipsen!Adressbok
Min fråga är:
Jag har en sökfunktion. Hur gör jag för att inte allt måste vara exakt lika när man söker efter ordet.
T.ex.:
Om man skrivit in en adress som "Backstigen 18" så vill jag att programmet ska hitta det även om man bara skriver "Backstigen" eller "Backstigen18".
Tacksam för svarSv: Adressbok
Vilken typ av DataBasmotor använder du ?
Grundsvaret är att du skall använda LIKE 'Back*'
SvenSv: Adressbok
Private Sub mnusöknamn_Click()
Dim sSökNamn As String
Dim iRäknare As Integer
sSökNamn = InputBox("Ange namn att söka efter", "Sökning")
If Not (sSökNamn = "") Then
sSökNamn = UCase(sSökNamn)
For iRäknare = 1 To iAntalPoster
Get #iFilNr, iRäknare, iAktuellPerson
If UCase(Trim(iAktuellPerson.Namn)) = sSökNamn Then
iPost = iRäknare
VisaPost
Exit Sub
End If
Next iRäknare
MsgBox ("Det fins ingen med det namnet i Adressboken")
End If
End SubSv: Adressbok
Testa den här ändringen
If UCase(Trim$(iAktuellPerson.Namn)) LIKE sSökNamn Then
Förresten varför håller du på och krånglar med UCase ??
Den här raden kan du ändra
If Not (sSökNamn = "") Then
Till
If sSökNamn <> "" Then
Eftersom du kör enl Random metoden kan du kolla mitt
uppskick Programarkivet:Enkel AdressBok Enkel DataBas
mvh
SvenSv: Adressbok
Anledningen till att jag kör med UCase är att de gör det i den bok jag läser om Visual Basic 6..