Need urgent help on VB6 programming

Discussion in 'C' started by rezakhandaker, Feb 26, 2010.

Thread Status:
Not open for further replies.
  1. rezakhandaker

    rezakhandaker New Member

    Joined:
    Feb 26, 2010
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    Hello everyone,
    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
    
    When I'm trying to run this program, I'm getting an error message - "Run-time error '-2147217887 (80040e21)': Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."
    Can anyone please check my codings and help me to rectify the problem. I'll be glad if someone can email me at rezakhandaker@yahoo.com with the solution to this problem. Thanks in advance.
    With best regards
    Reza Khandaker
    4/4, Golden Tower, Golden Street,
    Ring Road, Shyamoli,
    Dhaka - 1207
    Bangladesh
    Cell: 0088-01730-031453
     
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,375
    Likes Received:
    388
    Trophy Points:
    83
Thread Status:
Not open for further replies.

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice