Run Crystal Report 10 without Crystal ActiveX Viewer

[raaman rai]

guys, i just wanna ask that can we run crystal report 10 in our visual basic application without using Crystal ActiveX Viewer. Infact before i had used the crystal32.ocx component for CR8 n it had worked good. but now as i have switched to cr10, i tried using CR activex viewer (CRViewer) and its really slow. So, i thought to use the crystal32.ocx component for cr10 also which i couldnt find.

the scenario i have is, have created readymade reports and saved in my application path.Then i have added the crystal report 10 from project menu in my VB application. then a screen pops up for new report or existing one in which i have selected the existing one and directed to one of my saved reports. Now in the designers column i have CrystalReport1 which i have not been able to implement. How sud i code now to open the report?

[raaman rai]

sorry guys, i found out recently that crystal32.ocx is not supported after CR8.5. But i must ask how to go about here after. Please kindly follow the steps below.
I have already designed and created my reports and saved in my application path. Plus the backend for my vb application is sql server 2000.

[HTML]Added Crystal report 10 from the project menu
Pop-up interface comes up to ask for new report or existing report
I selected existing report and selected one of my report
then again a pop-up interface comes up to ask if a form containing crystal report viewer control to be added automatically
i selected no
Then the report is displayed with CrystalReport1 under the Designers tree in the VB application.[/HTML]

Now here after i dont know how to open the report programmatically. I just want to pass the existing connection object to the report and also pass some sql query to the report before opening it. So please help me!

[debasisdas]

try using this sample code.

Public CRXReport As CRAXDDRT.Report
Public CRXDb As CRAXDDRT.Database
Public CRXTbl As CRAXDRT.DatabaseTable
Public SlNoVal As String
 
 
Public Sub ReportDisplay(QUERY As String)
 
Set CRXReport = CrystalReport6
Set CRXDb = CRXReport.Database
CRXReport.DiscardSavedData
 
inti = 1
Do Until inti = CRXReport.Database.Tables.Count + 1
CRXReport.Database.Tables.Item(inti).SetLogOnInfo strdblocation, "das", "debasis", "debasis"
inti = inti + 1
Loop
 
CrystalReport6.SQLQueryString = QUERY
 
With FrmReport
.Show
.CRV1.ReportSource = CRXReport
.CRV1.ViewReport
End With
 
Set CRXReport = Nothing
End Sub
 

[raaman rai]

thanku man, but i havent tried ur code. actually i found out the following solution and its working gud. any way thank u onceagain.
[HTML]Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
For i = 1 To Report.Database.Tables.Count
Report.Database.Tables(i).ConnectionProperties.Ite m("Password") = "123456"
Next i
Report.DiscardSavedData
Report.RecordSelectionFormula = "{tblContractor.CDBNo} ='" & FrmMain.txtcdb & "'"
CRViewer1.EnableGroupTree = False
CRViewer1.ViewReport
Screen.MousePointer = vbDefault[/HTML]

Well i need to ask how can we make the CRViewer's length and height to full (screen length & height) at runtime?

[debasisdas]

You need to handle that in the form resize event.

[QVeen72]

Well i need to ask how can we make the CRViewer's length and height to full (screen length & height) at runtime?

Hi,
write this before ViewReport:

CrViewer1.Height = Me.Height
CrViewer1.Width = Me.Width
CrViewer1.ViewReport

REgards
Veena

[raaman rai]

Yes fren, i did as u said but cant find the difference. in fact the following code is all that i have in my form with the CRViewer Control.

Dim Report As New CrystalReport1
Private Sub Form_Load()
 
On Error GoTo ErrReport
 
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
For i = 1 To Report.Database.Tables.Count
Report.Database.Tables(i).ConnectionProperties.Item("Password") = "123456"
Next i
Report.DiscardSavedData
Report.RecordSelectionFormula = "{tblContractor.CDBNo} ='" & FrmMain.txtcdb & "'"
CRViewer1.EnableGroupTree = False
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
 
Exit Sub
 
ErrReport:
   DisplayError
 
End Sub
 
Private Sub Form_Resize()
 
CRViewer1.Top = 0
CRViewer1.Left = 0
' CRViewer1.Height=Screen.Height
' CRViewer1.Width=Screen.Width
CRViewer1.Height = Me.Height
CRViewer1.Width = Me.Width
 
End Sub

Then wat pobably might b wrong?