Problème connexion BD avec App.Path.

Signaler
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
Bonjour,

je n'arrive pas à me connecter à ma BD pourtant mon code semble être correct. Le voici :

Public cn As New ADODB.Connection
Public Sub connect()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = App.Path & "\BD\MaBD.mdb"
cn.Open
End Sub


Il m'affiche une erreur comme quoi le chemin n'est pas valide (pourtant il l'est).

Merci d'avance.

Cordialement.

1 réponse

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Public cn As New ADODB.Connection
Public Sub connect()
 Set cn = New ADODB.Connection
 cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BD\MaBD.mdb;User Id=admin;Password=;"
 cn.Open
End Sub 'Connect

---
VB.NET is good ... VB6 is better