ADOX Access MDB erzeugen

Nun haben habt Ihr bereits einiges gelesen, aber kein Microsoft Access und so denkt ihr vielleicht alles schön und gut aber was nützt mir der Zugriff auf eine Access Datenbank wenn ich keine habe. Deshalb möchte ich an dieser  Stelle erklären wie man ohne Microsoft Access eine Access MDB erstellt, natürlich auch wieder als kleines Programm. Übergibt man an in der Kommandozeile den Namen der MDB z.B. test.mdb wird diese im lokalen Ordner erzeugt.

Dafür braucht wir den Import der Type Library "ADO Extensions 2.5 for DDL and Security Library Reference"  und das Package LazActiveX.

Import ADOX : ADO Extensions 2.5 for DDL and Security Library Reference
C:\Program Files\Common Files\System\ado\msadox.dll adox 6 0 tlb.pas (49,82 kByte) 30.12.2018 21:29

program CreateAccessMDB;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}
uses
  Interfaces, // used packages: LazActiveX
  ADOX_6_0_TLB; // ADO Extensions 2.5 for DDL and Security Library Reference

procedure CreateMDB(const Filename: string);
var cat: _Catalog;
begin
  cat := CoCatalog.Create;
  cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
  cat := nil;
end;

begin
  CreateMDB(ParamStr(1));
end.