Relier deux datagrid ensembles?

Bonjour, si le problème est complexe, la question est simple , comment faire pour relier deux datagrid ensemblers?

Je m'explique,

J'aurai un datagrid1 et un datagrid2
Les deux sont reliés à la même base de donnée, le 1 à une table AUTEURS, le 2 à une table ALBUMS.

L'effet recherché est simple, quand on clique sur le nom d'un auteur dans le datagrid1, les albums de l'auteurs s'affichent dans le datagrid2.

J'ai tenté cela, mais ca ne fonctionne pas...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim auteur As String = datagrid1.CurrentCell.Value   Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = .\Resources\Collection.mdb"   Dim maConnexion As New OleDb.OleDbConnection(connectString)   Dim search_albofaut As New OleDb.OleDbCommand   maConnexion.Open()   search_albofaut.Connection = maConnexion   search_albofaut.CommandText = "SELECT * FROM ALBUMS WHERE Scénariste='" & auteur & "'"   search_albofaut.ExecuteNonQuery()   Dim albofaut = search_albofaut.ExecuteReader   'et enfin, une fois la requete executée, on affiche les resultats dans le datagrid2 :   datagrid2.DataSource = albofaut

---

Si quelqu'un pourrait m'aider, merci beaucoup ;)
A mon avis, c'est pas grand chose, je pense qu'il faudrait d'abord passer par un tableAdapter mais je ne vois pas trop comment déclarer le truc...

Tiens, maintenant j'ai mis ca :

Code:

---

1 2 3 4 5 6

Dim albofaut As New Data.DataTable Dim autdr As System.Data.IDataReader = search_albofscen.ExecuteReader() albofaut.Load(autdr)   datagrid2.DataSource = albofaut

---

Et ca m'affiche dans le datagrid2 les bonnes colonnes de la table ALBUMS mais aucune ligne?

Enfin, c'est un progres mais si je pourrais avoir les lignes qui correspondent à la requête ca serait mieux quand même :mrgreen:

Je viens d'essayer ca :

Code:

---

1 2 3 4 5 6

Dim scen As String = "SELECT * FROM ALBUMS WHERE Scénariste='" & auteur & "'" Dim da As New OleDb.OleDbDataAdapter da.SelectCommand = New OleDb.OleDbCommand(scen, maConnexion) Dim albofscen As New Data.DataSet da.Fill(albofscen) datagrid2.DataSource = albofscen

---

Mais ca marche toujours pas!!

Je vais devenir fou! :aie:

HEEEEEEELP! :cry:

quand tu te met en mode debug, que contient ton dataset ???

car j'ai un probleme quasi identique au tient, si ca peut t'aider, mon post se nomme "rafraichir un datagrid"...

je pense que si tu rajoute datagrid2.databind() ca dois fonctionner.