1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Public cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Public dr As String = "C:\_01\"
Public db As String = "PRO.mdb"
Public tb1 As String = "Table1"
Public cn As String = cs & dr & db
Public sql As String
Private Sub Form2_Load
sql = "SELECT * FROM Table1"
Dim Dta As New OleDb.OleDbDataAdapter(sql, cn)
Dim Dts As New DataSet("result")
Dim crd As New ReportDocument
Dta.Fill(Dts) 'remplissage du dataset
crd.Load("c:\VBN\CR01.RPT")
crd.SetDataSource(Dts)
CRV01.ReportSource = crd 'CRV01 = Crystalreportviewer
CRV01.Refresh()
End Sub |
Partager