System.Runtime.InteropServices.COMException (0x80000000); No error.

Question

0.00/5 (No votes)

See more:

Hi, ive been dealing with a kind of no error message my application is throwing after the setup has been installed on my machine. The application run fine and generate a report exactly the way i want it. The problem is that after compiling it as set up, it throws this message:

System.Runtime.InteropServices.COMException (0x80000000); 
No error. 
at 
CrystalDesisionsReportAppServer.Controllers.DatabaseControllerClass.ReplaceConnection(Object oldConnection, Object newConnection, Object parameterFields, Object crDBOptionUseDefault) 
at 
CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSourceInternal(Object val, Type type) 
at  
CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSource(DataSet dataSet) 
at Presby_Soft.reportFrm.reportFrm_Load(Object sender, EventArgs e)

This is my code:

VB

Private Sub reportFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If

        Try
            Dim rpt As New CrystalReport1()
            Dim da As New SQLiteDataAdapter
            Dim ds As New presbydbDataSet


            'Dim cmd As New SQLiteCommand("SELECT personal_details.fn, training.training_level FROM personal_details INNER JOIN training ON personal_details.Staff_ID ='" + detailsFrm.Label13.Text + "'", conn)


            Dim cmd As New SQLiteCommand("SELECT * FROM personal_details WHERE personal_details.staff_ID='" + detailsFrm.Label13.Text + "'", conn)

            cmd.ExecuteNonQuery()
            da.SelectCommand = cmd
            da.Fill(ds, "personal_details")
            rpt.Subreports.Item("persoRpt").SetDataSource(ds)

            CrystalReportViewer1.ReportSource = rpt



        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

        conn.Close()
    End Sub

Please tell me what im doing wrong. Im using vb.net on windows7. thanks for answering

Posted 20-Apr-10 15:37pm

shellom2005

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

William Winner · Answer 1 · 2010-04-21T11:01:00

Well, it's a little difficult to tell since you didn't tell us what line was causing the errors. I would guess from the error message that it was rpt.Subreports.Item("persoRpt").SetDataSource(ds)

For one thing, you should really try to isolate your Try/Catch blocks more. Only put the items that you think could throw an error. For instance, none of this:

VB

Dim rpt As New CrystalReport1()
Dim da As New SQLiteDataAdapter
Dim ds As New presbydbDataSet

'Dim cmd As New SQLiteCommand("SELECT personal_details.fn, training.training_level FROM personal_details INNER JOIN training ON personal_details.Staff_ID ='" + detailsFrm.Label13.Text + "'", conn)

Dim cmd As New SQLiteCommand("SELECT * FROM personal_details WHERE personal_details.staff_ID='" + detailsFrm.Label13.Text + "'", conn)

should ever throw an error...unless you remove the references to them.

Put cmd.ExecuteNonQuery() in its own Try/Catch.
Put da.Fill(ds, "personal_details") in its own Try/Catch.
Put rpt.Subreports.Item("persoRpt").SetDataSource(ds) in its own Try/Catch.

You get the idea.

Anyway, are you sure that you're using the SetDataSource correctly and that it will take a DataSet? Everything I've seen requires that a DataTable be passed in to SetDataSource. If it does take a DataSource, can you verify that the Fill works correctly and that there is something in the DataSource?