J'essaie de récupérer des données de ma base de données afin de les afficher dans un datagrid.
Je n'ai pas d'erreur de compilation. Ma requête (elle récupère les données de plusieurs tables liées) renvoie bien des résultats. Mais je n'ai pas d'affichage à l'exécution.
Pouvez vous m'aidez svp?

Voici 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
        ' Déclaration Objet Connection
        Dim ObjetConnection As New SqlClient.SqlConnection
        ' Déclaration Objet Commande
        Dim ObjetCommand As New SqlClient.SqlCommand
        ' Déclaration Objet DataAdapter
        Dim ObjetDataAdapter As New SqlClient.SqlDataAdapter
        ' Déclaration Objet DataSet
        Dim ObjetDataSet As New DataSet
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As New DataTable
        'Initialisation de la chaîne contenant l'instruction SQL
        Dim strSql As String
        'Objet Connection
        'Initialisation de la chaîne de paramètres pour la connexion
        Dim strConn As String = "Data Source=serveur; " _
        & "Initial Catalog=BD; Integrated Security=SSPI"
        ' Déclaration d'un  OleDbCommandBuilder
        Dim ObjetCB As SqlClient.SqlCommandBuilder
 
        'Objet Connection
        Dim oConnection As New SqlClient.SqlConnection
        'Objet Command
        Dim oCommand As New SqlClient.SqlCommand
        'Objet Dataset
        Dim oDataset As New DataSet
 
        Try
            strSql = "SELECT champs, champs, champs FROM table1 INNER JOIN table2 INNER JOIN table3 WHERE"
 
            'Donner à la propriété ConnectionString les paramètres de connexion
            ObjetConnection.ConnectionString = strConn
            'Ouvrir la connexion
            ObjetConnection.Open()
 
            'Instancier un objet Commande
            ObjetCommand.CommandText = strSql
            'Instancier un objet Adapter
            ObjetDataAdapter.SelectCommand = ObjetCommand
            'initialiser l'objet Command
            ObjetCommand.Connection() = ObjetConnection
            'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
            'ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
            'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
            ObjetDataAdapter.Fill(ObjetDataSet, "Details_fichiers_gestionnaires")
            SqlDataAdapter1.Fill(ObjetDataSet, "Details_fichiers_gestionnaires")
            'Créer une datatable à partir du dataset
            ObjetDataTable = ObjetDataSet.Tables("Details_fichiers_gestionnaires")
            'Mettre dans le DataGrid une table  DataTable
            DataGrid1.SetDataBinding(ObjetDataSet, "Details_fichiers_gestionnaires")