Mega Code Archive

 

Categories / Delphi / ADO Database

 

How to create a Access Database (mdb) without Access

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;