Bonjour,
Je n'arrive pas à remplir mon datagriedview
Je n'ai aucunes erreur lors de l'exécution, le datagridview n'affiche auncunnes lignes, ni entête, rien de rien….

J'ai essayé ces 2 façons :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 TableVins_DataAdapter.Fill(TableVins_DataSet, "Vins")
        dgvCave.DataSource = TableVins_DataSet.Tables("Vins")
J'ouvre ma base de cette Façon :
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
 
 
 Private Sub dgvCave_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCave.CellContentClick
        Dim SSQL As String
        SSQL = "SELECT Id_cave, C_Pays, C_Region, C_Nom, C_Appelation, C_Classification, C_Couleur, " & _
          "C_Annee, C_Conditionnement, C_Bouteille, C_Source, " & _
          "C_DateAchat, C_Valeur " & _
            "FROM Vins ORDER BY C_Pays "
        TableVins(SSQL, "cave.mdb", "Vins")
        dgvCave.DataSource = TableVins_DataSet.Tables("Vins")
        TableVins_DataAdapter.Fill(TableVins_DataSet)
    End Sub
 
Public Sub TableVins(ByVal sSQL As String, ByVal sNomBase As String, ByVal sNomTable As String)
        ''Ouverture base
        'Initialisation de la chaîne de paramètres pour la connexion
        sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                              "Data Source = " & Application.StartupPath & "\" & sNomBase & ";"
        ''Connection base
        TableVins_Connection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        TableVins_Connection.ConnectionString = sConnect
        ''Ouvrir la connection
        TableVins_Connection.Open()
        ''Instancier un objet commande
        TableVins_Command = New OleDbCommand(sSQL)
        ''Instancier un objet Adapter
        TableVins_DataAdapter = New OleDbDataAdapter(TableVins_Command)
        ''init objet command
        TableVins_Command.Connection = TableVins_Connection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        TableVins_DataAdapter.Fill(TableVins_DataSet, CStr(sNomTable))
        'Mettre dans un Objet DataTable une table du DataSet
        TableVins_DataTable = TableVins_DataSet.Tables(CStr(sNomTable))
        TableVins_Connection.Close()
        ''Premier enregistrement
        iLigneTableVins = 0
    End Sub
Merci pour vos retours
FikoU