[VB6] ADO UPDATE ????

Question

Salut...

Je ne comprend plus rien du Update dans ADO....

Voici mon problème....

Je fais un ajout dans ma base de données ACCESS et je fais un UPDATE. Jusqu'ici ca fonctionne....

Si je fais une recherche de cette enregistrement et que je veux faire une modification le update ne fonction pas. Il change aucune information. Je suis capable d'Uptader (de midifier) uniquement la première enregistrement (qui se retourve sur la première ligne de ma Base de Données ACCESS).

Pourquoi ca fais ca....

J'ai vu sur le forum cette suggestion " il faut faire un update pour mettre à jour la table avec une condition portant le numéro d'identifiant"
Qu'est ce que le numéro identifiant (la clée primaire?????) et il y avant un exemple de code...
 Update Table Set (champ '" & tavaleur & "'") where condition '" & tacondition & "'"


Est ce que je doit prendre cette ligne de code ??????

Donc si mon recordset est BD
le champs est DOSSIER
le "Tavaleur" = txtRecherche

et je ne sais pas quelle condition je peux mettre...

Si quelqu'un peut me donner un exemple de code..

merci d'avance...

neometaller · Answer

Cette ligne : Update Table Set (champ = '" & tavaleur & "'") where condition = '" & tacondition & "'", c'est si tu veux passer par du SQL, mais perso avec Access et ADO, j'utilise des Recordset et &#231;a fonctionne nickel...



Est-ce que tu te places sur le bon enregistrement avant modification ???

rst.Find "Crit&#232;re" ou rst.Filter = "Crit&#232;res"

Totoroyamada · Answer

Peut-&#234;tre me trompe-je, mais l'apostrophe en tant qu'identificateur de texte c'est sous SQL, sous Access c'est le guillemet...

Donc la cha&#238;ne &#224; faire passer ne serait pas:

Update MaTable Set MonChamp 'MaValeur'  Where MonChamp 'MaCondition'

mais:

Update MaTable Set MonChamp "MaValeur"  Where MonChamp "MaCondition"

traduit en VB &#231;a donne:

Dim MaRequete as String


MaRequete "Update MaTable Set MonChamp
 " & """" & "MaValeur" & """" & " Where MonChamp = "
& """" & "MaCondition" & """"

(en rempla&#231;ant &#233;videmment "MaValeur" et "MaCondition" par les variables ad&#233;quates)




Quelqu'un peut me dire si je divague?

neometaller · Answer

en fait &#231;a d&#233;pend du moteur utilis&#233; avec Access...

si c'est Jet, normalement tu peux utiliser les " ou les ' mais si c'est MSDE (SQL Server) il n'y a que les '.

et comme JeffC1977 parle de ADO, j'en d&#233;duis que c'est du MSDE...

Totoroyamada · Answer

"R&#233;ponse accept&#233;e!"



Merci bien ;-)

neometaller · Answer

&#231;a sert &#224; koi "R&#233;ponse accept&#233;e" ???

cs_CanisLupus · Answer

Salut, pour fair l'update d'1 seul enregistrement, tu dois d'abord te positionner sur cet enreg comme dit NeoMettaller (m&#233;thode find). Puis :

rst.edit
rst!TonChampAModifier = tanouvellevaleur
rst.update

S'il s'agit d'updater toute la table, pas besoin de recordset :taconnexion.execute "UPDATE TaTable SET TonChampAModifier 'toto' WHERE TonChampAModifier 'titi'"
Avec cet exemple, tu remplaces 'toto' par 'titi' dans tous tes enregs. 
Avec des variables texte &#231;a donne :taconnexion.execute "UPDATE TaTable SET TonChampAModifier '" & var1 & "' WHERE TonChampAModifier '" & var2 & "'"

Avec des variables num&#233;riques &#231;a donne :taconnexion.execute "UPDATE TaTable SET TonChampAModifier " & var1 & " WHERE TonChampAModifier " & var2

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Totoroyamada · Answer

Ben visiblement (parce que je ne suis pas un grand habitu&#233; du forum)
quand quelqu'un poste un sujet, sur les r&#233;ponses des gens y a un bouton
"R&#233;ponse accept&#233;e" qu'il peut cliquer si la r&#233;ponse lui convient, ce
qui a pour effet de mettre le message en vert comme on peut le voir
ici: http://forum.vbfrance.com/forum.v2.aspx?ID=537767#5 Ca permet
ensuite aux autres de voir tout de suite que la solution a &#233;t&#233; trouv&#233;e.
Le mien &#233;tait un faux "R&#233;ponse accept&#233;e", c'&#233;tait juste histoire de
dire que tu avais r&#233;pondu &#224; ma question...

neometaller · Answer

ok merci Totroyamada.. je suis pas un grand habitu&#233; aussi :)



juste pour info CanisLupus, avec ADO, il n'y a plus besoin de rst.Edit...

cs_CanisLupus · Answer

Exact NeoMetaller, confusion avec DAO. 

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Doro81079 · Answer

bonjour;

je me permets de repondre car j'ai poser la meme question et on m?a repondu vaguement

Donc si j'ai bien compris il faut mettre cette ligne pour chaque champ
à modifier?!
Par contre au niveau des ' et des " quand c'est des textbox ?!

par exemple txtrecherche il faut '" & txtrecherche & "'"

là je pense avoir compris mais avec ces lignes on a pas besoin de se placer sur l'enregistrement avant?!
et si oui comment fait on parce que c'est ça la vrai question!!

merci
doro

Doro81079 · Answer

une autre question find edit c'est pas du DAO???
doro

Totoroyamada · Answer

Doro, c'est du contenu de ta textbox que tu dois te servir donc
txtrecherche.text... tu le stockes dans une variable et tu t'en sers
comme indiqu&#233; plus haut...

Doro81079 · Answer

salut 
oui je parler bien du contenu mais j'ai oublier de mettre text désolé 
donc ok je vais me servir de variables
mais pour me placer sur le champ avant de placer ces lignes 
je fais un truc du genre

tb.open "select* from matable where mon champ=txtrecherche
et ensuite je mets a jour la table
c'est ça

merci

doro

ps désolé pour les abréviations ou les oublis mais je me lève

neometaller · Answer

Les ' en ADO ou " (ou ') en DAO
c'est pour les champs de ta bases qui contiennent du texte, si tu
enregistres un num&#233;ro t'es pas oblig&#233; de les mettre...



Sinon Find ou Filter c'est en ADO

En DAO c'est FindFirst (ou autre)




tb.open "select * from matable where mon_champ = '" & txtrecherche & "'"

&#231;a fonctionne si tu cherches un seul enregistrement



Si tu es dans une boucle, tu peux faire :

tb.open "select * from matable"

et apr&#232;s tu fais des :

tb.Find "mon_champ = '" & txtrecherche & "'" (1 seul crit&#232;re)

ou

tb.Filter "mon_champ '" & txtrecherche & "' AND mon_champ2 = '" & txtrech2 & "'"... (plusieurs crit&#232;res)



Ca te va &#224; peu pr&#232;s???

Doro81079 · Answer

re,
merci neometaler
enfin une réponse complète...
j'essais et je te dis 
encore merci
salut
doro

Doro81079 · Answer

rebonjour,
alors d'abord merci a neometaler,totoroyamada et a cannislupus
je vous aurez bien mis réponse accepter mais c'est pas moi qui est poster

j'ai mis le code entier sur ce post
http://www.vbfrance.com/forum.v2.aspx?ID=537104 

pour les débutants comme moi qui ne comprendront pas les codes sortis de leur contexte

j'y ais mis également un appel aux membres de vb pour le post des débutants 

encore merci à vous trois car ça fait un moment qu'on post sur ce problème et il n'y a jamais eu de réponse satisfaisante

merci(grand)
salut
doro

[VB6] ADO UPDATE ????

16 réponses

Discussions similaires