Utilisation de "sql UPDATE SET" dans VB6 avec ADO
bonjour à tous, j'ai un petit souci alors aidez-moi svp
en fait j'ai créé une base de données Access format 2000 à laquelle j'accède avec VB6 en utilisant ADO. alors à partir d'une form VB je n'arrive pas à mettre à jour ma table "Classes" qui contient 09 champs alors que les tables ayant 03 champs maxi sont mises à jour sans problème
je crois pourtant avoir bien utiliser la syntaxe de UPDATE. le message d'erreur suivant s'affiche:
Citation:
Erreur de syntaxe dans l'instruction UPDATE
voici le code que j'ai écrit ci-dessous et je vous remercie d'avance:
Code:
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
35
36
37
| Option Explicit
Dim MaConnexion As ADODB.Connection
Dim MaRequete As ADODB.Recordset
Private Sub Modifier_Click()
On Error GoTo errValidation
Dim mysql As String
'mise à jour à partir des données des champs textes et listes déroulantes
mysql = "UPDATE Classes "
mysql = mysql & "SET LibelleClasse ='" & txtLibelleClasse & "', Niveau='" & cboNiveau & "', "
mysql = mysql & "Section='" & cboSection & "', Cycle='" & cboCycle & "', "
mysql = mysql & "Specialite='" & cboSpecialite & "', TypeClasse='" & cboTypeClasse & "', "
mysql = mysql & "Examen='" & cboExamen & "', Titulaire='" & cboEnseignant & "' "
mysql = mysql & "WHERE CodeClasse ='" & txtCodeClasse & "'"
Set MaConnexion = New ADODB.Connection
With MaConnexion
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = App.Path & "\MaBD.mdb"
.Open
End With
Set MaRequete = New ADODB.Recordset
With MaRequete
.ActiveConnection = MaConnexion
.Open mysql, , adOpenDynamic, adLockOptimistic
End With
Exit Sub
errValidation:
Dim errMsg As String
errMsg = MsgBox(Err.Description, vbCritical + vbOKOnly, "Mon application")
End Sub |
