1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Dim vlreq As String
Dim vlTable As String = "assurance"
Dim myReport As New ReportDocument
vlreq = " select assurance.NUM_ASSURANCE,assurance.IMMATRICULATION,assurance.CAT_ASSURANCE,assurance.DATE_ASSURANCE,assurance.DATE_EXPIRE,assurance.ASSUREUR from Assurance "
Dim QueryString As String
QueryString = vlreq
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(QueryString, pp.vconnexion1)
Dim ds As New DataSet
CRV.Show()
myReport.Load(AppDomain.CurrentDomain.BaseDirectory + "Imprimer\CrAssuranceVeh.rpt")
CRV.CrystalReportViewer1.ReportSource = myReport
myReport.SetDataSource(ds)
CRV.CrystalReportViewer1.Refresh() |
Partager