connexion a une base distante

Question

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'&#233;criture d&#233;cal&#233;e &#224; &#233;chou&#233; "

de plus l'update n'a pas &#233;t&#233; &#233;ffectu&#233;....

voici ma m&#233;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&#233;ponse

                                                                        PAB

jpleroisse · Answer

Je ne conna&#238;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

Connexion a une base distante

1 réponse

Discussions similaires