Discussion :

[youssef222]

bonjour mes amis ;je suis en train de prepare une application "gestion stagiaire " j"ai un button "ajouter un nouveau stagiaire" j'ai tape le code mais un message d'erreur s'affiche :

le jeu d'enregistrements suivant ne prend pas en charge la mise a jour.il s'agit d'une limitation du fournisseur ou de type verrou selectionné"

dans la connexion avec la base donnee j'ai pas utilisé ado j"ai declaré
module :

Code :

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

public cn as adodb.connection

etc
aider moi s'il cous plait

[OhMonBato]

Bonjour,
comment veux tu qu'on t'aide si tu ne nous montres pas ton code en spécifiant sur quelle ligne se produit l'erreur ?

[youssef222]

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
 
Private Sub ajouter_Click()
 
 
If Text1.Text = "" Then
MsgBox "veuillez remplir le champ numéro stagiaire,c'est obligatoire"
Exit Sub
End If
Do While Not r.EOF
If r.Fields(0) = Text1.Text Then
MsgBox "Ce numero existe deja", vbInformation
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
r.MoveNext
Loop
 
r.AddNew
r.Fields(0) = Text1.Text
r.Fields(1) = Text2.Text
r.Fields(2) = Text3.Text
 
End Sub
Private Sub Form_Load()
seconnecter
With r
.Open "select * from stagiaire", cn, adOpenDynamic, adLockOptimistic
End With
End Sub

[OhMonBato]

Tu ne précises pas sur quelle ligne se produit l'erreur, on ne voit pas le code de la procédure 'seconnecter' pas plus que la déclaration de 'r'.

Mais ça peut être dû au fait aussi que ta base de données est en lecture seule. Cette base est elle sur la même machine que ton programme ou sur un lecteur réseau ?

[youssef222]

dans la meme machine

Code :

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

1
2
3
4
5
6
7
 
Public cn As New Connection
Public r As New Recordset
 
Sub seconnecter()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\chahir\Mes documents\prj.mdb;Persist Security Info=False"
End Sub

[ProgElecT]

Cela peut provenir du mode d'ouverture de ta BD
Exemple:

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Public CheminDataBase As New ADODB.Connection
Public TablES1 As New ADODB.Recordset
 
Public Sub TestBaseSourceExiste()
CheminDataBase.Mode = adModeReadWrite
' CheminDataBase.Open "PROVIDER=Mic ............
End Sub

L'important et le mode d'ouverture, ici adModeReadWrite