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

Question

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

PCPT · Answer

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

chaibat05 · Answer

Bonsoir, Parce que Me.txtNoProgramme.Text c' est du texte Alors soit tu mets: WHERE NoProgramme ' " & Me.txtNoProgramme.Text & "' AND PartieCorps '" & Me.rdoUpperBody.Text & "' ORDER BY Muscle, NoSerie" Soit WHERE NoProgramme " & CInt(Me.txtNoProgramme.Text) & " AND PartieCorps '" & Me.rdoUpperBody.Text & "' ORDER BY Muscle, NoSerie"

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

2 réponses

Votre réponse

Discussions similaires