Discussion :

[Juho06]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Juho06]

Tiens, maintenant j'ai mis ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Juho06]

Je viens d'essayer ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

HEEEEEEELP!

[boubounne]

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"...

[gdnico]

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