Есть ли способ создать базы данных Access (.mdb) без фактического использования Ms Access? Я бы хотел, чтобы мое приложение создавало его вместо этого (когда пользователь нажимает «Новый документ» на панели инструментов).
Я использую Delphi 5 Ent.
Заранее спасибо! :-)
Да, есть способ, если вы используете библиотеку 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;
Вот как это делается:
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 и безопасности».
