Bonjour à tous,
Via vb6 j'arrive à ouvrir ma table relation sur ma datagrid1 puis je modiife ma datagrid par contre je ne trouve rien pour enregistrer mes nouvelles valeurs de champs vers ma table relation.

J'utilise ADO pour ouvrir, voilà 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
Private Sub Form_Load()
' Instanciation des objets ADO
    Set cnMaDb = New ADODB.Connection
    Set rsMaDb = New ADODB.Recordset
 
    MaDb = App.Path & "\BaseTPV.mdb"
 
    ' construction de la chaîne de connection
    cnStr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & MaDb
    ' ouverture de la base de données avec cette connexion
    cnMaDb.Open cnStr
    ' ouverture du recordset avec la requête SQL intégrée
    ' cette dernière peut être placée dans une variable string et appelée par le nom de cette variable
    rsMaDb.Open "SELECT * FROM Relation ;", cnMaDb, adOpenKeyset, adLockBatchOptimistic
 
    ' vérifie qu'il y a bien des enregistrements
    ' le test sur recordcount = -1 pour être fait aussi ou alors via la gestion des erreurs
    If rsMaDb.RecordCount = 0 Then
        MsgBox "Il n'y a aucun enregsitrement dans la base de données"
        End
    End If
 
    ' allocation du recordset au datagrid pour affichage
    Set DataGrid1.DataSource = rsMaDb
    DataGrid1.Refresh
 
    ' suivant les propriétés du datagrid et l'ouverture du recordset (curseurs), vous gérez la lecture seule ou la maj
    ' voir les cours sur ADO dans les tutoriels Visual Basic de www.developpez.com
End Sub

En quelque sorte je voudrais faire le chemin inverse en enregistrant lors d'un click sur un bouton mes valeurs dans ma datagrid vers ma base de données Access