Connexion a une base distante

Signaler
Messages postés
1
Date d'inscription
jeudi 24 juillet 2003
Statut
Membre
Dernière intervention
9 mars 2005
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
salut

j'ai mis une base access sur un server
avec mon prog vb6 je me connecte a elle

pour une consultation : aucun probleme la requete me retourne bien
les enreg mais lorsque je fais une requete pour modifier un enregistrement :

aucun message d'erreur n'apparait

mais lorsque je fait un cnx.Close windows me retourne un message d'erreur :
" windows - l'écriture décalée à échoué "

de plus l'update n'a pas été éffectué....

voici ma méthode de connexion :

chemin = Form_contact.Text_adresse_base.Text
Set CNN_Connexion = New ADODB.Connection


Dim string_pab As String


string_pab = "Provider=Microsoft.Jet.OLEDB.4.0;"
string_pab = string_pab & "Data Source=" & chemin & ";"

CNN_Connexion.ConnectionTimeout = 30
CNN_Connexion.CursorLocation = adUseClient
CNN_Connexion.Mode = adModeReadWrite


CNN_Connexion.Open string_pab

et je fait mon update comme cela :

Set CMD_maj = New ADODB.Command
CMD_maj.ActiveConnection = CNN_Connexion
CMD_maj.CommandType = adCmdText
CMD_maj.CommandText = "select * from table where champs= 1"


Set RS_Maj = New ADODB.Recordset
RS_Maj.CursorLocation = adUseClient
RS_Maj.CursorType = adOpenDynamic
RS_Maj.LockType = adLockPessimistic


RS_Maj.Open CMD_maj


'RS_Maj.Open


RS_Maj("champ1").Value = "1"
RS_Maj("champ2").Value = "2"
RS_Maj("champ3").Value = "2"
RS_Maj("champ3").Value = "2"
RS_Maj("champ3").Value = "2"
RS_Maj("champ3").Value = "2"

RS_Maj.Update

je ne comprends pas ce qui se passe pouvez-vous me renseigner sur mon erreur

merci d'avance pour toute réponse

PAB

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Je ne connaît pas ce genre de code , j'utilise ADO, mais si tu fais RS_Maj.Update, tu dois avoir fait avant RS_Maj.AddNew

jpleroisse