[VB6] Da RecordSet a Record

[Eas]

Oggi una domandina semplice semplice ... ovviamente per chi lo sa fare ...


Ho il mio bel recordeset "Rs" che è stampato a video in un datagrid. Ora vorrei che una volta che clicco sul cmdInfo mi si chiuda il form attuale, mi si liberi la memoria dal recordset e mi rimanga disponile solo il record da poter utilizzare richiamandolo con CurrentRecord("nomecampo"). Non volevo filtrare il recordset con Rs.Filter perchè è troppo pesante ... ma se non c'è alternativa ...

La mia idea di codice, ovviamente errata era questa per intenderci:

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Public CurrentRecord As ADODB.Record

Private Sub cmdInfo_Click()
   ' Rs riempito altrove ...
   Set CurrentRecord = Rs.???? 
   Rs.Close
   Set Rs = Nothing
   frmDatabase.Hide 
   ' + varie uccisioni di oggetti che non vi sto a dire ...
End Sub

E' possibile o sto perdendo tempo o qualcuno mi consiglierà mettilo in una Array ?

Cia'

[Eas]

nella fretta ho fatto due errori

1) ho postato in programazione
2) ho scitto VBA invece di VB6 nel titolo

Chiedo umilmente perdono al Mod che mi sposterà

Cia'

[Socket2000]

Aggiungi nel database, un campo id (long) con autoincremento nella tabella che stai gestendo, fai un indice su tale campo, tracci l'id nel datagrid e al click memorizzi l'id, chiudi il recordset e ti fiondi su un altro recorset al record cercato con seek sull'id.

[power.mobile]

non c'è bisogno di usare il seek, se utilizzi un grid, il record corrente del recordset sarà quello corrente del datagrid... mi spiego meglio... se selezione la terza riga del grid in modo totalmente trasparente il recordset sottostante si posiziona sullo stesso record...

poi puoi salvarti il record in un Array o dove ti fa più comodo...

[Socket2000]

Già è vero anche questo. Sarà perchè non uso mai il controllo data e relativi accessori, ma apro sempre il db da codice. ;-)

[Eas]

Grazie Power infatti ho fatto così ... è la prima volta che uso i datagrid perchè anche io come Socket2000 uso sempre i recordset da codice ...

Iniziando incontrerò tutti i problemi dei novelli

Ora infatti apro un altro post ... se vi va di aiutarmi anche in questo... :-)

Chiudo

Grazie
Cia'