当前位置：文江博客话题详情

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

发布于 2024-09-29 03:14:15 字数 130 浏览 1 评论 0原文

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

我正在使用 Delphi 5 Ent。

提前致谢！ :-)

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

叫思念不要吵 2024-10-06 03:14:15

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

Yes there is a way if you use the ADOX library. It is an ActiveX library you can import in Delphi. Then you can create a new database with the code below. See 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;

回复收藏 0 原文

久夏青 2024-10-06 03:14:15

它是这样完成的：

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

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

This is how it's done:

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

You will need ADOX_TLB which you can get by importing type library "Microsoft ADO Ext. 2.8 for DDL and Security".

回复收藏 0 原文

~没有更多了~