Статьи
|
Использование базы данных 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;
|