Discussion :

[philippef]

Bonjour,

Il y a des lustres que je n'ai pas programmé et je tourne en rond avec une requete de mise à jour !!!
j'ai ceci qui fonctionne

Code :

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

1
2
3
4
5
    Set Rc = New ADODB.Recordset
    Where id_affectation = CbAffectation1.Column(0)
    Rc.Open "Select * From Affectations Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockOptimistic
    Rc.Fields(1) = TxChange.Text
    Rc.Update

Mais j'aimerai mieux quelque chose dans ce genre là. Mais ça marche pas

Code :

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

    Rc.Open "UPDATE Affectations SET (affectation = " & TxChange.Text & ") Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

Merci de m'aider

[ProgElecT]

Code :

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

    Rc.Open "UPDATE Affectations SET (affectation = " & TxChange.Text & ") Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

si le champs affectation et de type littéral ajouter des apostrophes en début et fin de " & TxChange.Text & "

Code :

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

    Rc.Open "UPDATE Affectations SET (affectation = '" & TxChange.Text & "') Where (id_affectation = " & CbAffectation1.Column(0) & ")", Ct, adOpenDynamic, adLockBatchOptimistic

les parenthèses me semble superflues

Code :

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

    Rc.Open "UPDATE Affectations SET affectation = '" & TxChange.Text & "' Where id_affectation = " & CbAffectation1.Column(0), Ct, adOpenDynamic, adLockBatchOptimistic