Dim connection_string As String = "Data Source=.\sqlexpress;Initial Catalog=CreditAndCollection;Integrated Security=True" Dim Connection As New SqlConnection(connection_string) Connection.Open() Dim da As New SqlDataAdapter Dim command As New SqlCommand command.Connection = Connection command.CommandType = CommandType.StoredProcedure command.CommandText = "showBillingNum" Dim crBillingStatement As New crBillingStatement() crBillingStatement.SetParameterValue("@AccountNum", frmBillingStatement.txtAccountNo.Text) crBillingStatement.SetParameterValue("@DateFrom", frmBillingStatement.dpFrom.Text) crBillingStatement.SetParameterValue("@DateTo", frmBillingStatement.dpTo.Text) crvBillingStatement.ReportSource = crBillingStatement crvBillingStatement.Refresh() Connection.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)