Delphi:在没有 Ms Access 的情况下创建 Access DB (.mdb)

Question

有没有一种方法可以在不实际使用 Ms Access 的情况下创建 Access 数据库 (.mdb)？我希望我的应用程序创建它(当用户按工具栏上的“新文档”时)。

我正在使用 Delphi 5 Ent。

提前致谢! :-)

Answer 1

是的，如果您使用 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;