uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
AccessApp: Variant;
begin
AccessApp := CreateOleObject(‘Access.Application’);
AccessApp.NewCurrentDatabase(‘c:\111.mdb’);
AccessApp := Unassigned;
end;
IDN بزرگترین مرجع توسعه دهندگان ایران – آموزش زبانهای برنامه نويسی
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
AccessApp: Variant;
begin
AccessApp := CreateOleObject(‘Access.Application’);
AccessApp.NewCurrentDatabase(‘c:\111.mdb’);
AccessApp := Unassigned;
end;
دیدگاه خود را بیان کنید.
باید وارد سایت شده باشید برای دیدگاه دادن