德尔福：创建没有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;