Ho un problema con questo codice di ricerca
codice:
List1.Clear
adoPrimaryRS.MoveFirst
On Error GoTo LocalErr
Dim cerca As String
cerca = InputBox("CERCA UN TERMINE DEL TUO SOGNO ", "termine")
If Len(Trim(cerca)) > 0 Then
If adoPrimaryRS.BOF = False And adoPrimaryRS.EOF = False Then
mvBookMark = adoPrimaryRS.Bookmark
End If
cerca = "termine='" & UCase(Trim(cerca)) & "'"
adoPrimaryRS.Find cerca
If adoPrimaryRS.EOF Then
If mvBookMark > 0 Then adoPrimaryRS.Bookmark = mvBookMark
MsgBox "Ricerca Fallita ", vbInformation + vbOKOnly, "Find"
Else
List1.AddItem " " & txtFields(1) & " " & txtFields(2)
End If
End If
Exit Sub
LocalErr:
MsgBox Err.Description
praticamente cerca in un campo dei termini
i problemi che ho sono due
1) devo scrivere un termine esatto
2) si ferma al primo termine
esempio :
______________
campo
______________
zuppa di pesce
zuppa
pesce nella zuppa
devo ricercare " ZUPPA"
in effetti mi cerca e si ferma a zuppa e la inserisce nella lista
pero' io vorrei se possibile che mi trovasse anxhe gli altri termini con la parola zuppa
grazie spero che mi diate na mano
cordiali saluti