...create an Access Database (2)?

Author: Avalon Hsu

Category: Database

uses
  
ComObj;

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

(* see also http://www.swissdelphicenter.ch/de/showcode.php?id=1695 *)

 

printed from
www.swissdelphicenter.ch
developers knowledge base