[VB6 et acces] J'arrive pas a resoudre un pbRésolu

Question

Bonjour,

Je souhaite modifier un enregitrement, pour cela, j'effectue la commande suivante:
        sql "select * from titreboissons where  titre '" & cmbtitre2.Text & "' and '" & "stitre" & i & "' = '" & cmbsoustitre.Text & "' "
        Set rs = db.OpenRecordset(sql, dbOpenDynaset)
        rs.edit
       ...
       rs.update

Cela ne fonctionne pas, il me fait l'erreur suivante:

erreur d'execution '3075':
erreur de syntaxe(opérateur abs) dans l'expression 'titre= 'boissons' and 'stitre1'='Jus d'orange"

Lorsque je débug, ilme renvoie sur la ligne Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Une idée?

D'avance, merci pour votre aide...

HFanny · Accepted Answer

Bonjour,

pourquoi ne passerais tu pas directement par une requête sql d'update ? Ainsi tu modifierais ton enregistrement en une seule fois.

Sinon, as-tu fait un affichage de ta requête sql (MsgBox par exemple), pour voir si la requête est écrite comme tu le souhaites.
Par ailleurs, pour la comparaison de chaine de caractères, tu peux aussi utiliser l'opérateur LIKE.
SELECT * FROM table WHERE nom LIKE "toto"

De plus, il y a une cote dans le mot que tu compares : Jus d'orange.
L'erreur vient peut être de là. Il faudrait que tu fasses un replace de ta cote par une double cote.

Fanny

cs_frop01 · Answer

si j'ai bien compris tu as des champs stitre1, stitre2 ....

si c'est ca alors :
sql "select * from titreboissons where titre '" & cmbtitre2.Text & "' and stitre" & i & " = '" & cmbsoustitre.Text & "' "

cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

energiez · Answer

Oui effectivement, j'ai pls soustittre:
stitre1, stitre2....

Cependant, même avec votre code, j'ai tjs la même erreur :(

Je peux me permettre de vous/te contacter par msn?

Quoiqu'il en soit, merci pour votre/ton aide :D

energiez · Answer

Effectivement, je probléme vient de l'apostrophe de jus d'orange :(

Avez vous une solution permettant d'inclure des apostrophe et guillements?

HFanny, je ne comprends pas pas ton "option" sql update... Je ne suis pas trés calé dans ce domaine...

Quoi qu'il en soit, merci beaucoup de ton aide :D

cs_PhilippeE · Answer

1. Le problème de l'apostrophe

Tu te fais une fonction de substitution de toutes les quotes par des double-quotes. Tes requêtes prennent la forme suivant (en supposant Quote2DblQuote ta fonction qui te renvoit une string où les quotes sont doublées par rapport à la string reçue)sql "select * from titreboissons where titre '" & Quote2DblQuote(cmbtitre2.Text) & "' and stitre" & i & " = '" & Quote2DblQuote(cmbsoustitre.Text) & "' "

2. SQL Update

Fanny te demandait pourquoi tu passais par les curseurs ... une commande UPDATE aurait suffit peut-être.db.Execute "UPDATE titreboissons SET MonChamp1 MaValeur1, MonChamp2 MaValeur2, ..."

cs_PhilippeE · Answer

J'ai oublié mon WHERE dans ma requête de mise à jour, il fallait lire
db.Execute "UPDATE titreboissons SET MonChamp1 MaValeur1, MonChamp2 MaValeur2, ... WHERE MaCondition1 = MaValeurConditionnelle1 ..."

energiez · Answer

Merci beaucoup pour cette aide!
Je ne connaissait pas le db. execute "UPDATE..."
Effectivement, ca parait un peu plus simple!
Encore une fois merci  :)

cs_frop01 · Answer

exemple de requete 
Ajouter microsoft DAO 3.6 dans menu projet/référence si tu utilise access 2000

:

Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("c:\essai.mdb")
Set RS = DB.OpenRecordset("Select * From table1 Where prog='x-file'")
Do Until RS.EOF
Debug.Print RS!prog
RS.MoveNext
Loop

Si tu veux faire des modification :

DB.Execute "Update table1 set prog='Hello' where prog='x-file'"

si tu veux ajouter un enregistrement :

DB.Execute "insert into table1 values(6,'1','M6','01/01/01','20:00','0')"

pour la suppression :

DB.Execute "Delete * From table1 where prog='hello'"

energiez pour m'ajouter à ta liste msn : cyberscorp2004@msn.com

energiez · Answer

Merci beaucoup frop01!
Je t'ajoute a ma liste, dés que je suis de retour devant MON pc (soit demain)!

++

essmahane · Answer

j'ai fait ce code dansune zone de texte a l'etat de keys presse .je vouderais que lors j'ecris un mot sur ma zone de texte il affiche directement dans la liste les noms ecris dans la zone de texte

sql1 = "select * from sitpedag where [nomar] like '*" + Text1.Text + "*' "

Set rs4 = db1.OpenRecordset(sql1)
List1.Clear
While Not rs4.EOF
rs4.MoveFirst
List1.AddItem rs4("numedoti")

essmahane · Answer

je voudrais la reponse le plutot possible

cs_frop01 · Answer

sql1 = "select * from sitpedag where [nomar] like '*" + Text1.Text + "*' "

Set rs4 = db1.OpenRecordset(sql1)
List1.Clear
rs4.MoveFirst
do until rs4.eof
List1.AddItem rs4!numedoti
rs4.movenext
loop

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

[VB6 et acces] J'arrive pas a resoudre un pb

12 réponses

Discussions similaires