per controllare se ci sono record ti basta aggiungere l'istruzione in rosso:Originariamente inviato da Stefanik
Si. L'ho provato ora e non funziona.
L'errore che mi da è:
"Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione è necessario disporre di un record corrente".
Però questo errore me lo da solo se direzione l'output su una text.
Mandandolo su un datagrid non mi da questo errore, ma non mi visualizza nessun record, solo i nomi dei campi.
Ho messo un controllo per vedere il numero dei record che trova con quella stringa. Il risultato è 0!!!
E' sbagliata la stringa SQL?
e per il fatto che non trova record... sicuro che il filtro che applichi sia giusto? voglio dire... sei certo che debba tirarti fuori qualcosa? :master:codice:Dim Cn As New ADODB.Connection Private Sub Form_Load() Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data" & _ "Source=GetsMag.mdb;" Cn.CursorLocation = adUseClient End Sub Private Sub cmdCerca_Click() If Text1.Text <> "" Then q = "Select * from Clienti where CognomeNome " & _ "like '*" & Text1.Text & "*'" Dim Rs As New ADODB.Recordset Rs.Open q, Cn, adOpenStatic, adLockOptimistic, adCmdText If Rs.RecorCount = 0 Then Exit Sub frmRisultato.txtNome.Text = Rs("CognomeNome") End If End Sub


Rispondi quotando