Visualizzazione dati ricercati

[Stefanik]

Ciao a tutti. Dovrei fare una ricerca in un db e una volta trovato il record, visualizzarlo.
Per il momento ho implementato il codice che mi visualizza solo un campo, ma non mi funziona.
Che ne dite?

-----CODE---------------
Private Sub cmdCerca_Click()
If Text1.Text <> "" Then
Text1.Text & "%" & "'" & ";"
q = "Select * from Clienti where CognomeNome like " & " '" & Text1.Text & "*'"
Rs.Open q, Cn, adOpenStatic, adLockOptimistic, adCmdText
frmRisultato.txtNome.Text = Rs.Fields("CognomeNome").Value
End If
End Sub
------------------------

Il db l'ho inizializzato così:

----CODE----------------
Private Sub Form_Load()
Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=GetsMag.mdb;"
Cn.CursorLocation = adUseClient

End Sub
------------------------


Grazie.

[sir]

Prova anche in questo modo:
aggiungi nei Riferiemnti: Microsoft Dao 3.x object library


sempre nella sez. general del form principale
creati una function personalizzata.
private function pippo()

dim db as Database
dim rs as Recordset


if text1.text <> "" then
Text1.Text = Text1.Text & "%" & "'" & ";"

set db = opendatabase("xxx.mdb")
set rs = db.openrecordset("select * ......")

do while not rs.eof
frmRisultato.txtNome.Text = Rs("CognomeNome")
rs.movenext
loop
endif

rs.close
db.close

end function

Bye

[Stefanik]

Mi da un errore:

"Errore di run-time '3142':Caratteri non previsti dopo la fine dell'istruzione SQL".

Ho richiamato questa funzione al click del comando cerca.

[sir]

come è scritta la stringa sql?

[ladyBlu]

io ti consiglio di usare ADO; quindi inserisci nei riferimenti
Microsoft ActiveX Object 2.7 Library

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 
     frmRisultato.txtNome.Text = Rs("CognomeNome")
   End If 

End Sub

[Stefanik]

Originariamente inviato da sir
come è scritta la stringa sql?

q = "Select * from Clienti where CognomeNome like " & " '" & Text1.Text & "*'"

[ladyBlu]

Originariamente inviato da Stefanik
q = "Select * from Clienti where CognomeNome like " & " '" & Text1.Text & "*'"

questa corregila così:

q = "Select * from Clienti where CognomeNome " & _
    "like '*" & Text1.Text & "*'"

ma hai provato il codice che ti ho postato io? :master:

[Stefanik]

Originariamente inviato da ladyBlu
questa corregila così:

q = "Select * from Clienti where CognomeNome " & _
    "like '*" & Text1.Text & "*'"

ma hai provato il codice che ti ho postato io? :master:

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?

[ladyBlu]

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?

per controllare se ci sono record ti basta aggiungere l'istruzione in rosso:

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

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:

[Stefanik]

Si, sono sicuro che deve tirar fuori qualcosa, perchè i dati li ho inseriti da un altro form e poi li ho anche ricontrollati nel db.

Il problema è che non trova nessun record. Se faccio una ricerca totale, cioè senza il filtro mi fare vedere tranquillamente tutti i record!