Crystal Reports XI with Visual Basic 6.0

[asd9001]

Crystal Reports XI With Visual Basic 6.0
' Add Form And rename to FrmRepView
' Add Code to Module

Sub ReporView(SQLsentence As String, ViewName As String, ReportName As String)
On Error Resume Next
Dim CN As New ADODB.Connection
Dim rss As New Recordset
Dim appw As New CRAXDDRT.Application
Dim rpt As New CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim db As New ADODB.Connection
CN.Execute "Drop View " & ViewName
CN.Execute "Create View " & ViewName & " as " & SQLsentence
x = App.Path & "\" & ReportName & ".rpt"
appw.LogOnServer "crdb_odbc.dll", "GRS", "GRS", "sa", "asd123"
Set rpt = appw.OpenReport(x)
rpt.Database.LogOnServer "crdb_odbc.dll", "GRS", "GRS", "sa", "asd123"
FrmRepView.show
FrmRepView.CrystalActiveXReportViewer1.Refresh
FrmRepView.CrystalActiveXReportViewer1.ReportSource = rpt
FrmRepView.CrystalActiveXReportViewer1.ViewReport
' appw.LogOnServer "crdb_odbc.dll", "GRS", "GRS", "sa", "asd123"
'DSN=grs;USER ID=sa;pwd=asdsuez;
End Sub
thes Code Work With Me

But
I Use Sql Server 2000
The problem Is When I Change Database Name
And Cang DSN To New Database

The Report Not View result
And Gev Me Error Logon failure

If Eny own Now The problem Help me please !
:confused: :confused: :confused: :confused: :confused:

[RhinoBull]

rpt.Database.LogOnServer "crdb_odbc.dll", "GRS", "GRS", "sa", "asd123"

You are using odbc rather than oledb provider. I don't CR11 to test but I think there is another option how to login so check your documentation and see if you can switch to oledb instead - this way you won't have to create odbc entry.

[Hack]

Moved to reporting section

[shakti5385]

The Report Not View result
And Gev Me Error Logon failure
Open the Crystal report and click on the varify database.

[asd9001]

Yes I now But I need A solution By Code
to Can Run More Then Program In The same Server
With Other Database Name

[shakti5385]

Verify database is necessary for the crystal report. It is the CR property and used for check the database and the table with the proper field that we are using in the CR.
By coding verify the database in the CR is same as the making the CR by coding.
By coding we are able to check the database at the proper location but I never verify the database of the CR by coding.
Search at the CR site.
I am searching about it.

[asd9001]

Thes Is My Code After verify the database in the Crystal Reports XI

I tested And it Work With me


Dim rss As New Recordset
Dim appw As New CRAXDDRT.Application
Dim rpt As New CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim Tdsn, Tid, Tpwd, tdb, tser As String

'
Tdsn = "asd"
Tid = "sa"
Tpwd = "123"
tdb = "AGC"
tser = "Server"

cn.Execute "Drop View " & ViewName
cn.Execute "Create View " & ViewName & " as " & SQLsentence
X = App.Path & "\rep\" & ReportName & ".rpt"
appw.LogOnServer "crdb_odbc.dll", Tdsn, tdb, Tid, Tpwd
Set rpt = appw.OpenReport(X)
rpt.Database.LogOnServer "crdb_odbc.dll", Tdsn, tdb, Tid, Tpwd
cfg = rpt.Database.Tables.Count


sserver = "ASD" 'dsn name
sDatabase = "AGC"
sDBUserName = "sa"
sDBPassword = "123"

For Each tbl In rpt.Database.Tables
Msdd = tbl.Name
tbl.SetLogOnInfo sserver, sDatabase, sDBUserName, sDBPassword
sTblName = tbl.Name
tbl.Location = sDatabase & ".dbo." & sTblName
If Not tbl.TestConnectivity Then
'<can't connect error processing>
Exit For
End If
Next


Form1.CrystalActiveXReportViewer1.Refresh
Form1.CrystalActiveXReportViewer1.ReportSource = rpt
Form1.CrystalActiveXReportViewer1.ViewReport

[triper10jeffrey]

what kind of library add for references the code of CRXI for viewing crystal reports version 6

[ASBIN001]

would you please give me the sample code (just for connection and calling the report):)

[skchandon]

If you wish to create an application that allows the user to view an existing crystal report then this is what you do:
Make sure you have crystal report designer installed first. This will install all the required component for our application.
Then proceede to Visual Studio and open VB 6.

1. First create a vb project ( standard exe or ocx)
2. You will be displayed with a blank form.
3. Go to Project > Components
4. Select "Crystal Activex Report Viewer Library 11.0" and Click ok. A new icon should appear in the toolbar.
5. Then go to Project > References
6. and select "Crystal Report Activex Designer Runtime Library 11.0"
7. On the Blank Form drag a crystal report viewer from the toolbar. Name it "crsv1"
8. Then type the following code:


'***************************************************************************************
'* This project uses the following reference for the CRAXDRT object
'* Crystal Report Activex Designer Runtime Library 11.0
'***************************************************************************************
Private Sub Form_Load()


Dim Report As New CRAXDRT.Application

setViewerSize


crsv1.ReportSource = Report.OpenReport("C:\crystal_reports\repor1.rpt")

crsv1.ViewReport


End Sub

Private Sub form_resize()
setViewerSize
End Sub

Private Sub setViewerSize()
crsv1.Width = Form1.Width - 100
crsv1.Height = Form1.Height - 400
End Sub


Well thats it. if you have any question send me an email
thanks
Shah Chandon

[reply_c]

Chandon,
I tried the steps you have posted. When I ran the code it gave me the following error

Dim Report As New CRAXDRT.Application "Compile error - user defined type not defined"

How do I fix that?

We have 25 reports in Crystal 11. Database is Oracle 10g. We are using VB 6.0 as the front end to run the crystal reports and logonto the Oracle database.

Thanks,
Saloni

[skchandon]

You need the CRAXDRT object.
one way to get it is to install crystal report designer 11

[VBFnewcomer]

You need the CRAXDRT object.
one way to get it is to install crystal report designer 11
AFAIK one needs to install the CR with Developer Key and not Designer Key

[skchandon]

AFAIK one needs to install the CR with Developer Key and not Designer Key
Really??!!
I didnt even kno..
Good thing u mentioned that then.

[VBFnewcomer]

first complete uninstall the existing CR and reinstall with the developer key :wave: :afrog:

[RahulBhawsar]

If you wish to create an application that allows the user to view an existing crystal report then this is what you do:
Make sure you have crystal report designer installed first. This will install all the required component for our application.
Then proceede to Visual Studio and open VB 6.

1. First create a vb project ( standard exe or ocx)
2. You will be displayed with a blank form.
3. Go to Project > Components
4. Select "Crystal Activex Report Viewer Library 11.0" and Click ok. A new icon should appear in the toolbar.
5. Then go to Project > References
6. and select "Crystal Report Activex Designer Runtime Library 11.0"
7. On the Blank Form drag a crystal report viewer from the toolbar. Name it "crsv1"
8. Then type the following code:


'***************************************************************************************
'* This project uses the following reference for the CRAXDRT object
'* Crystal Report Activex Designer Runtime Library 11.0
'***************************************************************************************
Private Sub Form_Load()


Dim Report As New CRAXDRT.Application

setViewerSize


crsv1.ReportSource = Report.OpenReport("C:\crystal_reports\repor1.rpt")

crsv1.ViewReport


End Sub

Private Sub form_resize()
setViewerSize
End Sub

Private Sub setViewerSize()
crsv1.Width = Form1.Width - 100
crsv1.Height = Form1.Height - 400
End Sub


Well thats it. if you have any question send me an email
thanks
Shah Chandon

Hi Chandon,
I used the above code you posted and i am getting Logon Failed error.
Do i need to include any more information regarding login details.

Thanks in advance
Rahul