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;

Answer 2

这就是它的完成方式：

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

您需要通过导入类型库“Microsoft ADO Ext.2.8 for DDL and Security”来获取ADOX_TLB。

Delphi：创建没有Ms Access的Access DB（.mdb）

2 个答案: