建立一個MDB檔案

昨天令狐說需要用到Access資料庫，又不想裝Office，在群裡徵求辦法。

我建議的辦法是用DELPHI／BCB內建的SQL Explorer通過BDE over ODBC串連Access資料庫，這樣就可以修改庫結構，及使用SQL語句進行大部分資料庫操作。

但是有一個問題就是不能建立一個空的資料庫檔案，只能串連已有的MDB檔案。

不過這個問題好解決，用ADOX不過是幾行代碼的問題，如果會VBS當然最好，MSDN裡有現成的代碼，可惜偶不會，只好拿TCX寫了一個：

void CreateMDB( AnsiString sFileName )
{
//  from MSDN
//  Create Method Example (VB)
//  The following code shows how to create a new Microsoft Jet database with the Create method.
    Variant adoCat;
    WideString connStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='"
        + sFileName + "'";
    Procedure createCat( "Create" );

    CoInitialize( NULL );
    adoCat = Variant::CreateObject( "ADOX.Catalog" );
    adoCat.Exec( createCat << connStr );
    CoUninitialize( );
}

如果用DELPHI寫，這個代碼會更簡單，因為DELPHI在編譯器一級擴充了"."運算子的功能，不像TCX需要保持C＋＋的文法不變。

完整的代碼及編譯好的程式在這裡下載：下載頁面。