Comments by Member 11749706 (Top 28 by date)

my total code is as follows,


Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class ledger
Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("DCS").ConnectionString)
Dim ds As New DataSet

Private Sub ledger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

con.Open()


Dim cmd As String = "select ACID,Account from vact"
Dim da1 As New SqlDataAdapter(cmd, con)
da1.Fill(ds, "vact")
cbaccount.DataSource = ds.Tables("vact")
cbaccount.DisplayMember = "Account"

cbaccount.ValueMember = "Account"



DTP1.Format = DateTimePickerFormat.Custom
DTP1.CustomFormat = "MM/dd/yyyy"
DTP2.Format = DateTimePickerFormat.Custom
DTP2.CustomFormat = "MM/dd/yyyy"

con.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reportDocument As New ReportDocument
Dim paramField = New ParameterField
Dim paramFields = New ParameterFields
Dim paramDiscreteValue = New ParameterDiscreteValue

'Set instances for input parameter 1-@name

paramField.Name = "@Name"

paramDiscreteValue.Value = cbaccount.Text
paramField.CurrentValues.Add(paramDiscreteValue)
'Add the paramField to paramFields
paramFields.Add(paramField)

'Set instances for input parameter 2 - @sd

paramField = New ParameterField()
paramField.Name = "@SD"
paramDiscreteValue = New ParameterDiscreteValue
paramDiscreteValue.Value = DTP1.Value
paramField.CurrentValues.Add(paramDiscreteValue)

'Add the paramField to paramFields
paramFields.Add(paramField)

'Set instances for input parameter 2 - @ED

paramField = New ParameterField()
paramField.Name = "@ED"
paramDiscreteValue = New ParameterDiscreteValue
paramDiscreteValue.Value = DTP2.Value
paramField.CurrentValues.Add(paramDiscreteValue)
'Add the paramField to paramFields
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields

reportDocument.Load("C:\Users\User\Documents\Visual Studio 2005\Projects\Alisoftpremium\Alisoftpremium\CrystalReport1.rpt")



'Load the report by setting the report source
CrystalReportViewer1.ReportSource = reportDocument

End Sub
End Class

my sp as follows

@Name nvarchar (50),
@SD as date,
@ED as date
as
begin
select VNo,convert(nvarchar(15), Date,106)as Date, CreditAccount as Account, AmountDr as Amount,convert(nvarchar(15), DueDate,106)as [Due Date],Remarks from vTotalTrans where Debitaccount = @Name and Date between @SD and @ED
union all
select VNo,convert(nvarchar(15), Date,106)as Date, DebitAccount as Account, AmountCr as Amount,convert(nvarchar(15), DueDate,106)as [Due Date],Remarks from vTotalTrans where CreditAccount = @Name and Date between @SD and @ED
order by date