Recordset et ListBox [VB6] - VB/VBA/VBS - Programmation
MarshPosté le 07-01-2005 à 15:19:29
Salut à tous,
Un p'tit truc tout couillon que je n'arrive pas à faire : J'ai une base, une connexion, un recordset et une listBox.
Mon code, jusqu'à présent :
Dim cnxBirds As ADODB.Connection Dim rstBirds As ADODB.Recordset Dim gstrBaseSQL as string 'Ma requète SQL
Set cnxBirds = New ADODB.Connection cnxBirds.Provider = "Microsoft.Jet.Oledb.4.0" cnxBirds.ConnectionString = gstrBaseSQL cnxBirds.Open Set rstBirds = New ADODB.Recordset rstBirds.Open gstrSqlReq, cnxBirds
Voila. Maintenant, je souhaite balancer le contenu du recordset dans ma listBox.
1. J'ai peur que faire N AddItem soit un peu long avec 100.000 enregistrements (j'ai des volumes assez importants). 2. Je n'ai pas trouvé la méthode RowSource que je connais dans ACCESS, et je n'arrive pas de dépétrer avec le DataSource.
Si qqn peut m'aidé ou a une idée plus simple pour que je puisse récupérer mes enregistrements sans etre obligé de poireauter 10 minutes...
Marsh Posté le 07-01-2005 à 15:19:29
Salut à tous,
Un p'tit truc tout couillon que je n'arrive pas à faire :
J'ai une base, une connexion, un recordset et une listBox.
Mon code, jusqu'à présent :
Dim cnxBirds As ADODB.Connection
Dim rstBirds As ADODB.Recordset
Dim gstrBaseSQL as string 'Ma requète SQL
Set cnxBirds = New ADODB.Connection
cnxBirds.Provider = "Microsoft.Jet.Oledb.4.0"
cnxBirds.ConnectionString = gstrBaseSQL
cnxBirds.Open
Set rstBirds = New ADODB.Recordset
rstBirds.Open gstrSqlReq, cnxBirds
Voila.
Maintenant, je souhaite balancer le contenu du recordset dans ma listBox.
1.
J'ai peur que faire N AddItem soit un peu long avec 100.000 enregistrements (j'ai des volumes assez importants).
2.
Je n'ai pas trouvé la méthode RowSource que je connais dans ACCESS, et je n'arrive pas de dépétrer avec le DataSource.
Si qqn peut m'aidé ou a une idée plus simple pour que je puisse récupérer mes enregistrements sans etre obligé de poireauter 10 minutes...
Merci
Laurent