Delphi:创建没有Ms Access的Access DB(.mdb)

Question

有没有办法在不实际使用Ms Access的情况下创建Access数据库(.mdb)？我希望我的应用程序能够创建它(当用户按下工具栏上的"新建文档"时).

我正在使用Delphi 5 Ent.

提前致谢!:-)

Answer 1

是的,如果您使用ADOX库,有一种方法.它是一个可以在Delphi中导入的ActiveX库.然后,您可以使用下面的代码创建一个新数据库.看到这里.

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;