VB.net crystal report
cs_beabea
Messages postés
62
Date d'inscription
vendredi 10 octobre 2003
Statut
Membre
Dernière intervention
17 octobre 2008
-
17 juin 2005 à 14:04
cs_Creat Messages postés 76 Date d'inscription dimanche 25 juillet 2004 Statut Membre Dernière intervention 20 mars 2006 - 17 juin 2005 à 17:24
cs_Creat Messages postés 76 Date d'inscription dimanche 25 juillet 2004 Statut Membre Dernière intervention 20 mars 2006 - 17 juin 2005 à 17:24
A voir également:
- VB.net crystal report
- Vb.net sleep ✓ - Forum Visual Basic
- Crystal report vb6 - Forum Visual Basic
- Datagridview vb.net ✓ - Forum VB.NET
- Vb.net openfiledialog - Forum Visual Basic
- Report in vb net 2010 ✓ - Forum VB.NET
1 réponse
cs_Creat
Messages postés
76
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
20 mars 2006
17 juin 2005 à 17:24
17 juin 2005 à 17:24
Voici comment je le fais:
''Engine library used for basic calls to the Crystal Reports engine
Imports CrystalDecisions.CrystalReports.Engine
''Shared library used for database logon and passing datasets
Imports CrystalDecisions.Shared
Private
Sub AfficheRapport(
ByVal sPath
As
String,
ByVal SQLString
As
String,
ByVal sTable
As
String)
Dim oRPT
As
New ReportDocument
'Ca provient de CrystalDecisions.CrystalReports.Engine
Dim objConnection
As
New OleDbConnection(ConnString)
Dim objDataAdapter
As OleDbDataAdapter
Dim objDataTable
As DataTable
oRPT.Load(sPath) 'sPath = c:\mes documents\test.rpt
objConnection.Open()
'Retrieve the data using the SQL statement and existing connection
objDataAdapter =
New OleDbDataAdapter(SQLString, objConnection)
'Fill the dataset with the data retrieved. The name of the table
'in the dataset must be the same as the table name in the report.
objDataAdapter.Fill(objDataSet, sTable)
objConnection.Close()
'Pass the populated dataset to the report
oRPT.SetDataSource(objDataSet)
'Set the viewer to the report object to be previewed.
crRapport.ReportSource = oRPT
End
Sub
''Engine library used for basic calls to the Crystal Reports engine
Imports CrystalDecisions.CrystalReports.Engine
''Shared library used for database logon and passing datasets
Imports CrystalDecisions.Shared
Private
Sub AfficheRapport(
ByVal sPath
As
String,
ByVal SQLString
As
String,
ByVal sTable
As
String)
Dim oRPT
As
New ReportDocument
'Ca provient de CrystalDecisions.CrystalReports.Engine
Dim objConnection
As
New OleDbConnection(ConnString)
Dim objDataAdapter
As OleDbDataAdapter
Dim objDataTable
As DataTable
oRPT.Load(sPath) 'sPath = c:\mes documents\test.rpt
objConnection.Open()
'Retrieve the data using the SQL statement and existing connection
objDataAdapter =
New OleDbDataAdapter(SQLString, objConnection)
'Fill the dataset with the data retrieved. The name of the table
'in the dataset must be the same as the table name in the report.
objDataAdapter.Fill(objDataSet, sTable)
objConnection.Close()
'Pass the populated dataset to the report
oRPT.SetDataSource(objDataSet)
'Set the viewer to the report object to be previewed.
crRapport.ReportSource = oRPT
End
Sub
