dear friends,
i'm confuse to create a good code to connect vb to crsytal report.
basicly, i wanna relate a report (design in crystal report/extension .rpt) using vb code. i use OLEDB Method to connect them.

these are my codes :
-----------------------------------------
Private Sub Form_Load()


Dim crxDB As CRAXDRT.Database
Dim crxReport As CRAXDRT.Report
Dim crxApp As CRAXDRT.Application

Dim strSQL As String
Dim strFormula As String
Dim strOutlet As String
Dim strStartDate As String
Dim strEndDate As String



Screen.MousePointer = vbHourglass

strSQL = "SELECT * FROM SALES_VIEW"

g_adoRst.Open strSQL, g_adoCnn, adOpenDynamic, adLockPessimistic, adCmdText

Set crxApp = New CRAXDRT.Application
Set crxReport = crxApp.OpenReport("C:\Program Files\Business Objects\Crystal Reports 11\Samples\en\Reports\TCPOS\ArticleSales.rpt", 1)
Set crxDB = crxReport.Database

crxDB.SetDataSource g_adoRst, 3, 1

CRViewer.ReportSource = crxReport
crxReport.DiscardSavedData

CRViewer.ViewReport

Screen.MousePointer = vbDefault

End Sub

---------------------------
i've got an error in this syntax
     crxDB.SetDataSource g_adoRst, 3, 1
the error from vb is : invalid TLV Records...

i have no idea about this.
thanks for helping me...


freezh

did you connect your crystal report to the database during the design phase? setup the connection to the database from the report at design time then in your vb program all you need do do is call the report.

the code would look like this:

Private Sub Show_Report()
Dim Appl As New CRAXDRT.Application
Dim Rep As New CRAXDRT.Report
Dim strFile As String

strRepFile = App.Path & "\Reports\Article Sales.rpt"
Set Rep = Appl.OpenReport(strRepFile)
CRViewer.ReportSource = Rep
CRViewer.ViewReport
Set Rep = Nothing
Set Appl = Nothing
End Sub

I hope this helps you solve the problem.


jorge

Hello~
May I know what function for those coding below , why I should do it and is it I need to declare it first before I using those of them:

CRAXDRT.Application
CRAXDRT.Report
CRViewer.ReportSource = Rep
CRViewer.ViewReport

Beside that,is it use to connect with vb 6.0???
Thank you.