Crystal Reports in VB6 app 1

[atruhoo]

I know this is a simple question but this is first time using Crystal Reports much less in VB app. Users had been using Discoverer reports and now want to be able to creat/view reports in app itself thus the adventure I have undertaken. In Crystal Reports I can get the report to show data in report. However when I try to add and open in VB6 app I get error that states something like 'Server not connected'. Does anyone know of tutorial or feels like offering advice on what I need to do to get started on the right path.

Thanks
Richard

 

[pgtek]

hi

Heres a link you can download samples of vb application using crystal

http://support.crystaldecisions.com...ndexq2=&indexq3=&indexq4=&btnG.x=47&btnG.y=10

pgtek

 

[atruhoo]

Thanks for the info it appears to be helpful. Will let you know how it goes. A star for your effort.

 

[atruhoo]

pgtek

Able to create and view reports where save data in report using OCX however if save report with option of not saving data to report in an attempt to make the reports dynamic. I get unable to connect to SqlServer though am using Oracle DB. Heres my code any help you can give I would appreciate.

Dim WithEvents CrystalReport1 As CrystalReport
Dim WithEvents cmdPrint As CommandButton

Private Sub cmdPrint_Click()
CrystalReport1.ReportFileName = "C:\Documents and Settings\rstacy\Desktop\Report1.rpt"
CrystalReport1.Action = 1
End Sub

Private Sub Form_Load()
Set CrystalReport1 = Controls.Add("Crystal.CrystalReport", "CrystalReport1&quot
Set cmdPrint = Controls.Add("VB.CommandButton", "cmdPrint&quot
cmdPrint.Move 1500, 1500
cmdPrint.Caption = "Test"
cmdPrint.Visible = True
End Sub

Private Sub Form_Unlaod(Cancel As Integer)
Set CrystalReport1 = Nothing
Set cmdPrint = Nothing
End Sub

Richard

 

[pgtek]

hi
your not passing the set logon info thats why

check this link above

pgtek

 

[atruhoo]

Thanks for your reply pgtek got working last week ended up going with recordset example found on link you provided. Solution provided below for other newbies to Crystal & VB. Will lookat doing with OCX later. Once again thanks for help.

Set oraConn = New ADODB.Connection
Set oraRst = New ADODB.Recordset
oraConn.Open "Provider=MSDAORA.1;User ID=****;Data Source=****;password=*****;Persist Security Info=False"
Sql = "Select * from ParkingLot"
oraRst.ActiveConnection = oraConn

oraRst.Open Sql

crxRep.Database.SetDataSource oraRst
CRViewer1.ReportSource = crxRep
CRViewer1.ViewReport

--Actually passed in connection globally in final production