Access

Question

voil&#224; j'ai un petit souci, je bosse sur une application VB avec Access
je sais ajouter un enregistrement avec .addnew/update, supprimer .delete. mais je souhaite mettre &#224; jour des enregistrements par le biais de TextBox en modifiant un champ et en cliquant sur enregistrer (Cmd)

dim base as datatbase
set base = opendatabase("C`:\...")

dim obj as recordset
set obj = base.openrecordset("Table", dbOpenDynaset)

with obj
   .MoveFirst
   While not .EOF
      'Mise &#224; jour des donn&#233;es
   
   wend
end with

Comment terminer le code ???? C'est urgent grave

cboulas · Answer

Salut, le principe n'est pas tr&#232;s compliquer, je te retrouverais un code dans quelques minutes, mais en fait il faut que tu fasse une selection dans ta base, donc une requette SQL, ensuite tu tu &#233;dite ton Recordset avec non pas cette fois .Addnew, ou .Delete, mais .Edit, ensuite tu pr&#233;cise des champs et ce qu'il contiendrons en respectant les formats, puis tu fait ta m&#233;thode .Update et c'est fini


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

jpleroisse · Answer

Private cmd MettreAjour_Click()
obj.Edit  '(permet de modifier l'enregistrement)
End Sub

Private cmdEnregistre_Click()
obj.UpDate
End Sub

jpleroisse

chid_ra · Answer

Ok, c'est cool, donc en modifiant les champs dont je souhaite, et en cliquant sur un Cmd Enregistrer (que j'aurais pr&#233;alablement cr&#233;er) &#231;a sera bon?

cboulas · Answer

Voici mon exemple promis :


    Dim wscltsrc As Workspace 'variable d'espace de travail
    Dim rscltsrc As Recordset 'variable de recordset
    Dim dbcltsrc As Database 'variable de database
    Set wscltsrc = DBEngine.Workspaces(0)   'D&#233;finition de l'espace de travail
    Set dbcltsrc = wscltsrc.OpenDatabase(fMainForm.baseurl, False, False, "MS Access;PWD=TonPassword")   'Connection &#224; la base
    Set rscltsrc = dbcltsrc.OpenRecordset("select * from usr where user='Administrateur'", dbOpenDynaset)   'Recherche de 'Administrateur' dans la base
        With rscltsrc   'Utilisation du Recordset
            .Edit   'Passage en mode &#233;dition
            !pwd = Text1.Text   'Modification des champs
            !mach = Text2.Text
            .Update   'Mise &#224; jour
        End With   'C'est FINI



Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

chid_ra · Answer

J'ai d&#233;j&#224; essayer le .Edit, il m'en cr&#233;er un autre d'enregistrement  voici les lignes de code dit moi ou je devrais le placer, car &#224; mon avis c'est dut &#224; sa position

With Obj
   .movefirst
      while not .EOF
         .Edit
         !Nom = nom.text
         !Prenom = prenom.text
         etc...

      wend
   .moveNext
end With

chid_ra · Answer

ok c'est cool je vais le tester merci, je te dis si &#231;a a fonctionner, t cool

chid_ra · Answer

j'ai remarqu&#233; que pour cet exemple tu cherches 'administrateur' et tu lui fait les modifs. Moi je souhaite chercher une personne dans la base enti&#232;re, ces donn&#233;es s'affiche dans les TextBox, je modifie un champ et ensuite je l'enregistre, &#231;a le fait quand m&#234;me?

cboulas · Answer

Dans mon exemple, je recherche dans ma base, au champs 'User' l'utilisateur "Administrateur", ensuite je lui fai direct les modif. en fait dans mon projet, je fait un SELECT pour afficher les donn&#233;e dans les textbox, puis quand je clique sur le bouton pour l'updatage, il refait la recherche et applique la modif, je refait la recherche afin d'&#234;tre certain qu'un autre utilisateur ne l'ai pas retirer entre temps.
j'ai d&#233;j&#224; utiliser cette m&#233;thodes pleins de fois, et pour charger les donn&#233;e, j'utilise :

textbox1.text=rscltsrc.fields("User")

pour afficher la donn&#233;e User dans le textebox.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

chid_ra · Answer

Et pour mon application c'est possible de trouver un d&#233;lire comme le tient sauf qui effectue une recherche dans toute la base

cboulas · Answer

Il faudrait pour cela lui faire faire une requette sur plusieurs table et d'updater ensuite, ou de faire une requette par table puis l'updatage et passer &#224; la table suivante.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

chid_ra · Answer

Justement je n'ai qu'une seule Table, et c'est une recherche sur l'ensemble de cette table que je souhaite et modifier ensuite l'enregistrement

cboulas · Answer

Voici alors la commande SQL &#224; &#233;x&#233;cuter : "SELECT * From TaTable"


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

Access

12 réponses

Discussions similaires