requete SQL update base access

**samtheh** · 31/05/2007, 17h16

Bonjour à tous,

Voici le code VBA que j'execute :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim SQL As String
SQL = "UPDATE membres"
SQL = SQL + " SET" _
          & " nom = '" & MEM_temp_new.getNom & "'," _
          & " prenom = '" & MEM_temp_new.getPrenom & "'," _
          & " date_arrivee = #" & MEM_temp_new.getDateArrivee & "#," _
          & " date_depart = #" & MEM_temp_new.getDateDepart & "#," _
          & " login = '" & MEM_temp_new.getLogin & "'," _
          & " password = '" & MEM_temp_new.getLogin & "'," _
          & " droit = '" & MEM_temp_new.getDroit & "'" _
          & " WHERE num_membre = " & index & " ; "
   Debug.Print "SQL : " & SQL
Set rst = DB_base.executeSQL(SQL)

La requete fonctionne sans aucun probleme si j'enleve la ligne correspondant au password, sinon il me sort une erreur de syntaxe sur la requete. Je ne comprend absolument pas....

Une idée ?

**DMboup** · 31/05/2007, 17h21

Vérifies si password est bien un champ de ta table et qu'il est bien orthographié.

D'autre part

Set rst = DB_base.executeSQL(SQL)

n'est pas correct pour exécuter ta requête.

Code :

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

1
2
3
4
 
DB_base.executeSQL(SQL)
'ou
DoCmd.RunSQL(SQL)

**samtheh** · 31/05/2007, 17h25

C'est bien la bonne orthographe et bien un champ de ma table.

Ok pour l'execution de la requete, mais cela fonctionnait tres bien comme ca.

**Tofalu** · 01/06/2007, 09h59

Peut être que le password contient le caractère ' Auquel cas il faut le doubler avec replace

**samtheh** · 01/06/2007, 11h33

Nan pas de ' ou de " dans password.

Voici ci dessous l'affiche de la string SQL :

Code :

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

1
2
 
UPDATE membres SET nom = 'toto', prenom = 'tata', date_arrivee = #28/03/1999#, date_depart = #00:00:00#, login = 'toto.tata', password = '1234', droit = 'administrateur' WHERE num_membre = 3 ;