|
-
Nov 19th, 2006, 07:27 PM
#1
Thread Starter
Junior Member
Crystal Reports XI with Visual Basic 6.0
Crystal Reports XI With Visual Basic 6.0
' Add Form And rename to FrmRepView
' Add Code to Module
VB Code:
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 !
-
Nov 19th, 2006, 07:48 PM
#2
Re: Crystal Reports XI with Visual Basic 6.0
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.
-
Nov 20th, 2006, 06:37 AM
#3
Re: Crystal Reports XI with Visual Basic 6.0
Moved to reporting section
-
Nov 20th, 2006, 08:26 AM
#4
Re: Crystal Reports XI with Visual Basic 6.0
The Report Not View result
And Gev Me Error Logon failure
Open the Crystal report and click on the varify database.
-
Nov 20th, 2006, 09:47 AM
#5
Thread Starter
Junior Member
Re: Crystal Reports XI with Visual Basic 6.0
Yes I now But I need A solution By Code
to Can Run More Then Program In The same Server
With Other Database Name
-
Nov 21st, 2006, 02:10 AM
#6
Re: Crystal Reports XI with Visual Basic 6.0
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.
-
Dec 17th, 2006, 04:23 AM
#7
Thread Starter
Junior Member
Re: Crystal Reports XI with Visual Basic 6.0
Thes Is My Code After verify the database in the Crystal Reports XI
I tested And it Work With me
VB Code:
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
-
Apr 30th, 2007, 03:12 AM
#8
New Member
Re: Crystal Reports XI with Visual Basic 6.0
what kind of library add for references the code of CRXI for viewing crystal reports version 6
-
Jan 5th, 2008, 02:53 AM
#9
New Member
Re: Crystal Reports XI with Visual Basic 6.0
would you please give me the sample code (just for connection and calling the report)
-
Jan 16th, 2008, 10:18 AM
#10
New Member
Re: Crystal Reports XI with Visual Basic 6.0
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:
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
Last edited by skchandon; Jan 16th, 2008 at 10:22 AM.
-
Jan 24th, 2008, 01:15 PM
#11
New Member
Re: Crystal Reports XI with Visual Basic 6.0
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
-
Feb 19th, 2008, 11:49 AM
#12
New Member
Re: Crystal Reports XI with Visual Basic 6.0
You need the CRAXDRT object.
one way to get it is to install crystal report designer 11
-
Mar 7th, 2008, 04:36 AM
#13
Frenzied Member
Re: Crystal Reports XI with Visual Basic 6.0
 Originally Posted by skchandon
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
-
Mar 7th, 2008, 08:29 AM
#14
New Member
Re: Crystal Reports XI with Visual Basic 6.0
 Originally Posted by VBFnewcomer
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.
-
Mar 10th, 2008, 12:11 AM
#15
Frenzied Member
Re: Crystal Reports XI with Visual Basic 6.0
first complete uninstall the existing CR and reinstall with the developer key
-
Apr 25th, 2012, 10:23 AM
#16
New Member
Re: Crystal Reports XI with Visual Basic 6.0
 Originally Posted by 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:
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
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|