I'm a novice programmer trying to display Crystal Report 8.5 report (C:\Try.rpt) through my VB6 program. It is to be mentioned that the database that I'm useing is Oracle 9i installed on the same computer and Global Database Name/SID is 'exim'. I'm using the following code -
Code: Public cn As New ADODB.Connection Public rs As New ADODB.Recordset Public CnString As String Public SQLSelect As String Public crxApp As New CRAXDRT.Application Public crxReport As CRAXDRT.Report Private Sub Form_Load() Call OpenDatabase Call LoadReport End Sub Public Function LoadReport() Set crxReport = New CRAXDRT.Report Set crxApp = CreateObject("crystalruntime.application") Set crxReport = crxApplication.OpenReport("C:\Try.rpt", 1) crxReport.DiscardSavedData crxReport.Database.SetDataSource rs crvViewer.ReportSource = crxReport crvViewer.ViewReport End Function Public Function OpenDatabase() Set cn = New ADODB.Connection CnString = "Provider=MSDAORA.1;Persist Security Info=True;User ID=scott;Password=tiger;Initial Catalog=GR;Data Source=exim" cn.ConnectionString = CnString cn.Open cn.CursorLocation = adUseClient SQLSelect = "SELECT * FROM EMP_VIEW" rs.Open SQLSelect, cn, adOpenDynamic, adLockReadOnly End Function
Can anyone please check my codings and help me to rectify the problem. I'll be glad if someone can email me at email@example.com with the solution to this problem. Thanks in advance.
With best regards
4/4, Golden Tower, Golden Street,
Ring Road, Shyamoli,
Dhaka - 1207