Delphi: Создание базы данных Access (.mdb) без MS Access

Question

Есть ли способ создания баз данных Access (.mdb) без фактического использования Ms Access?Я хотел бы, чтобы мое приложение создавало его (когда пользователь нажимает «Новый документ» на панели инструментов).

Я использую Delphi 5 Ent.

Заранее спасибо!: -)

Answer 1

Да, есть способ, если вы используете библиотеку ADOX. Это библиотека ActiveX, которую вы можете импортировать в Delphi. Затем вы можете создать новую базу данных с кодом ниже. Смотрите здесь .

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;

Вам понадобится ADOX_TLB, который вы можете получить, импортировав библиотеку типов «Microsoft ADO Ext. 2.8 для DDL и безопасности».