cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
14 janv. 2006 à 12:17
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
14 janv. 2006 à 13:52
Bonjour
voila mon code pour me connecté à ma base,mais si je met un mot de passe à ma base ACCESS,quelle ligne je doit rajouté pour me connecté
Sub Main()
On Error GoTo erreur
'Connection base de donnée
Set Db = New ADODB.Connection
Db.Provider = "Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\BD\Articles.mdb"
'DB.Provider = "Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\BD\Film.mdb"
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
merci
@ plus
petchy