[VB] Ricerca fallita

[dops]

ciao.. stò tentando di fare una ricerca nel database e riportare i risultati in una MSHFlexGrid. Questo è tutto il codice presente sulla form:

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset



Private Sub Form_Load()
'connessione al datbase
  Set DB = New ADODB.Connection
  DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" & "Data Source=" & App.Path + "\ONN97.mdb"
  DB.Open
  
  Set RS = New ADODB.Recordset
  RS.Open "Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'", DB, adOpenStatic, adLockOptimistic
  
    
  MSHFlexGrid1.ColWidth(0) = 1100
  MSHFlexGrid1.ColWidth(1) = 2000
  MSHFlexGrid1.ColWidth(2) = 2000
End Sub

Private Sub b_cercaok_Click()
Set MSHFlexGrid1.DataSource = RS
End Sub

però pur digitando un nome presente nel database, appena clicco sul pulsante "Cerca" nella flexgrig non appare nulla
perchè?
Ciao

[Mychy]

Ma quetso è lo stesso errore che avevi qui
http://forum.html.it/forum/showthrea...hreadid=404145 ?!

Prova:

MSHFlexGrid1.DataSource ="Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'"

[dops]

ehm.. no.. non proprio uguale..
adesso il problema è la ricerca..
cmq ti ho detto che con la MSHflexGrid ho risolto

[Mychy]

Prova a fare un refresh

Private Sub b_cercaok_Click()
Set MSHFlexGrid1.DataSource = RS
MSHFlexGrid1.refresh
End Sub

[dops]

niente.. non mi appare nulla

[dops]

niente ragazzi?

[Markho]

una domanda stupida,
hai controllato quanti record ti estrae nel recordset:

RS.Open "Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'", DB, adOpenStatic, adLockOptimistic

????

aggiungici dopo l'apertura:

    msgbox RS.recordcount,,"Numero Record"

[dops]

0 record.. e mi sembra normale visto che c'è la clausola where
ma non riesco a capire dove vuoi arrivare..

[Markho]

C...O,
ma se ti trova 0 record che ti deve caricare la MSHFlexGrid1!!!!!
è logio che non ti fa vedere nulla, o sbaglio???

[dops]

no sbagli in quanto la query è composta da una clausola where

"Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'"

se la query fosse stato : "SELECT * FROM clienti" mi troverebbe tutti i record.. e in fatti ho provato ed è come dico io..