Crystal Reports Problem... Urgent

Hi

I have some problem in connecting viewing the report designed in crystal reports 8 from visual basic 6.

I have created a report in crystal report 8 connecting to database from crystal reports itself and i am successful in completing the report

now i want to call that report from visual basic 6, but i unable to do that. i want to give my own database connection string and query, taking that connection and query it has to display the report.

can anyone help me in solving this problem.

pls let me also know which reference i have to add in the visual basic 6.0

Thanks in advance
Hari.
sharibabuAsked:
Who is Participating?
 
n_narayananConnect With a Mentor Commented:
You have to add a crystall reports component from
Project / Components menu.



    rptControl.Connect = "odbc;dsn=CoreFa;uid=pent;pwd=pentadmin"
    rptControl.ReportFileName = App.Path & "\Reports\" & ReportName
        rptControl.Action = 1

Where rptcontrol is the Crystal Reports Conrol Name.

Create a DSN called CoreFa (u can change this) and store the database settings.

Cheers

Narayanan.
0
 
ChessCommented:
Hari,
You need something like this:

Dim i As Integer
Dim sreport_name As String
Dim sreport_fund_num       As String
Dim sreport_processingdate As String
Dim sprocess_type   As String
Dim crapplication  As New CRAXDRT.Application
Dim crreport       As CRAXDRT.Report

sprocess_type = "REPORT"
    sreport_name = "IMPEXTRUndSec.rpt"
   
    sreport_name = App.Path & "\REPORTS\" & sreport_name
   
   
    Set crreport = crapplication.OpenReport(sreport_name)
     For i = 1 To crreport.Database.Tables.Count
        crreport.Database.Tables(1).SetLogOnInfo gServerName, gDbName, gLogin, gPassword
        crreport.Database.Tables(1).Location = gDbName & ".dbo." & "sp_get_remote_trades_und_sec"
       'MsgBox crreport.Database.Tables(1).TestConnectivity
     Next i
    crreport.ParameterFields(1).AddCurrentValue (sreport_fund_num)
    crreport.ParameterFields(2).AddCurrentValue (CDate(sreport_processingdate))
    frmReport.rptViewer.ReportSource = crreport

        frmReport.rptViewer.ViewReport
       frmReport.Show

Hope this helps.
Chess
0
 
n_narayananCommented:
If you want to supply a where clause then,

rptControl.SelectionFormula = whereclause
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
corvanderlindenCommented:
Private mCRXApplication  As CRAXDRT.Application
Private mCRXReport       As CRAXDRT.Report

Set mCRXApplication =
CreateObject("CrystalRuntime.Application")

Set mCRXReport = mCRXApplication.OpenReport(ReportName)

Pass the recordset to the report engine to use as the datasource
mCRXReport.Database.SetDataSource rs

This recordset must be exactly the same as the one you used in the standalone report
0
 
corvanderlindenCommented:
Reference:
Crystal reports 8.5 ActiveX Designer Runtime Library
Crystal report Viewer Control
0
 
DanRollinsCommented:
Hi sharibabu,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept n_narayanan's comment(s) as an answer.

sharibabu, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
==========
DanRollins -- EE database cleanup volunteer
0
 
Computer101Commented:
Comment from expert accepted as answer

Computer101
E-E Admin
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.