vb做出来的软件在有的电脑上运行显示错误

2018-08-26 12:50:10 951 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB运行打包好的程序时出现错误——多步OLEDB操作错误整理机房的时候，想先去运行一遍，了解各个窗体之间的关系，直接运行打包好的程序时出现以下错误： 1.那么什么是OLEDB? OLE DB(OLEDB)是微软的战略性的通向不同的数据源的低级应用程序接口。OLE DB不仅包括微软资助的标准数据接口开放数据库连通性(ODBC)的结构化查询语言(SQL)能力，还具有面向其他非SQL数据类型的通路 2.OLE DB 将传统的数据库系统划分为多个逻辑... 阅读详情

vb做出来的软件在有的电脑上运行不能正常工作。程序是在win764位系统上做的，execl access是2010的引用的是14.0 ，涉及到部分功能调用execl，有时候显示错误48 加载dll错误，有的时候显示class does not support Automation or does not support expected interface。程序是用factory7.0封装的。实验的电脑xp+2003（台式机）能用 win7 32位+office2010 （台式机）有的能用有的（笔记本）就出现我描述的错误。大家给分析下问题出在哪里？是系统原因还是execl版本问题？有没有好的办法提高对execl个版本的支持的好方法？下面是部分代码
Private Sub daochu_Click()
Dim i, J, c As Long
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Call xinjian
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; data source=" & App.Path & "\2018.mdb;"
conn.Open
rst.CursorLocation = adUseClient
rst.Open "select * from 新生表", conn, adOpenDynamic, adLockOptimistic
Dim MyApp As Object 'Dim MyApp As Excel.Application
Dim MyBook As Object 'Dim MyBook As Excel.Workbook
Dim MySheet As Object 'Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("Excel.Application")
MyApp.Visible = False
Set MyBook = MyApp.Workbooks.Add()
Set MySheet = MyBook.Worksheets(1)
For c = 0 To rst.Fields.Count - 1
MySheet.Cells(1, c + 1) = rst.Fields(c).Name
Next
J = 2
Do Until rst.EOF
For i = 1 To rst.Fields.Count
MySheet.Cells(J, i) = rst.Fields(i - 1)
Next
rst.MoveNext
J = J + 1
Loop
xinjian
MyBook.SaveAs "d:\本组报名结果\2018bmjg.xls"
MyApp.Quit
Set MyApp = Nothing
rst.Close
Set rst = Nothing
Set conn = Nothing
FileCopy App.Path & "\2018.mdb", "d:\本组报名结果\2018.mdb"
MsgBox "导出成功！文件在d:\本组报名结\2018bmjg.xls", vbOKOnly, "提示"
End Sub

...全文