range in selection formula using crystal report

[hiadan_dan]

Whut I try to do here I trying to get information based on range of date in order to display on CR 10. The thing is how am i going to declare in selection formula?Below is my code..plz anyone help me...

Dim crApp As CRAXDRT.Application
        Dim Report As CRAXDRT.Report
        Dim strSelectionfrm As String
        Set crApp = New CRAXDRT.Application
        Set Report = crApp.OpenReport("C:\Program Files\Microsoft Visual Studio\VB98\Projects\LeaveApp\LeaveForm4.rpt")



Report.Database.Tables(1).SetLogOnInfo "SQL", "tebrauteguh", "sa", "sa"
        
        strSelectionfrm = "{tblLeaveApp.EmpNo}='" & ndEmpNoView & "'and {tblLeaveApp.Ldate}- {tblLeaveApp.Fdate}='" & ndDays & "'" '-->I try to select from range
       
        Report.RecordSelectionFormula = strSelectionfrm
        Report.DiscardSavedData
        Form9.CRV.ReportSource = Report
        Form9.CRV.ViewReport
        
        Form9.Show
        Me.Hide
        Me.MousePointer = vbNormal

[Besoup]

Not sure but you can try

strSelectionfrm = "{tblLeaveApp.EmpNo}='" & ndEmpNoView & "'and DateDiff({tblLeaveApp.Ldate}, {tblLeaveApp.Fdate})='" & ndDays & "'" '-->I try to select from range

[TDQWERTY]

Here you have a few examples of ranges, i would advise you to use parameter fields, they aren't easer to use.
Although when i print reports, i filter the sql data before printing the report so it will take few time to print, specially when you have big amounts of data:

Commented are the lines that allow to load the report with specific sql query and uncommented is how to use parameter fields.

This was taken from a current development. You might want to take a look to the idea and not specifically to the code

    Public Sub printReportAssistencia(Optional ByVal NomeCliente As String = "", Optional ByVal NumHorasContrato As String = "", Optional ByVal NumAssistencia As Double = 0)
        Dim objRpt As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        'Dim cnn As SqlConnection
        'Dim sql As String
        'Dim ds As New DataSet
        Dim __printPreview As New frmPrintPreview

        'cnn = New SqlConnection(GetConnectionString)
        'cnn.Open()
        'condicoesSQL = IIf(condicoesSQL = String.Empty, " WHERE 1=1", condicoesSQL)
        'condicoesSQL = " WHERE " & condicoesSQL
        'sql = "select * from Imoveis" & condicoesSQL

        'Dim dscmd As New SqlDataAdapter(sql, cnn)
        objRpt.Load(GetAppPath & "Reports\assistencia.rpt")
        objRpt.DataSourceConnections.Item(0).SetLogon(__sqlUser, __sqlPass)
        objRpt.DataSourceConnections.Item(0).SetConnection(__SQLserverName, __sqlDatabase, False)
        objRpt.SetDatabaseLogon(__sqlUser, __sqlPass, __SQLserverName, __sqlDatabase)
        'dscmd.Fill(ds)
        'objRpt.SetDataSource(ds.Tables(0))
        'objRpt.SetParameterValue("NumHorasContrato", """Número de horas do contrato aqui""")
        objRpt.DataDefinition.FormulaFields("NomeCliente").Text = NomeCliente
        objRpt.DataDefinition.FormulaFields("NumHorasContrato").Text = NumHorasContrato
        objRpt.DataDefinition.FormulaFields("NumAssistencia").Text = NumAssistencia

        __printPreview.MdiParent = MAIN_MDI_FORM
        __printPreview.CrystalReportViewer1.ReportSource = objRpt
        __printPreview.CrystalReportViewer1.Refresh()
        'CType(__printPreview.CrystalReportViewer1.Controls(4), ToolStrip).Items(CType(__printPreview.CrystalReportViewer1.Controls(4), ToolStrip).Items.Count - 1).BackgroundImage = My.Resources.ResLogos.logo
        __printPreview.Show()
    End Sub