Connexion sql - Crystal report

Signaler
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
-
simou12
Messages postés
2
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
10 août 2009
-
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

2 réponses

Messages postés
7
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
20 janvier 2009

meme souci  si t as eu ta reponse ca serais cool de me la transmettre mzelle laetitia
NiCsOLeFOU
Messages postés
2
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
10 août 2009

<li>
Private
Sub data()
</li>
<li>
</li>
<li>
Dim CrAppl AsNew CRAXDRT.Application
</li>
<li>
Dim CrRep AsNew CRAXDRT.Report
</li>
<li>
Dim AdoRs AsNew ADODB.Recordset
</li>
<li>
</li>
<li>
'Selection des données (La requête doit être la même que la requête du rapport en ado)
</li>
<li>AdoRs.Open " SELECT * from * WHERE *=* ", db
</li>
<li>
</li>
<li>
Set CrRep = CrAppl.OpenReport(App.path & "\*****.rpt")
</li>
<li>CrRep.Database.Tables(1).SetDataSource AdoRs, 3
</li>
<li>Screen.MousePointer = vbHourglass
</li>
<li>CRViewer1.ReportSource = CrRep
</li>
<li>CRViewer1.ViewReport
</li>
<li>Screen.MousePointer = vbDefault
</li>
<li>
</li>
<li>
</li>
<li>
'Plein écran
</li>
<li>
Me.Top = 0
</li>
<li>
Me.Left = 0
</li>
<li>
Me.Width = Screen.Width
</li>
<li>
Me.Height = Screen.Height - 400
</li>
<li>CRViewer1.Top = 0
</li>
<li>CRViewer1.Left = 0
</li>
<li>CRViewer1.Width = Me.Width
</li>
<li>CRViewer1.Height = Me.Height
</li>
<li>
</li>
<li>
End
Sub
</li>