Как создать базу данных (mdb) без Access
Очень просто создать пустую базу данных Access (*.mdb
файл) с использованием OLE. Не обязательно устанавливать MS Access на Ваш компьютер. Если происходит исключение, возвратится сообщение об ошибке. После создания базы данных, Вы можете создавать таблицы простыми SQL запросами.
uses comobj,sysutils; function CreateAccessDatabase( FileName : String) : String; var cat : OLEVariant; begin result := ''; try cat := CreateOleObject('ADOX.Catalog'); cat.create ( 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';'); cat := NULL; except on e : Exception do result := e.message; end; end;
Комментарии