Problème Adodoc + datagridRésolu

Question

Bonjour &#224; tous!

Je d&#233;veloppe sous VB6 et je voudrai afficher le contenu d'une table dans un datagrid. pour cela, j'essaie d'utiliser le code suivant sur le load de mon formulaire :

Dim strRequete As String
Dim laRequete As New ADODB.Recordset


strRequete = "SELECT champ1,champ2 FROM ma_table"
laRequete.ActiveConnection = CNN
laRequete.Open Source:=strRequete, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
Set MonAdodc.Recordset = laRequete


Dans la d&#233;finition de mon datagrid, pour la propri&#233;t&#233; DataSource, j'ai mis MonAdodc. Mais rien ne s'affiche. J'ai test&#233; si ma requ&#234;te fonctionnait. Si je lui fais afficher laRequete.RecordCount, il me retourne -1. Par contre, si je rajoute une boucle pour parcrourir toute la table avec des "larequete.movenext", il parcourt bien toute la table et affiche le contenu dans un msgbox si je lui demande.

Le code vient d'un autre projet o&#249; il fonctionnait (et j'ai trouv&#233; des codes similaires sur ce site). Je me demande si il ne s'agit pas d'un probl&#232;me de param&#233;trage. Toute id&#233;e serait la bienvenue

Un grand merci d'avance.

Matthieu

mdelahais · Accepted Answer

Ca fonctionne sans utiliser le adodc. Et pour pouvoir compl&#233;ter les donn&#233;es, il suffit de mettre l'option AllowAddNew &#224; true.
Un grand merci pour ton aide!
Voici le code pour ceux que &#231;a int&#233;resse...

strRequete = "SELECT chp1, chp2 FROM ma_table"
AdodcModeleRF.ConnectionString = chaine_de_connexion
AdodcModeleRF.RecordSource = strRequete
AdodcModeleRF.Refresh

the_emperor · Answer

Parfois le datagrid VB6 part un peu en sucette.
As-tu essay&#233; de supprimer ton datagrid et d'en refaire un tout beau tout neuf?

the_emperor · Answer

Pardon j'avais mal lu.
Clique droit sur ton adodc puis propri&#233;t&#233;s.
Remplis la chaine de connexion et teste la.
D&#233;finis le recordsource(ta requ&#234;te).

mdelahais · Answer

J'ai ajout&#233; une chaine de connection et d&#233;fini un recordsource sur le adodc, mais &#231;a ne change rien. Mais il me semble que lorsque que je fais :
Set MonAdodc.Recordset = laRequete
&#199;a fait la m&#234;me chose non?

the_emperor · Answer

Je ne sais pas si &#231;a fait la m&#234;me chose mais pourquoi passes-tu par un adodc si tu cr&#233;es un recordset, tu gaspilles de la ressource alors que tu peux modifier le datagrid.datasource = larequete
Il est &#233;tonnant que ton larequete.recordcount donne -1 &#224; moins que tu travailles avec des tables attach&#233;es.
Toujours dans la m&#234;me id&#233;e de balancer des id&#233;es, essaie avec un autre cursortype si tu le peux.
Tente &#233;galement monadodc.refresh et datagrid .refresh