动态引用 DLL 库

Public Sub DeclareDLL()
    Dim I As Boolean
    I = False
    Dim R As Reference
    For Each R In References
        If R.Name = "ADOX" Then I = True
        Debug.Print R.Name

    Next
    If I = False Then 'ADOX引用丢失
        MsgBox "ADOX引用不存在,即将加载"
        Dim PathName As String
        PathName = Application.CurrentProject.Path & "\"
        Dim Library As String
        Library = "msadox.dll"
        References.AddFromFile PathName & Library
    End If
End Sub

注意，由于上述方法修改引用，所以只适用于未编译前。

如果你要使用在编译后，请先用 Regsrv32 dllname.dll 在注册表注册，在调用时用后引用的方法，也就是 CreateObject 方法建立实例。

发布人:cg1-access911

分享到：

点击次数：更新时间：2009-04-11 10:54:43 【打印此页】【关闭】

上一条：父子窗体的语法介绍下一条：求和时出现＂# 错误＂字样如何解决？