utiliser un update dans avec acess

Question

bonjour
J'ai une base de donn&#233;es acess, je veux modifier une ligne quelconque de la table client. voici la procedure

 Data1.Recordset.Edit
       Data1.Recordset.nom = txtmod(0).Text
       Data1.Recordset.pr&#233;nom = txtmod(1).Text
       Data1.Recordset.Adresse = txtmod(2).Text
       Data1.Recordset.N&#176;Domicil = txtmod(3).Text
       Data1.Recordset.N&#176;Mobile = txtmod(4).Text
       Data1.Recordset.Email = txtmod(5).Text
 Data1.Recordset.Update

mais cette procedure change toujour la premiere ligne de la table comment faire pour changer la 3 ligne par example.

J'ai essay&#233; de la fa&#231;on suivante
requete "UPDATE data1 SET Nom '" & txtmod(0).Text & "',Pr&#233;nom='" & txtmod(1).Text & "',Adresse='" & txtmod(2).Text & "',N&#176;Domicil='" & txtmod(3).Text & "',N&#176;Mobile='" & txtmod(4).Text & "',Email='" & txtmod(5).Text & "' WHERE numclient =" & num & ""

    Data1.Database.Execute requete

mais j'ai un message d'erreur qui me dit que j'ai un probl&#232;me de syntaxe je ne vois pas.
pouvez m'aider merci

greg38bj · Answer

Private Sub UpdateEnregistrement()    data1.database.Execute ("UPDATE nomdetatable SET Nom '" & UCase(Replace(txtmod(0).Text , "'", "''")) & "', Pr&#233;nom '" & Replace(txtmod(1).Text , "'", "''") & "', Adresse = '" & Replace(txtmod(2).Text , "'", "''") & "', N&#176;Domicil= '" & txtmod(3).Text & "', N&#176;Mobile= '" & txtmod(4).Text & "', Email = '" & Replace(txtmod(5).Text , "'", "''") & "' where numclient = " & Val(num.text) & ";")
End Sub

Private Sub Modifier_click()
UpdateEnregistrement
End Sub

tof72 · Answer

je ne comprend pas pourquoi tu utilise un replace dans la requete sql. car je ne voix pas se que je dois mettre en les guillmet

replace(txtmod(0).text , "","")

jpleroisse · Answer

Bonjour,

tu dois changer

 Data1.Recordset.Edit

       Data1.Recordset.nom = txtmod(0).Text

       Data1.Recordset.pr&#233;nom = txtmod(1).Text

       Data1.Recordset.Adresse = txtmod(2).Text

       Data1.Recordset.N&#176;Domicil = txtmod(3).Text

       Data1.Recordset.N&#176;Mobile = txtmod(4).Text

       Data1.Recordset.Email = txtmod(5).Text

 Data1.Recordset.Update

en:

 Data1.Recordset.Edit

       Data1.Recordset.Fields!nom = txtmod(0).Text

       Data1.Recordset.Fields!pr&#233;nom = txtmod(1).Text

       Data1.Recordset.Fields!Adresse = txtmod(2).Text

       Data1.Recordset.Fields!N&#176;Domicil = txtmod(3).Text

       Data1.Recordset.Fields!N&#176;Mobile = txtmod(4).Text

       Data1.Recordset.Fields!Email = txtmod(5).Text

 Data1.Recordset.Update



jpleroisse

tof72 · Answer

merci pour ta reponse jpleroisse mais sa fait la meme chose que moi sa modifie toujour la premiere ligne de la table.

J'explique comment je proscede. 
je fait une requete select pour sur la table grace a un objet data.
j'utilise un msfexgrid pour affich&#233; les info du data
puis je clique sur la ligne qui me convient, les infos sont mis dans des textes
je modifie les champs textes 
enfin je lance la requete update.

dans ma table j'ai un champs numclient qui est la cl&#233; primaire. ce champs s'incremente tous seul.
c'est la seul fa&#231;on de savoir quel ligne qui font modifier.

greg38bj · Answer

il n'y a rien a mettre entre les guillemets, mets la fonction updateenregistrement comme elle est dans ton code, puis fais toi un bouton Modifier avec lequel tu appellera la fonction &#231;a devrait marcher ...
Pour les guillemets, j'ai trouv&#233; cette solution pour les probl&#232;mes d'apostrophe dans les champs que l'on remplit.

tiens-moi au courant
greg38bj2005@free.fr
:@ +

tof72 · Answer

j'ai mis la requete mais sa ne change rien.

j'ai le message suivant

erreur 3144
erreur de syntaxe dans l'instruction UPDATE

Utiliser un update dans avec acess

6 réponses

Discussions similaires