Discussion :

[chahinaz21]

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.

[Ogotcha]

Merci de faire un effort en utilisant les balises code

u passage une petite recherche, je pense, aurais permis de trouver déjà quelques pistes...

[Pol63]

le forum a une balise code pour la mise en forme et la coloration syntaxique

pour ajouter des données dans une base c'est moche de passer par un datatable !!

autail faut faire une requete type INSERT INTO
(ca prend beaucoup moins de lignes de code en plus)

et puis des cstr dans tous les sens ca ne va pas non plus, une date c'est pas un string ...

un cours sur vb.net ici : http://plasserre.developpez.com/cours/vb-net/