Passing a Parameter to an ADO

[rier]

Can anyone help?

I have an SQL script which I am connecting to using the ADO method. What I want to do is to be able to enter a date range via a Parameter and parse this to the sql script,

Does anyone know how to achieve this?

Thanks

Richard

 

[Snedwan]

Ok here's how I did it,

Dim Report As New CrystalReport1
Dim rptCNN As New ADODB.Connection
Dim rptRS as New ADODB.Recordset

Private Sub Form Load()

Set rptCNN = New ADODB.Connection
Set rptRS = New ADODB.Recordset

rptCNN.Open "your connection details go in here"

rptRS.Open &quot;SELECT * FROM yourtable WHERE Date >= &quot; & yourmindate & &quot; AND Date <= &quot; & yourmaxdate, rptCNN

Screen.MousePointer = vbHourGlass
Report.Database.SetDataSource rptRS
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
'kill instances created

Set Report = Nothing
rptRS.Close
Set rptRS = Nothing
rptCNN.CLose
Set rptCNN = nothing

End Sub

 

[rier]

Thanks Snedwan, but a little too involved - I basically have a sql script I call from CR using an ADO connection and I just want to be able to pass a date range

Anyone else know how to go about this?


Thanks

Richard

 

[Guest_imported]

In this coding scriptout of range error is evaluated.please give some ideas