Title: How to create a Access-Database (mdb) without Access
Question: Using MS-Access-Databases with ADO is no problem in Delphi. But what to do if no Access is installed? How to create your Database?
Answer:
It's very simple to create a empty Access-Database (*.mdb File) using OLE. It's not necessary to have MS-Access installed on your computer. If an exception occures the error message will returned. After creating the DB you can create Tables with simple SQL-Statements.
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;