Create an Access Database
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; |