德爾福：創建沒有Ms Access的Access數據庫（.mdb）

Question

有沒有一種方法可以創建Access數據庫（.mdb）而不實際使用Ms Access？我希望我的應用程序能夠創建它（當用戶在工具欄上按下「新建文檔」時）。

我正在使用Delphi 5 Ent。

提前致謝！ :-)

Answer 1

這是它是如何做：

procedure CreateNewDatabase; 
var 
    AdoxCatalog: Catalog; 
begin 
    AdoxCatalog := CoCatalog.Create; 
    AdoxCatalog.Create(ConnectionString 
    + 'Jet OLEDB:Engine Type='+IntToStr(Jet4x)+';'); 
end; 

您需要ADOX_TLB，您可以通過導入類型庫「微軟ADO分機2.8 DDL和安全。」得到的。

Answer 2

是的，如果您使用ADOX庫，有一種方法。它是一個可以在Delphi中導入的ActiveX庫。然後你可以用下面的代碼創建一個新的數據庫。見here。

procedure TForm1.btnNewDatabaseClick(Sender: TObject); 
var 
DataSource : string; 
dbName  : string; 
begin 
dbName:='c:\aboutdelphi.mdb'; 

DataSource := 
    'Provider=Microsoft.Jet.OLEDB.4.0' + 
    ';Data Source=' + dbName + 
    ';Jet OLEDB:Engine Type=4'; 

    ADOXCatalog1.Create1(DataSource); 
end;