Bonjour, je souhaite effectuer de la lecture ecriture dans une base de données Access

j'ai tous naturellement utilisé Ado, en utilisant les "sources de données" et l'assistant "Dataset".

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
 
'   Référence au tables de la base de donnée
    Private TblOfs As New OFsDataTable
    Private TblReferences As New ReferencesDataTable
    Private DtOfs As New OFsTableAdapter
    Private DtRef As New ReferencesTableAdapter
 
    '   Référence au ligne de la base de donnée
    Public RowOf As OFsRow
    Public RowReference As ReferencesRow
 
 
    '   Remplissage des tables
    Sub ChargeTables()
        TblOfs.Clear()
        DtOfs.Fill(TblOfs)
 
        TblReferences.Clear()
        DtRef.Fill(TblReferences)
    End Sub
 
'   Ajoute un OF
    Sub AjouterOF()
        Dim RowTmp As MyData.OFsRow = TblOfs.NewOFsRow
 
        RowTmp.Key = "te"
        RowTmp.Industriel = "te"
        RowTmp.Logistique = "te"
        RowTmp.QFaite = 0
        RowTmp.Quantite = 10
        RowTmp.Status = 0
        RowTmp.DateDebut = Now
        RowTmp.DateFin = Now
 
 
        TblOfs.Rows.Add(RowTmp)
        DtOfs.Update(TblOfs)
    End Sub
L'ajout de données s’effectue bien dans "TblOfs", par contre rien dans la table de la base de données ??