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:
nell'evento click del pulsante gli metto questo codice: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
quando scrivo un nome presente nel database e clicco sul pulsante "cerca" devo visualizzare i risultati nella MSHFlexGridcodice:Private Sub b_cercaok_Click() Set MSHFlexGrid1.DataSource = RS MSHFlexGrid1.Refresh End Sub
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![]()




Rispondi quotando