Как мне создать пустой MDB из ADO - PullRequest
Новая
       7

Как мне создать пустой MDB из ADO

2 голосов
/ 17 ноября 2008

Мне нужно создать пустой файл .mdb, чтобы я мог затем запускать на нем команды ADO ( не ADO.NET). Есть ли способ создать пустую MDB с помощью ADO?

Ответы [ 3 ]

4 голосов
/ 17 ноября 2008

Вот некоторые фрагменты кода, которые работают: 

        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();
0 голосов
/ 08 января 2009

В случае, если «не ADO.NET» означает «не .NET», вот код Corey 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
0 голосов
/ 17 ноября 2008

Не уверен насчет создания его напрямую через ADO, но если на компьютере установлен Access, вы можете использовать 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
...