[ADO.NET] 2 tables dans le Datagrid

Version imprimable

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:

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 ;)

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:

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 :)

15/12/2006, 15h09
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
15/12/2006, 15h12
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

salut

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

Code:

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+

15/12/2006, 15h37
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. ;)

Bonjour
J'ai le même souci mais je ne sais pas comment le résoudre.
Voilà mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
con.Open()
        Dim DS As DataSet
        Dim DA As OleDbDataAdapter
        Dim ClePrimaire As DataColumn
        Dim CleEtranger As DataColumn
        Dim Relation As DataRelation
        'Dim com1 As OleDbCommand = New OleDbCommand("select u.id_user,u.nom+' '+u.prenom 'UTILISATEUR',s.service,u.login,u.passw,u.tel from service s,users u where s.id_service=u.id_service", con)
        'Dim com2 As OleDbCommand = New OleDbCommand("select m.id_materiel 'ID_MATERIEL',u.id_user'USER',m.n_serie 'N° SERIE',m.reference 'REFERENCE' ,m.licence 'LISENCE',t.type 'TYPE',r.marque 'MARQUE',f.raison_social 'FOURNISSEUR' from materiel m,type t,marque r,fournisseur f,affectation a,users u where m.id_type = t.id_type and a.id_user=u.id_user and a.id_mat=m.id_materiel and r.id_marque=m.id_marque  ", con)
        Dim com1 As OleDbCommand = New OleDbCommand("select * from materiel", con)
        Dim com2 As OleDbCommand = New OleDbCommand("select * from caracteremateriel", con)
        DS = New DataSet
        DA = New OleDbDataAdapter
        DA.SelectCommand = com1
        DA.Fill(DS, "materiel")
        DA.SelectCommand = com2
        DA.Fill(DS, "caracteremateriel")
        ClePrimaire = DS.Tables("materiel").Columns(0)
        CleEtranger = DS.Tables("caracteremateriel").Columns(0)
        Relation = New DataRelation("Code_cat_prod", ClePrimaire, CleEtranger)
        DS.Relations.Add(Relation)
        Me.DataGridView1.DataSource = DS

04/06/2010, 13h38
ricil78

:tagcode:

et enlève les anciennes lignes de commentaire qui pollue la lecture.

parfois je sais que j'ai du des bug sur le

Code:

DS.Tables("materiel").Columns(0)

il préférait que j'indique directement l'index genre

Code:

DS.Tables(0).Columns(0)