Crystal report with vb6 application

Question

1.80/5 (2 votes)

See more:

I got user-defined type not defined compile error i have added the references
Crystal Reports ActiveX Designer Runtime Library still got the error

VB

Public Sub ShowReport(cRptFile As String, cDBName As String, crxReport As CRAXDRT.Report)
    Dim crxApplication As New CRAXDRT.Application
    Dim crxDatabaseTable As CRAXDRT.DatabaseTable
    Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
    Dim crxFormulaField As CRAXDRT.FormulaFieldDefinition

    Set crxReport = crxApplication.OpenReport(DevelopmentStatus("reports") & cRptFile, 1)
    For Each crxDatabaseTable In crxReport.Database.Tables
        crxDatabaseTable.Location = DevelopmentStatus("data") & cDBName
    Next crxDatabaseTable

    frmCrxVw.Show
    frmCrxVw.CRViewer1.ReportSource = crxReport
    frmCrxVw.CRViewer1.ViewReport

    Set crxFormulaField = Nothing
    Set crxParameterField = Nothing
    Set crxDatabaseTable = Nothing
    Set crxReport = Nothing
    crxApplication.CanClose
    Set crxApplication = Nothing

 End Sub

Posted 13-Feb-12 8:57am

Tony Radu

Add a Solution

Comments

Sergey Alexandrovich Kryukov 13-Feb-12 14:59pm

I never understood what would be the reason of dealing with VB6 at all.
--SA

Christian Graus 13-Feb-12 16:39pm

SA is right - VB6 is a nightmare. Any company that's not migrated to a real language by now, is probably not good to work for, and anyone learning VB6 now is being decieved.

thatraja 13-Feb-12 23:26pm

What's the error?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Charlemagne Gustilo · Answer 1 · 2012-03-05T15:20:00

Solution 1

Hi, have you tried adding Crystal Report Engine 8 Object Library?

Posted 5-Mar-12 15:20pm

Charlemagne Gustilo

Member 9999234 · Answer 2 · 2013-05-22T06:52:00

VB

Private Sub Command2_Click()
 Dim sqlString As String
    sqlString = "Select * From detail WHERE code = cint('" & Combo1.Text & "') and s_date >= datevalue('" & DTPicker1.Value & "') and s_date <= datevalue('" & DTPicker2.Value & "') order by s_date"
 ' Get the data into a recordset.
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open sqlString, cn, adOpenStatic, adLockOptimistic

    ' Bind the recordset to the grid.
    'Set grdEmployees.DataSource = rs
    Set DataGrid1.DataSource = rs
End Sub