slt

j'ai une requete avec un data grid view s qui marche bien

mais avec un requete ou il y a 2 table join je ne sais pas quoi mettre dans

Vtable = DtSet.Tables("ordre") <=== ordre n'est pas bon apparment

meric de votre aide

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
23
24
25
26
27
28
Sub resumer()
        Dim Connection As New OleDb.OleDbConnection()
        Dim AdapTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New DataSet()
        Dim Sql As String
 
 
        'ouverture de la connection
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=D:\Documents and Settings\sa_testmcore\Desktop\configuration produit.mdb;"
        Connection.Open()
 
        Sql = "SELECT ordre.[N°], ordre.ordre, ordre.poste, ordre.etat, ordre.datesortie, ordre.dateentree, ordre.[jeton-baie], ordre.[jeton-chassis], ordre.produit, ordre.code, ordre.commentaire, poste.type FROM (ordre INNER JOIN poste ON ordre.poste = poste.freu) ORDER BY ordre.[N°], poste.type"
        'definition de la requete
        'definition du DataAdapter
        AdapTContact = New OleDbDataAdapter(Sql, Connection)
 
        ' remplissage du dataset
        AdapTContact.Fill(DtSet)
 
        'Fermeture de la connection
        Connection.Close()
 
        'affichage dans un  datagridview
        Dim Vtable As DataTable
        Vtable = DtSet.Tables("ordre")
        DataGridView1.DataSource = Vtable
 
    End Sub

bonne journée

merci