Discussion :

[aboulhawl]

Bonjour,
Comment gérer une base de données access protégée par un mot de passe avec VB5 et Crystal report.
Lorsque la base de donnée access possede un mot de passe, Crystal ne parvient pas à accéder à la base de donnée. Comment faire pour qu'il puisse lire le mot de passe ?

Voila le code que j'ai fais mais qui marche avec base donnée non protégée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
cr.DataFiles(0) = (App.Path & "\base.mdb")
cr.ReportFileName = App.Path & "\etat-client.rpt"
cr.Action = 1

Merci pour votre réponse et à bientôt

[luc_chivas]

Bonjour,
Comment gérer une base de données access protégée par un mot de passe avec VB5 et Crystal report.
Lorsque la base de donnée access possede un mot de passe, Crystal ne parvient pas à accéder à la base de donnée. Comment faire pour qu'il puisse lire le mot de passe ?

Voila le code que j'ai fais mais qui marche avec base donnée non protégée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
cr.DataFiles(0) = (App.Path & "\base.mdb")
cr.ReportFileName = App.Path & "\etat-client.rpt"
cr.Action = 1

Merci pour votre réponse et à bientôt

bonjour,

Google est ton ami ??

dis nous si cela fonctionne encore

[aboulhawl]

voila ce que j'ai fais et ça fonctionne dans le cas general comme l'exemple suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set db = DBEngine.OpenDatabase(".\auberge.mdb", False, False, ";pwd=motdepasse")
cr.ReportFileName = App.Path & "\etat-client.rpt"
cr.Action = 1
db.Close

mais dans cette exemple ou il y a une condition de filtre ça marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
cr.DataFiles(0) = (App.Path & "\basedonnees.mdb")
Set db = DBEngine.OpenDatabase(".\auberge.mdb", False, False, ";pwd=motde passe")
cr.ReportFileName = App.Path & "\etat-materiel.rpt "
cr.SelectionFormula = "{reservmateriel.date-Résérvation}>=date(" & Format(CDate(du), "yyyy,mm,dd") & ") and {reservmateriel.Date-résérvation}<=date(" & Format(CDate(au), "yyyy,mm,dd") & ")"
cr.Action = 1
db.Close

et j'ai trouvé ça : http://doc.ddart.net/mssql/sql2000/h...ingopening.htm
je cherche une solution SVP si vous en avez une merci