modification access sous vb6 (update)

Question

voila mon code me il a rien a mise a jour modifier qlq un svp me aider merci d'avance.
Private Sub Command3_Click()
On Error Resume Next
Set table = New ADODB.Recordset
table.Open "SELECT * FROM archive", cn, 1, 2
If Trim(n_dossier) = "" Then
    MsgBox "N° de Fiche est Vide oû Non Enregistrer.", vbCritical, "Error"
    Exit Sub
End If
If n_dossier = table.Fields(0) Then


 


  table![adresse] = adresse.Text
  




 '***************************************
table.Update


table.Close
Else
MsgBox "Le Fournisseur n'est pas enregistrée", vbCritical

'End If
End Sub

-----------------------------------------------------------------------
@b-Soft

cs_Exploreur · Answer

Salut,

Ouais.....c'est quoi ton problème exactemen ??

A+
Exploreur

 Linux a un noyau, Windows un pépin

zen69 · Answer

c'est normal que tu ouvres pas de connexion ?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

cs_Exploreur · Answer

Re,

Sa connexion(cn) doit-être ouverte ailleurs je pense...du moins, cela serais mieux ! 

A+
Exploreur

 Linux a un noyau, Windows un pépin

Modification access sous vb6 (update)

3 réponses

Votre réponse

Discussions similaires