在VB.Net安装有VSTO的前提下,引用Microsoft.Office.Interop.Access.Dao
实现代码如下:
Imports Microsoft.Office.Interop.Access.Dao
Module Module1
Sub Main()
Dim db As New DBEngine
db.CompactDatabase("H:\My Documents\算神.accdb", "H:\My Documents\算神1.accdb")
Console.Read()
End Sub
End Module