Insert into

cs_colby Messages postés 126 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 14 novembre 2022 - 19 août 2008 à 17:15
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 19 août 2008 à 20:41
Bonsoir
Au secours SVP je ne comprend plus rien.
corriger moi ce code s'il y aune faute
lorsque la table a au plus 5 champs l'ajout se fait correctement mais lorsque j'atoute un 6è champ je recois " erreur de syntaxe dans l'expression INSERT INTO"

'crátion d'une nouvelle ligne avec les données des textbox
dtr = dts.Tables("temployés").NewRow
dtr("nom") = Me.txtnom.Text
dtr("prénom") = Me.txtprenom.Text
dtr("emploi") = Me.txtjob.Text
dtr("adresse") = Me.TextBox1.Text
dtr("etatcivil") = Me.TextBox2.Text

dtr("option") = Me.TextBox3.Text
'dtr("Operation") = Me.TextBox4.Text
'dtr("Camion") = Me.TextBox5.Text
'dtr("Date") = Me.TextBox6.Text


'ajout de la ligne dans le DataSet
dts.Tables("temployés").Rows.Add(dtr)

'création et exécution du commandbuilder
'pour mettre à jour le DataAdapter
cmdb = New OleDbCommandBuilder(dta)

'mise à jour des données du DataAdapter
'à partir du commandbuilder
dta.Update(dts, "temployés")

'on vide le dataset pour le recréer avec
'les nouvelles données
dts.Clear()
dta.Fill(dts, "temployés")
dtt = dts.Tables("temployés")

'mise à jour de la datagrid
DataGrid1.SetDataBinding(dts, "temployés")

Colby.

1 réponse

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
19 août 2008 à 20:41
Salut,

Le probleme semble venir du type de données

      dtr("nom") = Me.txtnom.Text

        dtr("prénom") = Me.txtprenom.Text

        dtr("emploi") = Me.txtjob.Text

        dtr("adresse") = Me.TextBox1.Text

        dtr("etatcivil") = Me.TextBox2.Text

Sont surement des champs texte

et  dtr("option") = Me.TextBox3.Text
Doit etre un cha:mp booléen

essai
1erement
dtr("option") = true

et ensuite
convert.ToBoolean(Me.TextBox3.Text)

ou un truc du genre
if .... then
dtr("option") = true
else
dtr("option") = false
end if

En esperant que c'est la bonne solution
0
Rejoignez-nous