Tips (1541)

Tip Bewertung (35):

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 *)