recordset as datasource of Crystal Report

[leangross]

Im using Crystal report 8 and VB6, my problem is how can i make the Crystal report get the record from the recordset i made. The problem is when i run the report it shows all the record from the table. How can i make the report show only the content of the recordset?



Below is the code im using. dcCategory is datacombo.

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection
cnn.Open "File name=c:\Product.udl"
Set rst = cnn.Execute("select item_no,item_category,Item_desc,Item_unit,item_price from tblitems where item_Category ='" & dcCAtegory.Text & "'")

Dim crystal As CRAXDRT.Application 
Dim treport As CRAXDRT.Report     
    
CRViewer1.DisplayBorder = False  
CRViewer1.DisplayTabs = False    
CRViewer1.EnableDrillDown = False
CRViewer1.EnableRefreshButton = False


Dim crxApplication As New CRAXDRT.Application
Set crystal = New CRAXDRT.Application
Set treport = crystal.OpenReport("d:\application\list.rpt")

treport.DiscardSavedData       
treport.Database.SetDataSource rst 
   
CRViewer1.ReportSource = treport
CRViewer1.ViewReport

When i design the report using crystal report designer i use the table as the datasource and i did not set anything else. Could this be the problem?

Thanks in advance!!!

 

[tedsmith]

yes I know for the vb6 datareport you have to make the recordsource for the report the same one as the criteria for a recordset that would only return the one record you want. This is useful because you only need one form for many different queries with different names to the columns set by Section(2).label(N).Caption=MyRec.Fields(N).name

I saw a reference recently to using parameters for Crystal reports in which case you just use the table and feed combo box into the parameter value. I cant remember exactly how but search for parameter crystal reports vb6

 

[zemp]

You can set up your report to use active data instead of going to a database. You will need to create a .ttx file for the report and then pass the report your recordset. See the following article,

http://support.crystaldecisions.com/communityCS/TechnicalPapers/scr8_ttxado.pdf.asp

Take Care,

zemp

"Show me someone with both feet on the ground and I will show you someone who can't put their pants on."

 

[PatrickIRL]

I think you have to down another level. At the moment you are using the setdatasource on the database.
Get a reference to the tables collection and loop around that, then use the setdatasource on the tables instead.

Regards,

Patrick

 

[tb]

This works for me.

Dim rs As ADODB.Recordset

'sFilename set previously as well as the sSql (query)

Set CrxApp = New CRAXDRT.Application
Set CrxRpt = CrxApp.OpenReport(sFileName)
Set rs = New ADODB.Recordset

rs.Open sSql, cConn, adOpenForwardOnly, adLockReadOnly

CrxRpt.RecordSelectionFormula = ""

CrxRpt.Database.Tables(1).SetLogOnInfo sServer, sDataBase, sLoginUser, sPassword

CrxRpt.DiscardSavedData
CrxRpt.Database.SetDataSource rs

crvReport.ReportSource = CrxRpt

crvReport.ViewReport


Very nice site . . .

http://www.vbmysql.com/articles/crystalvbmysql.html

I was standing in the park, wondering why frisbees got bigger as they came closer... then it hit me!