Discussion :

[ricil78]

Bonjour,

J'suis pas très doué en ADO et j'aimerai affiché un dataset dans un datagrid dont le dataset provient d'une requête contenant 2 tables liées

J'arrive à le faire quand il y a qu'une table mais plus d'une table c'est la galère .

j'ai essayé un truc du genre mais sans succès car il n'y a rien qui s'affiche.

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
22
 
 Try
    If MyConnexion.State = ConnectionState.Closed Then MyConnexion.Open()
        Dim MyDataSet As New DataSet
 
        Dim MyObjetCommand As New OleDbCommand("SELECT * FROM Table1", MyConnexion)
        Dim MyDataAdapter As New OleDbDataAdapter(MyObjetCommand)
 
        Dim MyObjetCommand2 As New OleDbCommand("SELECT * FROM Table2", MyConnexion)
        Dim MyDataAdapter2 As New OleDbDataAdapter(MyObjetCommand2)
 
        MyDataAdapter.Fill(MyDataSet, "Table1")
        MyDataAdapter2.Fill(MyDataSet, "Table2")
 
        MyDataSet.Relations.Add("MyRelation",  MyDataSet.Tables("Table1").Columns("Index_Table1"), MyDataSet.Tables("Table2").Columns("Index_Table1"))
 
        MyDataGrid.DataSource = MyDataSet
  Catch ex As Exception
         MessageBox.Show(ex.ToString, "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
  Finally
         If MyConnexion.State = ConnectionState.Open Then  MyConnexion.Close()
  End Try

Merci d'avance

[Midou]

bonjour

J'avais fait le même programme que toi en utilisant la Bd Northwind et ça marche et je ne sais pas pourquoi ça Marche pas pour toi c'est koi l 'erreur que tu obtient ?

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
 
Try
   cn.Open()
   Dim ds As New DataSet
   Dim cmd1 As New OleDbCommand("SELECT * FROM Customers", cn)
   Dim da1 As New OleDbDataAdapter(cmd1)
   Dim cmd2 As New OleDbCommand("SELECT * FROM Orders", cn)
   Dim da2 As New OleDbDataAdapter(cmd2)
   da1.Fill(ds, "Clients")
   da2.Fill(ds, "Commandes")
   ds.Relations.Add("Realtion_C_O", ds.Tables("Clients").Columns("CustomerID"), ds.Tables("Commandes").Columns("CustomerID"))
   dg.DataSource = ds
   Catch ex As Exception
       MessageBox.Show("Erreur !!! " & ex.Message)
   End Try

bonne chance

[ricil78]

j'ai pas de message d'erreur tout s'exécute normalement sauf que j'ai rien qui s'affiche.

Et toi les données s'affiche ?
Tu les affiches dans un datagridview ?
as tu modifié un paramétrage du datagridview ?


merci pour ton aide

[Midou]

salut

oui les deux tables client et commandes s'affichent et lorsque je clique sur un client il me montre ses commandes
je n ai pas trouché au DataGrid

regarde du coté de tes deux tables sont elles vraiment en relation ?
bon chance

[Midou]

salut

J'ai même ajouté une deuxième relation et ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
Dim cmd3 As New OleDbCommand("SELECT * FROM [Order Details]", cn)
Dim da3 As New OleDbDataAdapter(cmd3)
da1.Fill(ds, "Clients")
da2.Fill(ds, "Commandes")
da3.Fill(ds, "Détails Commandes")
ds.Relations.Add("Realtion_C_O", ds.Tables("Clients").Columns("CustomerID"), ds.Tables("Commandes").Columns("CustomerID"))
 ds.Relations.Add("Realtion_O_D", ds.Tables("Commandes").Columns("OrderID"), ds.Tables("Détails Commandes").Columns("OrderID"))
...

A+

[ricil78]

j'ai réussi mais avec une autre méthode.

Je te remercie pour tout le temps que tu as consacré.

Maintenant je sais que l'ancien code est juste et je vais pourvoir chercher pourquoi chez toi oui et pas chez moi.
je garde l'ancien code sous le coude et je chercherai plus tard car il faut que j'avance mon dev.

encore merci de ton aide.