Problème connexion BD avec App.Path.

js8bleu Messages postés 576 Date d'inscription samedi 14 octobre 2006 Statut Membre Dernière intervention 27 janvier 2014 - 10 oct. 2009 à 02:59
cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 - 10 oct. 2009 à 11:30
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

cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
10 oct. 2009 à 11:30
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
0
Rejoignez-nous