Probleme de connection à la base [Résolu]

Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Bonjour
je viens de formater mon ordi,j'ai tous réinstaller,et quand je veut lancer mon prog ,jai le message "MsgBox" qui s'affiche,pourtant la base est bien dans le dossier BD,je ne comprends pas


' Variables connection BD
Public Db As ADODB.Connection
Public requete As String

Sub Main()
On Error GoTo erreur
'Connection base de donnée
Set Db = New ADODB.Connection
Db.Provider = "Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=" & App.Path & "\BD\centre_aéré.mdb;" & "Persist Security Info=False"
Db.Open
Frm_Accueil.Show
Exit Sub
erreur:
MsgBox "Probleme de connection à la base de donnée" & vbCrLf & "Vérifiez que la base de donnée se situe dans le repertoire BD", vbCritical, "Erreur de connection"
End
End Sub

auriez vous une idée
merci
petchy

2 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
13
Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=" & App.Path & "\BD\centre_aéré.mdb;Persist Security Info=False"

Afficher Err.Description ne serait peut-être pas une mauvaise idée !
---
VB.NET is good ... VB6 is better
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re

j'ai désinstaller VB6 et je l'ai réinstallé et tout fonctionne
@ plus
petchy