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