通过VB.Net调用MS Access模块​​？

Question

是否可以使用VB.net调用MS Access中的模块中的函数？

我的笔记本电脑中有代码使用导入Microsoft.Office.Interop.Access 但我声明的所有对象.Access是不明确的，所以我想尝试其他选项。

仅供教育和实验使用。

Answer 1

是的，可以使用自动化：http://support.microsoft.com/default.aspx?scid=kb;en-us;306682

Case "Access"

    Dim oAccess As Access.ApplicationClass

    'Start Access and open the database.
    oAccess = CreateObject("Access.Application")
    oAccess.Visible = True
    oAccess.OpenCurrentDatabase("c:\db1.mdb", False)

    'Run the macros.
    oAccess.Run ("DoKbTest")
    oAccess.Run("DoKbTestWithParameter", "Hello from VB .NET Client")

    'Clean-up: Quit Access without saving changes to the database.
    oAccess.DoCmd().Quit (Access.AcQuitOption.acQuitSaveNone)
    System.Runtime.InteropServices.Marshal.ReleaseComObject (oAccess)
    oAccess = Nothing