Discussion :

[hermanoah]

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

[pc75]

Bonjour,

Peux-tu nous afficher le texte de la variable mysql ?

[hermanoah]

Bonjour,

Peux-tu nous afficher le texte de la variable mysql ?

bonjour
si je comprends bien ta question, voici le texte de ma variable mysql, qui récupère les données à partir des zones de texte et des combobox:

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 & "'"

[pc75]

Re,

Non, il faut le contenu de la variable ; Qu'affiche un msgbox mysql ?

[hermanoah]

Re,

Non, il faut le contenu de la variable ; Qu'affiche un msgbox mysql ?

Tous les champs de la table Classes sont de type « Texte » dans ma BD Access. Voici un échantillon d’enregistrement que je n’arrive pas à modifier ci-dessous:

[hermanoah]

Tous les champs de la table Classes sont de type « Texte » dans ma BD Access. Voici un échantillon d’enregistrement que je n’arrive pas à modifier ci-dessous:

j'ai enfin trouvé ce qui me bloquait
en fait, je ne sais pas pourquoi, mais c'est le champ "Section" de la table "Classes" qui bloquait alors je l'ai renommé "SectionCl" et ça marche désormais.
merci de t'être penché sur ce pb

[ProgElecT]

Salut

Re,

Non, il faut le contenu de la variable ; Qu'affiche un msgbox mysql ?

La demande (justifiée) de pc75 et de nous mettre le résultat de la construction de la requête SQL.
Pour cela tu peux provisoirement faire un Debug.print

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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 & "'" 
Debug.print mysql

Dans la fenêtre d’exécution de l'éditeur VB6 (Ctrl + G) tu fais un copier/coller et tu le postes dans ton prochain message, cela permettra de voir si la construction résultante de ta variable mysql et correcte.

Motif de l'édit: Trop tard.

[hermanoah]

Salut
La demande (justifiée) de pc75 et de nous mettre le résultat de la construction de la requête SQL.
Pour cela tu peux provisoirement faire un Debug.print

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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 & "'" 
Debug.print mysql

Dans la fenêtre d’exécution de l'éditeur VB6 (Ctrl + G) tu fais un copier/coller et tu le postes dans ton prochain message, cela permettra de voir si la construction résultante de ta variable mysql et correcte.

Motif de l'édit: Trop tard.

UPDATE Classes SET LibelleClasse='2nde STT/G A', Niveau='Seconde', SectionCl='Section Sciences et Technologies du Tertiaire', Cycle='Second Cycle', Specialite='Gestion', TypeClasse='Intermédiaire', Examen='Aucun', Titulaire='NOAH FRANÇOIS HERMANN' WHERE CodeClasse='2NDE STT/G A'

je vous remercie beaucoup