引用microsoft DAO 3.5 object library

解决方案 »

  1.   

    microsoft DAO 3.6 object library 更好一些
      

  2.   

    工程->引用
    可以找到access data object libary 3.5
      

  3.   

    库应该是已经引用了,否则执行不到这一步
    你改成
    dim dbMat as dao.database
    set dbMat=workspace(0).opendatabase("g:\**\***\×××.mdb")
    试试,注意你的MDB文件路径一定得准确哦
      

  4.   

    现在数据库事可以打开了,但打不开里面的表:“类型不匹配,错误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) '执行到这一句时出错!