Crystal report เรียกใช้ stored Procedures ที่ต้องส่ง parameter เข้าไปที่ stored Procedures

SqlParameter = "{PROC_EMPLOYEES;1.DYDATE} >= #" & ConvertDMY(Me.DTStartDate.Value, "y-m-d") & " 00:00:00# "
SqlParameter &= "AND {PROC_EMPLOYEES;1.DYDATE} <= #" & ConvertDMY(Me.DTEndDate.Value, "y-m-d") & " 23:59:59# "

 Report.Load(Application.StartupPath & "/Report/rptEmpRecord.rpt")

 Dim rptTLog As New CrystalDecisions.Shared.TableLogOnInfo
 rptTLog.ConnectionInfo.ServerName = SVName
 rptTLog.ConnectionInfo.DatabaseName = DBName
 rptTLog.ConnectionInfo.UserID = UID
 rptTLog.ConnectionInfo.Password = PWD

For i As Short = 0 To Report.Database.Tables.Count() - 1
      Report.Database.Tables(i).ApplyLogOnInfo(rptTLog)
Next

Report.RecordSelectionFormula = SqlParameter
Report.Refresh()

Report.SetParameterValue("@EMPNO", Me.txtEmpNo.Text.Trim())
Report.SetParameterValue("EmployeeNo", Me.txtEmpNo.Text.Trim())
Report.SetParameterValue("EmployeeName", EmployeeName)
Report.SetParameterValue("Department", Department)