Discussion :

[gnakouristeve]

Salut! Je demande de l'aide pour avancer dans mon developpement. Car depuis plusieurs semaines, je suis stopper par ce message au niveau de mes essais.
En effet, je developpe avec Visual Basic 6.0 et ma base est implémentée avec access 2007. Je précise que lors de l'enregistrement, je le fais sur ACCESS 2003 (parlant de la base access). La connexion base de données-Visual Basic est réussi selon mon test.
Mais il s'avère que mes enregistrements ne se retrouve pas dans ma base de de données.
Et le message affiché est le suivant:
Erreur d'exécution '3251'
Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou selectionné.

Je précise que j'utilise le data Environment1.update ou dataenvironment1.addnew dans mes commandes MODIFIER ou ENREGISTRER .

Merci de bien vouloir m'aider à resoudre ce problème qui m'embête vraiment.

[Delbeke]

Je ne connais pas bien ADO, aussi à prendre avec des pincettes.

Essaye d'ajouter une clé primaire à ta table.

[ucfoutu]

Bonjour,

tu ne nous montres pas le code utilisé pou ajouter ou modifier ....!
Cà, c'est un aspect ...
L'autre (que nous ignorons également) concerne les attributs du fichier access !

[tamaris85]

Salut,
je rencontre le même problème signalé dans ce poste !! et ça me gêne pour quelques jours
je travail aussi sur dataenvironment (là où j'écris les requetes)

j'ai essayé de vérifier les autorisations dans access, j'ai trouvé que tout est permis pour les utilisateurs et le système
sachant que le même code a bien fonctionné avant dans une antérieure application (mais avant je travaillait sur xp)

voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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

merci de bien vouloir m'aider
cordialement