Mise à jour de données sous SQLSERVEUR via un Recordset ADODB

YopMaster Messages postés 2 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 18 avril 2002 - 18 avril 2002 à 15:00
YopMaster Messages postés 2 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 18 avril 2002 - 18 avril 2002 à 16:11
Voici le code que j'utilise pour créer un enregistrement dans un table SQL serveur via un objet recordset :

Public CoLilas As New ADODB.Connection 'Pointeur sur la Base de données

With CoLilas
.Provider = "SQLOLEDB.1"
.ConnectionString = "Persist Security Info=False;" & _
"User ID=admin; Password=admin;Initial Catalog=LILAS-BULL;" & _
"Data Source=CPT203"

.ConnectionTimeout = 6
.CommandTimeout = 6
.Open
End With

Rec_FNT.CursorLocation = adUseClient
Rec_FNT.Open "select CDDOMA,CDAPPL from FNT", CoLilas, adOpenDynamic, adLockPessimistic

If Not Rec_FNT.EOF Then
Rec_FNT.Addnew
Rec_FNT!CDDOMA = "toto"
Rec_FNT!CDAPPL = "Zob"
Rec_FNT.Update
Else
ok = MsgBox("Erreur d'accès aux données : Enregistrement non trouvé ! ", vbExclamation + vbSystemModal, "Erreur")
End If
Rec_FNT.Close

Ce code fonctionne très bien , mais lorsque je veux effectuer une mise à jour en utilisant le meme recordset , ca ne marche pas :

'**** Mise à jour
If Not Rec_FNT.EOF
Rec_FNT!CDDOMA = "toto"
Rec_FNT!CDAPPL = "zob"
Rec_FNT.Update
end if

-> il me dit que je met trop de champs à jour en meme temps .

par contre ...quand c'est qu'un seul champs , ca marche :

If Not Rec_FNT.EOF
Rec_FNT!CDAPPL = "zob"
Rec_FNT.Update
end if

Pour vous m'aider à résoudre ce Problème sans que j'utilise la méthode
Colilas.execute "Update FNT set ..." ???

1 réponse

YopMaster Messages postés 2 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 18 avril 2002
18 avril 2002 à 16:11
Complément d'information par rapport au
mail précédent :

J'ai regardé sur le site Msdn , et la syntaxe de mon code est bonne , l'erreur que j'ai étant la
suivante :
Erreur n° -2147467259 ...
Descrition : Informations sur la collone clé insuffisante ou incorrectes. trop de ligne sont
affectés par la mise à jour.

Est-ce un pb de paramètre SQLserveur ...ou
de droit d'accès ?

Pouvez-vous m'aider ??
0
Rejoignez-nous