Calling store procedure in Report throu VB

[ahalyal]

Dears


How to call store procedure in Crystal Report through VISUAL BASIC. i have Sp which has 3 parameters one is string others are dates parameter ,
how to to in the visual basic coding.

can any one help me passing paramerters .

Thanks
Annu

[ika]

For Vb 6:

Get rs (Recordset) calling stored procedure with parameters

After:

Dim report As CRAXDRT.report



Set report = crystal.OpenReport(App.Path & _
IIf(Right(App.Path, 1) = "\", "", "\") & _
s_Rpt & GetAdditionalNamePart(s_Rpt) & ".rpt") 'OPEN REPORT

report.Database.LogOnServerEx _
"crdb_odbc.dll", _
c_Settings.GetVal(CRYSTALDSN), _
c_Settings.GetVal(DBNAME), _
c_User.Name, _
c_User.Password, , _
c_Db.ConnectionStr
report.DiscardSavedData 'CLEARS REPORT SO WE WORK FROM RECORDSET
report.Database.SetDataSource rs 'LINK REPORT TO RECORDSET

Load frmReport
'ShowSendButton s_Rpt, frmReport.crV, frmReport.cmdSend


'crV - crystal viewer control
frmReport.crV.ReportSource = report 'LINK VIEWER TO REPORT
frmReport.crV.ViewReport


Best,

ika

[malleyo]

This is using VB 6 and CR 8.5 with RDC...

You can get your data from the Stored Proc through ADO and then pass the ADO recordset to Crystal:

    'dsrReport is the name of your dsr file
    Dim Report As New dsrReport

    Set cmdData = New ADODB.Command
    Set rsData = New ADODB.Recordset
    cmdData.ActiveConnection = cnConnection
    cmdData.CommandText = "sp_StoredProcName"
    cmdData.CommandType = adCmdStoredProc
    cmdData.Parameters.Refresh
    cmdData.Parameters("@Param1") = strParam1
    cmdData.Parameters("@Param2") = dtmParam2
    cmdData.Parameters("@Param3") = dtmParam3
    
   'Required for RecordCount to return an accurate count
    rsData.CursorType = adOpenDynamic
    rsData.CursorLocation = adUseClient
    rsData.Open cmdData
    
    If Not rsData.EOF Then
         Report.DiscardSavedData
         Report.Database.SetDataSource rsData, 3, 1   
    End If