如何從ADO創建空的MDB

Question

我需要創建一個空的.mdb文件，以便我可以在其上運行ADO命令（而不是 ADO.NET）。有沒有辦法使用ADO創建一個空的mdb？

Answer 1

下面是一些工作的代碼片段：

 string sADOProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="; 

     ADOX.CatalogClass cat = new ADOX.CatalogClass(); 

     string sCreate = MainForm.sADOProvider + sFullPath; 

     cat.Create(sCreate); 

     // The point of this code is to unlock the access file after we 
     // create it. You can tell it is unlocked if the .ldb file disappears. 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(cat); 
     cat = null; 
     GC.Collect(); 

Answer 2

不知道有關通過ADO直接創建它，但如果安裝在機器上訪問你可以使用Access創建通過COM文件。

下面是一個早期和晚期的例子。兩種方法都有其優點/缺點。

Option Explicit 

Sub CreateMDBEarlyBound() 
    '' Remember to set your reference to "Microsoft Access XX.0 Object Library" 
    Dim acApp As Access.Application 

    Set acApp = New Access.Application 
    acApp.NewCurrentDatabase ("c:\temp\MyDB-early.mdb") 

    Set acApp = Nothing 

End Sub 


Sub CreateMDBLateBound() 

    Dim acApp As Object 

    On Error Resume Next 
    Set acApp = GetObject(, "Access.Application") 
    On Error GoTo 0 '' turn off the resume next 

    If acApp Is Nothing Then 
    Set acApp = CreateObject("Access.Application") 
    End If 

    acApp.NewCurrentDatabase "c:\temp\MyDB-late.mdb" 
    Set acApp = Nothing 


End Sub 

Answer 3

萬一 「不ADO.NET」 意味着 「不.NET」，這裏的科裏Trager的代碼重新寫爲VBA：

Const sADOProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 

    Const sFullPath As String = "C:\DeleteMe.mdb" 

    Dim cat As ADOX.Catalog 
    Set cat = New ADOX.Catalog 

    Dim sCreate As String 
    sCreate = sADOProvider & sFullPath 

    cat.Create sCreate 

    ' The point of this code is to unlock the access file after we 
    ' create it. You can tell it is unlocked if the .ldb file disappears. 
    Set cat.ActiveConnection = Nothing