Bonjour,
J'ai le probléme dans la ligne qui en rouge pendant l'insertion, le msg d'erreur est
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()Que je dois faire?Column 'datt' does not belong to table bc.
Merci de m'aider.
Partager