[VB6] Ricerca incompiuta in Access

[Magicolotto]

Ho un problema con questo codice di ricerca

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

[oregon]

cerca = "termine LIKE *" & UCase(Trim(cerca)) & "*"

[Magicolotto]

segue sotto : ---->

[Magicolotto]

ho incollato male


scusate ecco:

On Error GoTo LocalErr
List1.Clear
adoPrimaryRS.MoveFirst
On Error GoTo LocalErr
Dim cerca As String
Dim numricerca As String
cerca = InputBox("CERCA CON LA DESCRIZIONE ", "Descrizione")
numricerca = cerca
If Len(Trim(cerca)) > 0 Then
If adoPrimaryRS.BOF = False And adoPrimaryRS.EOF = False Then
mvBookMark = adoPrimaryRS.Bookmark
End If
cerca = "Descrizione like*" & UCase(Trim(cerca)) & "*"
adoPrimaryRS.Find cerca

If adoPrimaryRS.EOF Then
If mvBookMark > 0 Then adoPrimaryRS.Bookmark = mvBookMark
MsgBox "Ricerca Fallita", vbInformation + vbOKOnly, "Find"
Else
While Not adoPrimaryRS.EOF
For i = 0 To 2
num = adoPrimaryRS(i)
num2 = adoPrimaryRS(2)

If num2 = numricerca Then


End If
Next i
List1.AddItem " " & txtFields(1) & " " & " " & txtFields(2) & " " & " giacenza " & txtFields(3)
adoPrimaryRS.MoveNext

Wend
adoPrimaryRS.MoveFirst
End If
End If
Exit Sub
LocalErr:
MsgBox Err.Description

[oregon]

Classico delle tue risposte ...

... e quindi????

[Magicolotto]

scusa ho fatto una modifica ed ho tolto il problema

comunque mi dice :
gli argomenti sono in conflitto , o non sono del tipo valido , o nell'intervallo consentito

[oregon]

Prova cosi' ... (attenzione agli spazi e alle virgolette)

cerca = "termine LIKE '%" & UCase(Trim(cerca)) & "%'"

[Magicolotto]

ho provato mi dice :

impossibile trovare l'oggetto nell'insieme corispondente al nome o al numero richiesto

[oregon]

Ma hai scritto

termine

o

descrizione

?

[Magicolotto]

si si

certo...