Bonjour,

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
Dim con As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=gmarche.mdb;")
Dim ds As New DataSet
Dim cmd As OleDbCommand = con.CreateCommand
Dim dr As OleDbDataReader
Dim db As New OleDbCommandBuilder
Dim da As New OleDbDataAdapter(cmd)
Dim dt As DataTable
Dim drow As DataRow
 
 
 
con.Open()
 
drow = ds.Tables("bc").NewRow()
drow("datt") = CStr(Date1.Text)
drow("objet") = CStr(T1.Text)
drow("montant") = CStr(T2.Text)
drow("ste_conslt") = CStr(T3.Text)
drow("titulaire") = CStr(T4.Text)
drow("date_visa") = CStr(DT1.Text)
drow("date_realis") = CStr(DT2.Text)
drow("obs") = CStr(T8.Text)
 
ds.Tables("bc").Rows.Add(drow)
'Pour modifier les valeurs changées dans le DataAdapter
db = New OleDbCommandBuilder(da)
'Mise à jour
da.Update(ds, "bc")
'On vide le DataSet et on le 'recharge' de nouveau.
ds.Clear()
 
MsgBox("Le bonde de commande est Enregistré")
 
con.Close()
J'ai le probléme dans la ligne qui en rouge pendant l'insertion, le msg d'erreur est
Column 'datt' does not belong to table bc.
Que je dois faire?
Merci de m'aider.