Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!
Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.
Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!
[Solved] Delphi - How to create an empty MS Access file (mdb)
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Joined: 12 years ago
Posts: 2859
Topic starter
October 24, 2013 11:10 AM
uses comobj,sysutils;
...
function CreateAccessDatabase(FileName : String) : String;
var mdb : OLEVariant;
begin
result := '';
try
mdb := CreateOleObject('ADOX.Catalog');
mdb.create('Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+Filename+';');
mdb := NULL;
except on e : Exception do
result := e.message;
end;
end;
