Внешний вид сайта:

Как создать базу данных (mdb) без Access

Использование базы данных MS Access с ADO в Delphi не вызывает проблем. Но что делать, если MS 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;

Комментарии

Нет комментариев. Ваш будет первым!