comment corriger ce beug??

Question

bonjour,
je fait un travail sur vb6, sur une base de données access , j'écrit les requete dans l'activX de dataenvironment
pour le moment g fait deux requette :
SELECT * FROM patiente ORDER BY id_pat
select * from patiente where  id_pat=?

mon problème c'est que lorsque je veux faire une opération d'ajout il m'affiche toujours le message d'erreur suivant lors de l'exécution : Erreur d'exécution '3251':
le jeu d'enregistrement ne prends pas en charge la mise à jour. il s'ajit peut être de'une limitation du fournisseur ou du type de verrou selectionné

voilà le code que j'ai fait pour l'opération d'ajout
 
If nom.Text "" Or prenom.Text "" Or id_pat.Text = "" Then
    MsgBox (" Vous devez saisir tous les champs"), vbInformation, "Fiche patiente"
Else
   
    
     DataEnvironment1.existpat id_pat.Text
    
         If DataEnvironment1.rsexistpat.EOF Then
            'procédure d'ajout
             With DataEnvironment1
                If .rsaddpat.Supports(AddNew) Then
                
                    .rsaddpat.Open
               'ici le beug dans la ligne suivante
                    .rsaddpat.AddNew
                    .rsaddpat.Fields("nom") = nom.Text
                    .rsaddpat.Fields("prenom") = prenom.Text
                    .rsaddpat.Fields("id_pat") = id_pat.Text
                    
                  
                    .rsaddpat.Update
                    .rsaddpat.Close
                   
                
              
                    MsgBox "Opération d'ajout réussite", , "Fiche patiente"
              Else
                MsgBox "Espace Insuffisant", vbInformation, "Fiche patiente"
              End If
             End With
            'procédure d'ajout
       
       Else
        MsgBox "Cette patiente existe déjà", vbCritical, "Fiche patiente"
       End If
    DataEnvironment1.rsexistpat.Close

comment je dois faire? 
je vous remercie d'avance

lightdarkness · Answer

personne ne peux m'aider?
au secours s'il vous plais je suis bloqué !!

Comment corriger ce beug??

1 réponse

Votre réponse

Discussions similaires