初学vb提问:vb6.0与access2000及以上版本是否完全支持?是因为没打补丁吗?

来源:百度知道 编辑:UC知道 时间:2024/07/05 01:08:24
本人一菜鸟,运行一系统,本来挺简单的,运行也基本正常,其中有一窗口用来添加信息,可一运行就出现对话框,如下:
实时错误 ’-2147467259 (80004005)’:
不可识别的数据库格式’D:\DateBase\db1.mdb'。

数据库是用access2003做的,转换格式为access2000也不行,转换为access97 便可以完全支持了。我装的是vb6.0企业版。
和这个有关吗?
Dim con As New ADODB.Connection
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=" & App.Path & "\DataBase\db1.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"

工程"-"引用"里"Microsoft ActiveX Data Objects 2.0 Library”若变成2.7 ,运行到LV2.View = lvwReport则会出现“找不到工程或库”

一楼 "Microsoft DAO 3.6 Object Library"已被选中,没用
二楼 我的确使用ADO连接,在"工程"-"引用"里勾上"Microsoft Active

你是用可视化数据管理器打开Access的吧?这个只能支持97版的.
你用ADO连接,在"工程"-"引用"里勾上"Microsoft ActiveX Data Objects 2.7 Library",再用代码连接.
示例:
Dim DBObj As New ADODB.Connection,Tbl As New ADODB.RecordSet
DBObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &"\IMD.mdb;Persist Security Info=False;Jet OLEDB:Database Password="
Tbl.CursorLocation = adUseClient
Tbl.LockType = adLockOptimistic
Tbl.Open "....", DBObj

只能简单说说啦~~

关键是你用什么访问的ado,ado是不会出现这个提示的,估计你是用dao 访问, 如果是dao,。就是你的dao 版本太低了,用dao3.60版肯定可以访问

shi