Enregistrer sur une même ligne avec ADO???

Question

Salut à tous

J'ai un gros problème d'enregistrement en utilisant la liaison ADO!

Pour enregistrer mes valeurs, je ne peux pas utiliser "addnew", vu que je veux enregistrer dans le même 

enregistrement à chaque fois (même ligne dans la BD), pour une suite de valeur saisie, mais dans différente 

colonne.
Donc j'utilise la méthode "Update", mais ça plante et il me met ce message :

>>
----------
Erreur d'exécution '+2147467259 (80004005)' :

Impossible de mettre à jour; actuellement verrouillé par l'utilisateur 'admin' sur l'ordinateur 'MIC2170'.
----------

Mais pour utiliser la méthode "Update", MSDN me dit de faire ceci :

. Affectez des valeurs à la propriété Value de l'objet Field et appelez la méthode Update.
. Passez un nom de champ et une valeur sous forme d'arguments lorsque vous appelez la méthode Update.
. Passez un tableau de noms de champs et un tableau de valeurs lorsque vous appelez la méthode Update. 

Mais à vrai dire, étant encore débutant, je ne comprends pas tout!!!

Vous pouvez retrouver mon code à cette adresse : 

Mon PB se situe dans la feuille "FrmSaisieValeurs" que vous obtenez lors de l'exécution du Prog!

'EXTRAIT DE MON CODE
'------------
Option Explicit
Dim DB As Database
Dim rstEssai As Recordset
Dim rstPV As Recordset

Public Sub Form_Load()
Set DB = OpenDatabase("BD.mdb") 'Connexion à la base de Donées
Set rstEssai = DB.OpenRecordset("Essai") 'Associe l'objet d'enregistrement à la table
Set rstPV = DB.OpenRecordset("PV") 'Associe l'objet d'enregistrement à la table
.
.
.
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BD.mdb" 'ouvre la BD
Adodc1.RecordSource = "PV" 'se connecte à la table "PV"
Adodc1.Refresh
End Sub

Public Sub Command2_Click()
ValSaisie = TextVar.Text
'MsgBox (ValSaisie)

‘Adodc1.Recordset.MoveLast 'En le faisant se déplacer il enregistre les données
Adodc1.Recordset.Update (Var), ValSaisie 'Ajoute à la base

TextVar.Text = ""
.
.
.
End Sub
'------------

Je précise que j'ai besoin d'utiliser aussi des objets d'accès au données DAO, pour d'autre fonction en liaison 

avec cette BD!!!

>> Je ne pense pas que ce soit la source de mes PB!?!

Comment on peut résoudre ce PB d'enregistrement ADO!?!

Merci d'avance pour votre aide!

Vince

cs_Vince26 · Answer

Mince, j'ai oublié de vous donner le lien vers lon Prog! ...

>> http://mastervince26.free.fr/VBFrance/Pade.zip

Enregistrer sur une même ligne avec ADO???

1 réponse

Discussions similaires