Problème à insérer un nouvel enregistrement dans une table access

Messages postés
17
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
13 novembre 2007
-
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
-
Bonjour !

J'ai continuellemement un message d'erreur, "Erreur de syntaxe dans l'instruction INSERT INTO",  lorsque mon programme exécute cette ligne MyAdapter.Update(dsEntrainement, "Entrainement")

Es-ce que quelqu'un serait me dire pourquoi ?

Merci

Voici mon code :

Dim NewLigne
As DataRow

Dim MyAdapter
As OleDbDataAdapter =
New OleDbDataAdapter()

' Création CommandBuilder

'(genere automatiquement l'update entre le dataSet et la base de donnée

Dim CmdBuild
As OleDbCommandBuilder

TrydsEntrainement.Clear()

Dim strRequete
AsStringstrRequete "SELECT * FROM Entrainement WHERE NoProgramme " &
Me.txtNoProgramme.Text &
" AND PartieCorps = '" &
Me.rdoUpperBody.Text &
"' ORDER BY Muscle, NoSerie"connection(

"C:\Documents and Settings\Alex\Mes documents\Visual Studio 2005\Projects\Gestionnaire\bdEntrainement.mdb")MyCommand =

New OleDbCommand(strRequete, MyConnection)MyAdapter.SelectCommand = MyCommand

MyAdapter.Fill(dsEntrainement,

"Entrainement")

' Création de la nouvelle ligne NewLigne = dsEntrainement.Tables(

"Entrainement").NewRow

'affectation des valeursNewLigne(0) = 9

NewLigne(1) = Convert.ToInt32(

Me.txtNoProgramme.Text)NewLigne(2) = Convert.ToString(

Me.DateTimePicker1.Value).Substring(0, 10)
NewLigne(3) =

Me.rdoUpperBody.Text
NewLigne(4) Me.lblMuscle.TextNewLigne(5)

Me.lblExercice.TextNewLigne(6) = Convert.ToInt32(

Me.lblReps12.Text)NewLigne(7) = Convert.ToInt32(

Me.txtPoidSerie1.Text)NewLigne(8) = Convert.ToInt32(

Me.txtIntensiteSerie1.Text)NewLigne(9) = 1

' Ajout de la ligne à la tabledsEntrainement.Tables(0).Rows.Add(NewLigne)
CmdBuild New OleDb.OleDbCommandBuilder(MyAdapter)MyAdapter.UpdateCommand CmdBuild.GetUpdateCommand()

MyAdapter.Update(dsEntrainement,

"Entrainement")deconnection()

Catch ex
As ExceptionMessageBox.Show(ex.Message)

End
Try

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut,
peut-être parce que tu codes en un mauvais langage?

pardon... je modifie la rubrique du topic

Prenez un instant pour répondre à ce sondage svp
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
Bonsoir,
Parce que Me.txtNoProgramme.Text  c' est du texte

Alors soit tu mets:
WHERE NoProgramme ' " & Me.txtNoProgramme.Text & "<gras>' AND PartieCorps </gras> '" & Me.rdoUpperBody.Text & "' ORDER BY Muscle, NoSerie"

Soit
WHERE NoProgramme " & CInt(Me.txtNoProgramme.Text) & " AND PartieCorps '" & Me.rdoUpperBody.Text & "' ORDER BY Muscle, NoSerie"