requete SQL table join

Version imprimable

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:

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

15/12/2011, 13h36
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:

dtset.tables(0).name

ou alors remplaces

Code:

Vtable = DtSet.Tables("ordre")

par

Code:

Vtable = DtSet.Tables(0)
15/12/2011, 14h35
tomlev
Ou encore mieux, tu crées explicitement la table en lui donnant un nom :
Code:

1 2 3 Dim table As New DataTable("ordre") DtSet.Tables.Add(table) AdapTContact.Fill(table)
16/12/2011, 08h24
gyver4000

ca marche oui et non :(

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:

Vtable = DtSet.Tables(0)

Citation:

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
16/12/2011, 08h50
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.
16/12/2011, 10h11
gyver4000

super

c'est nickel

merci a vous tous pour cette aide précieuse

++