Discussion :

[bmad1]

Bonjour à tous,
Comment faire un update de champ dans la BDD à partir d'une macro?

Pour faire un insert j'utilise:

Code :

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

1
2
3
 mrst.AddNew
 mrst.Fields("mb_mag") = 001
 mrst.Update

Comment modifier le champ mb_mag en 002?

Merci par avance.

[Godzestla]

Code :

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

1
2
3
mrst.edit
mrst.Fields("mb_mag") = 002
mrst.Update

[bmad1]

Merci pour votre réponse, mais la methode "edit" n'existe pas....

J'ai EDITMODE mais c'est tout.

[Godzestla]

C'est un exemple qui vient d'un de mes codes access. je n'ai pas vérifié.

Comment as-tu déclaré Mrst ?

Tu peux montrer le code complet de cette procédure (avec la déclaration de mrst) ?

[bmad1]

Ce code doit permettre de mettre à 1 tous les top_trait de la table "XX_CDE_TRT "

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public ADOCnx As New ADODB.Connection
Public ListeCDE As New ADODB.Recordset
 
ListeCDE.Open "select * from XX_CDE_TRT WHERE top_trait = 0", ADOCnx
While Not ListeCDE.EOF
 With ListeCDE
     .Fields("top_trait") = "1"
     .Update
     .MoveNext
 End With
Wend

[Godzestla]

Re,
désolé mais je ne sais pas t'aider car je ne connais rien à ADO.

Bonne chance.

[bmad1]

J'ai fait autrement....et ca marche.

Code :

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

1
2
3
4
 
 query = "UPDATE XX_CDE_TRT SET top_trait = 1 where numcde = " & ListeCDE!numcde & " and numart=" & ListeCDE!numart
    ' Exécution de la requête
    ADOCnx.Execute query, iAffected, adExecuteNoRecords

[AlainTech]

et ca marche.

Dans ce cas, un petit clic sur ?

Merci