2010-04-20 226 views
0

我一直在处理一种没有错误信息,我的应用程序在安装完成后在我的机器上抛出。 应用程序运行良好,并以我想要的方式生成报告。问题是,编译它成立后,它抛出此消息:水晶报告错误信息

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) 

这是使用的代码IM:

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 

请帮帮忙,我真的不知道如何去这个问题。感谢您的回答

回答

0

嗯,我设法摆脱了这个问题。问题在于,当业务对象已经安装在计算机上时,我将业务对象文件直接添加到bin文件夹中。我刚刚删除了我添加的业务对象文件,并且应用程序正常工作。