Discussion :

[cyberbiker]

Bonjour,
J'ai une base Acces et j'aimerai mettre à jour lorsuqe je modifie un truc dans une textbox par un bouton.
Voici 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
 
Private Sub txt_save_Click()
   Set cnx = New ADODB.Connection
   Set rs = New ADODB.Recordset
 
   cnx.Provider = "Microsoft.Jet.Oledb.4.0"
   cnx.ConnectionString = "C:\Documents and  Settings\Nicolas\Bureau\VB\PROJET\pk_tb_stagiaire.mdb"
   cnx.Open
 
   rs.Open "SELECT * FROM tb_stagiaire", cnx
 
 
   rs.Update
 
End Sub

J'ai un soucis, il s'arrête sur rs.update, j'ai pourtant pas l'impression de lui avoir dit une connerie.
Par contre là, je vais peut-ête en dire une : j'ai grouper mes textbox (qui s'appelle donc txt_nom(0).text txt_prenom(1).text, et j'ai mis dans les DataSource rs (mon recordset) pour toutes les textbox.

Question : Pourquoi ca marche pas, et ou sont mes erreurs?

Merci d'avance

[sovo]

J'ai un soucis, il s'arrête sur rs.update

Et il dit quoi comme message d'erreur ??

[cyberbiker]

Voilà, le message d'erreur :

Erreur : 3251
"Le jeu d'enregistrement suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné"

et je sais pas pourquoi

[stef_445]

C'est effectivement une histoire de provider

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
 
 
Private Sub txt_save_Click()
   Set cnx = New ADODB.Connection
   Set rs = New ADODB.Recordset
 
   cnx.Provider = "Microsoft.Jet.Oledb.4.0"
   cnx.ConnectionString = "C:\Documents and settings\Nicolas\Bureau\VB\PROJET\pk_tb_stagiaire.mdb"
   cnx.Open
 
       With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "SELECT * FROM tb_stagiaire", cnx
    End With
 
 
   rs.Update
 
End Sub

[cyberbiker]

Il n'y a rien qui se passe, il ne me met pas d'erreur. pourrait-tu m'explique ta a quoi sert ta syntaxe??
Merci

[stef_445]

Le problème vient du fait que :

1- tu ouvres ton recordset
2- tes données s'affiche dans tes textbox (si ils sont bien liés au recordset!)
3- puis tu fais un Update

donc finalement tu Update les mêmes données sans les avoir changées!!

La réponse se trouve 3 post plus bas (tu pourra remercier jacma)

http://www.developpez.net/forums/sho...d.php?t=208953

Pour ce qui est du Update le code de ton bouton deviens simplement

Code :

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

1
2
3
4
 
Private Sub txt_save_Click()
   rs.Update
End Sub