( تعداد نمایش : 518 )

ساخت یک بانک اکسس در دلفی

uses
ComObj;

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

دیدگاه خود را بیان کنید.

باید وارد سایت شده باشید برای دیدگاه دادن