3


3

Delphi:Ms AccessなしでAccess DB(.mdb)を作成

実際にMs Accessを使用せずにAccessデータベース(.mdb)を作成する方法はありますか? 代わりに(ユーザーがツールバーの[新しいドキュメント]を押し​​たときに)アプリを作成したいです。

Delphi 5 Entを使用しています。

前もって感謝します! :-)

2 Answer


9


はい、ADOXライブラリを使用する方法があります。 これは、DelphiでインポートできるActiveXライブラリです。 次に、以下のコードを使用して新しいデータベースを作成できます。 http://delphi.about.com/od/database/l/aa072401a.htm [こちら]をご覧ください。

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;


2


これがどのように行われるかです:

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

タイプライブラリ「Microsoft ADO Ext。」をインポートして取得できるADOX_TLBが必要です 2.8 for DDL and Security」。