Delphi: создание Access DB (.mdb) без доступа к Ms

Question

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

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

Заранее благодарен! :-)

Answer 1

Вот как это делается:

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 и безопасности.".

Answer 2

Да, есть способ, если вы используете библиотеку ADOX. Это библиотека ActiveX, которую вы можете импортировать в Delphi. Затем вы можете создать новую базу данных с кодом ниже. См. 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;