Connexion sql - Crystal report
yaya2669
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
-
25 oct. 2005 à 11:21
simou12 Messages postés 2 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 10 août 2009 - 5 juil. 2009 à 11:22
simou12 Messages postés 2 Date d'inscription mardi 26 mai 2009 Statut Membre Dernière intervention 10 août 2009 - 5 juil. 2009 à 11:22
A voir également:
- Connexion sql - Crystal report
- Connexion base de données - Conseils pratiques -PHP
- Commit sql ✓ - Forum SQL
- Formulaire de connexion php - Forum PHP
- Decimal sql ✓ - Forum C# / .NET
- Delete sql ✓ - Forum Foxpro
2 réponses
nicsoFR
Messages postés
7
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
20 janvier 2009
20 janv. 2009 à 12:31
20 janv. 2009 à 12:31
meme souci si t as eu ta reponse ca serais cool de me la transmettre mzelle laetitia
NiCsOLeFOU
NiCsOLeFOU
simou12
Messages postés
2
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
10 août 2009
5 juil. 2009 à 11:22
5 juil. 2009 à 11:22
<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>
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>