Discussion :

[bruce207]

Bonjour,
j'ai taper les lignes suivantes dans un bouton de command pour qu'il m'insere dans la table versement les informations à partir de textbox :

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
Private Sub Command2_Click()
'Instanciation de variable
Set rst = New ADODB.Recordset
Set cnx = New ADODB.Connection
Call Connexion(cnx)
rst.Open "INSERT INTO Versement(mat_vers, num_vers, type_vers, date, montant, mat_mem, mat_cpt) VALUES ('" & txtv(8).Text & "', '" & txtv(9).Text & "', '" & Combo2.Text & "', '" & txtv(11).Text & "', '" & txtv(10).Text & "', '" & Form1.Text1(0).Text & "', '" & Form2.Text1(0).Text & "') ", cnx, adOpenKeyset, adLockOptimistic, adCmdText
'Ferme la connexion
cnx.Close
If MsgBox("Faire un autre Versement ?", vbYesNo + vbExclamation, " NOUVEAU COMPTE !") = vbYes Then
VerseForm.Show
Else
MsgBox "Opération terminée avec succes !", vbExclamation
Exit Sub
'Ferme la feuille courante
Unload Me
End If
End Sub

mais j'ai l'erreur suivante : erreur d'éxécution '-2147217900(80040e14)':
erreur de syntaxe dans l'instruction INSERT INTO et le débogeur s'arrete et surligne la ligne en rouge
j'ai beau regardé ma syntaxe (qui je pense est correcte) mais je n'arrive pas à trouver l'erreur ni comprendre pourquoi cette erreur. Il est à remarquer que les 2 derniers champs sont alimentés par des textbox d'autres feuilles.
Merci d'avance pour votre aide

[ucfoutu]

Bonjour,

http://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/

[bruce207]

Bonjour,
en fait j'ai pu résoudre mon problème. L'erreur venait du fait que j'utilisais un mot clé de access dans ma table qui ici est Date, après l'avoir modifier tout est rentré dans l'ordre
Merci