Affichage Datagrid2 selon Datagrid1Résolu

Question

Bonjour!
Je vais essayer d'etrte la plus claire possible... J'ai un Datagrid1, et selon la ligne sur laquelle je clique je remplis differement le Datagrid2. Jusque la ca fonctionne si je selectionne une ligne, mais impossible d'en selectionner une autre sans relancer l'application.
Voici mon code:

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid2.Visible = True
Label1.Visible = True
Index = DataGrid1.Columns(0).Value


Rst2.CursorLocation = adUseClient ' Sinon le jeu d'enregistrement ne peut pas prendre ne compte les signets
Rst2.Open "Select distinct Produit.Lib&#233;ll&#233;_produit, Produit.Prix_unitaire, Produit.Taille, LigneCommande.Quantit&#233;_command&#233; FROM Produit, LigneCommande, Commande WHERE Produit.Code_produit=LigneCommande.Code_produit AND LigneCommande.Code_commande like '" & Index & "'", Cxn, , adLockOptimistic
Set DataGrid2.DataSource = Rst2
End Sub

Il faudrais vider le Datagrid2 au d&#233;but je pense, mais comment faire??
Set DataGrid2.DataSource = " " 
Ca ne marche pas!!

J'esp&#233;re que vous saurez m'aider, en attendant je vous remercie.

cs_Sandy084 · Accepted Answer

Ca y'est j'ai trouv&#233;!!
Grace &#224; commentcamarche.net , y'a pas mal de trucs d'ailleurs.
Il me manquait 
Set Rst2 = Nothing
et je n'ai pas mis Rst2.Close.
Voila voili!

Totoroyamada · Answer

De t&#234;te (parce que &#231;a fait un paquet de temps que je ne fais plus de vb6) :

Essaie Set DataGrid2.Datasource = Nothing

cs_Sandy084 · Answer

Ca fait comme avant, c'est &#224; dire ca marche au premier coup, et apr&#233;s quand on change de ligne ce met erreur 3705 cette op&#233;ration n'est pas autoris&#233;e si l'objet est ouvert.
Vous savez comment y rem&#233;dier??

cs_pcvesoul · Answer

essaie : DataGrid2.rows = 1

Totoroyamada · Answer

Bon, j'ai &#233;t&#233; rouvrir un vieux projet vb6, j'avoue que je ne m'en serai jamais souvenu sinon...

Rst2.Close 's&#251;rement ce qu'il te manque, c'est le recordset qui est d&#233;j&#224; ouvert et non le datagrid

Rst2.Open "la nouvelle requ&#234;te"

Rst2.Requery

Par contre, c'est un conseil qu'on retrouve souvent ici et pour cause,
&#233;vite les accents et autres caract&#232;res &#233;sot&#233;riques dans ton code, tes
noms de table, de champs etc...

En esp&#233;rant t'avoir aid&#233;...

cs_Sandy084 · Answer

Salut !
Mais si je met Rst2.Close en premier ca ne marche pas (erreur 3704 operation non autoris&#233;e si l'objet est ferm&#233;), et si il est &#224; la fin ca ne m'affiche rien.

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid2.Visible = True
Label1.Visible = True
Index = DataGrid1.Columns(0).Value


Rst2.Close
Set DataGrid2.DataSource = Nothing
Rst2.CursorLocation = adUseClient ' Sinon le jeu d'enregistrement ne peut pas prendre ne compte les signets
Rst2.Open "Select distinct Produit.Lib&#233;ll&#233;_produit, Produit.Prix_unitaire, Produit.Taille, LigneCommande.Quantit&#233;_command&#233; FROM Produit, LigneCommande, Commande WHERE Produit.Code_produit=LigneCommande.Code_produit AND LigneCommande.Code_commande like '" & Index & "'", Cxn, , adLockOptimistic
Rst2.Requery
Set DataGrid2.DataSource = Rst2
Rst2.Close
End Sub

On est pas loin du but...J'esp&#233;re que tu as une id&#233;e.
Merci

Affichage Datagrid2 selon Datagrid1

6 réponses

Discussions similaires