库应该是已经引用了,否则执行不到这一步 你改成 dim dbMat as dao.database set dbMat=workspace(0).opendatabase("g:\**\***\×××.mdb") 试试,注意你的MDB文件路径一定得准确哦
现在数据库事可以打开了,但打不开里面的表:“类型不匹配,错误13” 我的句子: Set dbMaterial = DBEngine.Workspaces(0).OpenDatabase("G:\JeepH\Test Project\BESS\Data\Material.mdb") Dim rcMaterial As Recordset Set rcMaterial = dbMaterial.OpenRecordset("Material", dbOpenDynaset) '执行到这一句时出错!
可以找到access data object libary 3.5
你改成
dim dbMat as dao.database
set dbMat=workspace(0).opendatabase("g:\**\***\×××.mdb")
试试,注意你的MDB文件路径一定得准确哦
我的句子:
Set dbMaterial = DBEngine.Workspaces(0).OpenDatabase("G:\JeepH\Test Project\BESS\Data\Material.mdb")
Dim rcMaterial As Recordset
Set rcMaterial = dbMaterial.OpenRecordset("Material", dbOpenDynaset) '执行到这一句时出错!