Discussion :

[gyver4000]

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

[asmduty]

Met un point d'arret apres avoir ajouté les données dans le dataset et regarde le nom de la table avec un espion du genre :

Code :

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

dtset.tables(0).name

ou alors remplaces

Code :

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

 Vtable = DtSet.Tables("ordre")

par

Code :

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

 Vtable = DtSet.Tables(0)

[tomlev]

Ou encore mieux, tu crées explicitement la table en lui donnant un nom :

Code :

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

1
2
3
Dim table As New DataTable("ordre")
DtSet.Tables.Add(table)
AdapTContact.Fill(table)

[gyver4000]

bon j'ai reproduit ma macro chez moi

pas de souci c'est super ca marche

mais quand il est intégré dans mon programme d'origine

j'ai une erreur

a la ligne

Code :

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

Vtable = DtSet.Tables(0)

Unable to cast object of type 'System.Data.DataTable' to type 'Microsoft.Office.Interop.Excel.DataTable'.

je precice que cette macro n'est pas imbriquer dans une autre fonction

juste un bouton avec avec un datagridview

merci de votre aide par avance

[GuruuMeditation]

Déclare vtable explicitement en system.data.datatable et pas en datatable. A cause d'un using, probablement, il considère que datatable est excel.datatable.

[gyver4000]

super

c'est nickel

merci a vous tous pour cette aide précieuse

++