connexion VB6 +ACCESS 2003

Question

Bonjour; 
je suis en train de développer une application utilisant access 2003 comme  et VB6 j'ai utilisé le code suivant pour la connexion :
Public Db As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public NA As Integer
Public Sql As String
Public Sub Connect()
   On Error GoTo fin
Db.Provider = "Microsoft.Jet.OLEDB.4.0"
Db.ConnectionString = App.Path & "C:\Users\Client\ACCESS\essai1.mdb"
Db.Open
 Exit Sub
fin:   
End Sub
Public Sub Deconnect()
   On Error GoTo fin
    Rs.Close
    Set Rs = Nothing
    Db.Close
    Set Db = Nothing
    Exit Sub
fin:
End Sub
mais lors de l'éxécution j'ai l'erreur 3709 la connexion est fermée ou non valide dans ce contexte 
please help me !!!!!
j'ai besoin de votre aide 
j'ai cherché beaucoup mais sans résultat !!

cs_Jack · Answer

Salut 
Db.ConnectionString =   App.Path & "C: \Users\Client\ACCESS\essai1.mdb" 
n'a aucun sens, vérifie 

Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Connexion VB6 +ACCESS 2003

1 réponse

Votre réponse

Discussions similaires