[VB] Ricerca fallita

[Markho]

OK,
ma se la select con il where ti da 0 record che cosa dovrebbe visualizzarti la MSHFlexGrid1......, nessun record, giusto?
quindi non vedi niente, o sbaglio????

scusan se togli la where che ti visualizza??????

[Mychy]

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

Saggie parole

[dops]

Originariamente inviato da Markho
OK,
ma se la select con il where ti da 0 record che cosa dovrebbe visualizzarti la MSHFlexGrid1......, nessun record, giusto?
quindi non vedi niente, o sbaglio????

Dovrebbe visualizzarmi il record corrispondente alla ricerca

scusa se togli la where che ti visualizza??????

così com'è il codice sopra se tolgo la where non mi visualizza niente all'evento Load della form ma se clicco il pulsante cerca mi visualizza tutti i record

[Mychy]

Infatti deve funzionare così

[dops]

così non funziona..

[Mychy]

Originariamente inviato da dops
così non funziona..

Cosa vuoi fare?

Se vuoi visualizzare tutti i dati all'apertura del form devi inserire MSHFlexGrid1.DataSource = RS al''interno della funzione form_load

[Markho]

io ci rinuncio, non riesco a capire

probabilmente oggi il mio cervello è fuggito all'estero, dove tra l'altro ti pagano anche meglio....

[dops]

ragazzi devo fare una semplice ricerca per nome e visualizzare il risultato o i risultati nella MSHFlexGrid:
Allora: ho una form che contiene un textbox un pulsante e una MSHFlexGrid. All'evento Load della form gli metto questo codice:

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

nell'evento click del pulsante gli metto questo codice:

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

quando scrivo un nome presente nel database e clicco sul pulsante "cerca" devo visualizzare i risultati nella MSHFlexGrid
con il codice appena illustrato non funziona e mi esce fuori l'errore:
"Il record corrente corrisponde alla fine o all'inizio del file oppure è sttao eliminato. Per eseguire l'operzione richiesta è necessario disporre di un record corrente
Spero di essermi spiegato

[Mychy]

Prova così:

Private Sub b_cercaok_Click()
RS.Open "Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'", DB, adOpenStatic, adLockOptimistic
MSHFlexGrid1.DataSource = RS
MSHFlexGrid1.Refresh
End Sub

[dops]

ooookkkkk..
così funziona
thanx..
però se provo a immettere un nuovo nome (sempre presente nel database) e a cliccare sul pulsante "cerca" mi dice: "l'operazione non non è consentita se il recordset è aperto" forse devo chiuderlo dopo ogni ricerca vero?
Ciao