pb mise à jour d'un champ à partir du recordset

Question

Je voudrais mettre à jour un champ de ma table
mais avec mon code g droit à l'erreur3021, qui me dit :
BOF ou EOF = true ou l'enregistrement actuel a été supprimé.
l'opération demandée necessite un enregistrement actuel

voila mon code:

'connexion à la base de données
 If MsgBox("Etes vous sur de vouloir modifier cette enregistrement", vbYesNoCancel) = False Then
    Exit Sub
   Else
         Set cnx = New ADODB.Connection
            With cnx
                .ConnectionString = dsn_nom
                .Mode = adModeReadWrite
                .Open
            End With
        
        
        'on ecrase les informations nominatives sur l'adherent par les nouvelles
        Set rst = New ADODB.Recordset
   
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic        rst.Open "select prenom_adherent from adherent where prenom_adherent '" & Txt_prenom & "' and code_adherent " & num & "", cnx
        rst.Requery
        rst.Update

je ne sais plus quoi faire
car g essayer avec une commandtext en utlisant isert into mais je n'y arrive pas non plus

merci

cs_funseb · Answer

tu peux faire comme ceci :

cnx.open dsn_nom
rst.open "select prenom_adherent from adherent where prenom_adherent '" & Txt_prenom & "' and code_adherent " & num & "", cnx,adopenkeyset,adlockpessimistic

rst.fields("prenom_adherent") = nouvelle donnée

rst.update
rst.close
cnx.close

clac-clac

william the new · Answer

bon je viens d'essayer ce que tu me propose mais ça ne marche pas non plus
donc si tu as une autre idée je suis preneur

cs_funseb · Answer

verifie deja que ta requete est bonne en la testant directement sur access !!
au fait c kel champs que tu met a jour ??
clac-clac

william the new · Answer

c bon ça marche
g trouvé mon erreur

merci de m'avoir aidé

Pb mise à jour d'un champ à partir du recordset

4 réponses

Discussions similaires