Discussion :

[fikou]

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

[thovan]

Hello,

Pour remplir mes datagridview par du code et non directement par des bindingsource et tableadapter, j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
            Dim sql_scans As String
            sql_scans = "SELECT * from Scans"
            Dim search As New OleDbDataAdapter(sql_scans, myconnexion)
            Dim ds As DataSet = New DataSet
            search.Fill(ds, "Scans")
            DataGridView1.DataSource = ds.Tables("Scans")
            Me.ScansTableAdapter.ClearBeforeFill = True
            Me.ScansTableAdapter.Fill(Me.DatabaseDataSet.Scans)

Si ça peut t'inspirer, ça fonctionne très bien :-)

[fikou]

Bonjour
Merci Thovan
En fait mon code était bon.
J'ai voulu récupérer des forms d'un ancien projet. Il y avais un conflit entre ces forms.
J'ai créé un nouveau projet et cela fonctionne.
FikoU