The original form will have a Print button like
Code: Select all
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Dim rpt As New frmViewReport()
rpt.Show()
End Sub
The data set is called KB (KB.xsd) and is included in the project.
The report is called rptReminders.rpt and is included in the project. Its structure echoes the sql statement below.
I already have a connection the db open called dbKB.
The code for frmViewReport is
Code: Select all
Imports Devart.Data.Oracle
Imports CrystalDecisions.CrystalReports.Engine
Public Class frmViewReport
Private Sub frmViewReport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim cmd1 As OracleCommand = New OracleCommand()
cmd1.Connection = dbKB
cmd1.CommandText = "SELECT SUSPENSE.BAN, SUSPENSEDATE, BILLAC.NAME " & _
"FROM SUSPENSE, BILLAC WHERE SUSPENSE.BAN=BILLAC.BAN AND USERID = :USERID " & _
"AND SUSPENSEDATE <= SYSDATE ORDER BY SUSPENSEDATE"
cmd1.Parameters.AddWithValue("USERID", userInfo.id)
Dim adp1 As OracleDataAdapter = New OracleDataAdapter(cmd1)
Dim ds1 As KB = New KB
adp1.Fill(ds1, "Reminders")
Dim rpt As rptReminders = New rptReminders
rpt.SetDataSource(ds1)
rptViewer.ReportSource = rpt
End Sub
End Class