如何调用/引用其他数据库(mdb/mde)的函数？

作者：cg1 摘自：access911.net 录入：cg1 时间：2002-11-25 浏览人次：808

专题地址：http://www.access911.net/index.asp?u1=a&u2=77FAB21E 如果需要更详细的评论或说明，请点击该地址。

简述：如何调用/引用其他数据库(mdb/mde)的函数？《VBA》

Public Sub DeclareDLL()
    '曾经有人跟我说用FeatureInstall ，
    '和Public Declare Sub GetScanImg Lib "d:\学生成绩\同学通讯录\scanimg.dll" ()
    '但结果无效，请您帮助看看
    Dim ExistDll(10, 2) As String, i As Integer
    Dim PathName As String
    PathName = Application.CurrentProject.Path & "\"   '根据你的实际情况可以更改

    ExistDll(0, 0) = "工程名称"
    ExistDll(0, 1) = "工程文件名.mdb"
    ExistDll(1, 0) = "ADODB"
    ExistDll(1, 1) = "msado25.tlb"
    ExistDll(2, 0) = "DAO"
    ExistDll(2, 1) = "dao360.dll"
    ExistDll(3, 0) = "ADOX"
    ExistDll(3, 1) = "msadox.dll"
    '这里我的数据库中需要引用4个，你可以按你的实际情况添加

For i = .....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=77FAB21E

上一篇：如何自动注册dll动态链接库？

下一篇：如何弥补access2000在帮助搜索功能方面的不足？

2010年7月2日生成静态资料