Discussion :

[Gdal]

Bonjour,

Voilà je viens de regarder Entrerpise Library. Mais j'ai un problème.
La définition qui me pose problème:

Public Overridable Sub LoadDataSet(ByVal commandType As System.Data.CommandType, ByVal commandText As String, ByVal dataSet As System.Data.DataSet, ByVal tableNames() As String)
Membre de : Microsoft.Practices.EnterpriseLibrary.Data.Database
Résumé :
Loads a System.Data.DataSet from command text.

Paramètres :
# commandType:
One of the System.Data.CommandType values.
# commandText:
The command text to execute.
# dataSet:
The System.Data.DataSet to fill.
# tableNames:
An array of table name mappings for the System.Data.DataSet.

Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim bdd As Database = Nothing
        Try
            bdd = DatabaseFactory.CreateDatabase("Parc_Véhicule.My.MySettings.LocalDbServer")
 
            'Requete
            Dim query As String = "SELECT * FROM Tbl_Energie"
 
            'Execution de la requete et affichage des résultats
            objdataset = bdd.LoadDataSet(CommandType.Text, query, objdataset, "TblEnergie")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try

Je ne sais pas comment faire pour mettre le nom de la table. Il attend un tableau ?

# tableNames:
An array of table name mappings for the System.Data.DataSet.

J4ai fait des recherches sur le net pour trouver des exemples, mais sans succès.
Un grand merci d'avance.

Gdal

[tomlev]

Déclare un tableau de string de 1 élément, et met "TblEnergie" dans le tableau. Ensuite tu as juste à passer le tableau à la fonction au lieu de "TblEnergie"

[Gdal]

Merci beaucoup

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
        Dim bdd As Database = Nothing
        Dim nomtable(0) As String
 
        Try
            bdd = DatabaseFactory.CreateDatabase("Parc_Véhicule.My.MySettings.LocalDbServer")
 
            'Requete
            Dim query As String = "SELECT * FROM Tbl_Energie"
 
            ' Nom de la table
            nomtable(0) = "TblEnergie"
 
            'Execution de la requete et affichage des résultats
            bdd.LoadDataSet(CommandType.Text, query, objdataset, nomtable)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try

Y a des soir comme ça, ou s'est bien dur

tomlev

Gdal