Raised before a report starts processing.
private void rptUnbound_ReportStart(object sender, System.EventArgs eArgs)
{
string m_cnnString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\[UserName]\Documents\GrapeCity Samples\ActiveReports 9\Data\NWIND.MDB;Persist Security Info=False";
string sqlString = "SELECT * FROM categories INNER JOIN products ON categories.categoryid = products.categoryid ORDER BY products.categoryid, products.productid";
m_cnn = new OleDbConnection(m_cnnString);
OleDbCommand m_Cmd = new OleDbCommand(sqlString,m_cnn);
if(m_cnn.State == ConnectionState.Closed)
{
m_cnn.Open();
}
m_reader = m_Cmd.ExecuteReader();
}
Dim m_cnnString As String
Dim sqlString As String
Dim m_reader As OleDbDataReader
Dim m_cnn As OleDbConnection
Private Sub rptUnbound_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.ReportStart
m_cnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\[UserName]\Documents\GrapeCity Samples\ActiveReports 9\Data\NWIND.MDB;Persist Security Info=False"
sqlString = "Select * FROM categories INNER JOIN products On categories.categoryid _
= products.categoryid ORDER BY products.categoryid, products.productid"
m_cnn = New OleDb.OleDbConnection(m_cnnString)
Dim m_Cmd As New OleDb.OleDbCommand(sqlString, m_cnn)
If m_cnn.State = ConnectionState.Closed Then
m_cnn.Open()
End If
m_reader = m_Cmd.ExecuteReader()
End Sub