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:
Erreur de syntaxe dans l'instruction UPDATE
voici le code que j'ai écrit ci-dessous et je vous remercie d'avance:

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
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