Bonjour,

J'ai créé un porgramme et je souhaite faire des impressions.
J'utilise crystal report.
Je souhaite imprimé des données provenant d'une base de donnée sql.
Le seul probleme que je rencontre c'est que malgré la spécification des données pour se connecter à la BDD SQL, cela me demande quand meme de saisir le mot de passe.

Merci si vous avez une idée...

Laetitia

meme souci  si t as eu ta reponse ca serais cool de me la transmettre mzelle laetitia
NiCsOLeFOU

Private Sub data()

Dim CrAppl AsNew CRAXDRT.Application

Dim CrRep AsNew CRAXDRT.Report

Dim AdoRs AsNew ADODB.Recordset

'Selection des données (La requête doit être la même que la requête du rapport en ado)

AdoRs.Open " SELECT * from * WHERE *=* ", db

Set CrRep = CrAppl.OpenReport(App.path & "\*****.rpt")

CrRep.Database.Tables(1).SetDataSource AdoRs, 3

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = CrRep

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

'Plein écran

Me.Top = 0

Me.Left = 0

Me.Width = Screen.Width

Me.Height = Screen.Height - 400

CRViewer1.Top = 0

CRViewer1.Left = 0

CRViewer1.Width = Me.Width

CRViewer1.Height = Me.Height

End Sub