Create an Access Database

Delphi/Pascal

  uses   ComObj; procedure TForm1.Button1Click(Sender: TObject); var   AccessApp: Variant; begin   AccessApp := CreateOleObject('Access.Application');   AccessApp.NewCurrentDatabase('c:\111.mdb');   AccessApp := Unassigned; end;

1 2 3 4 5 6 7 8 9 10 11 12

uses   ComObj; procedure TForm1.Button1Click(Sender: TObject); var   AccessApp: Variant; begin   AccessApp := CreateOleObject('Access.Application');   AccessApp.NewCurrentDatabase('c:\111.mdb');   AccessApp := Unassigned; end;