uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
AccessApp: Variant;
begin
AccessApp := CreateOleObject(‘Access.Application’);
AccessApp.NewCurrentDatabase(‘c:\111.mdb’);
AccessApp := Unassigned;
end;
Iran Developers Network
IDN بزرگترین مرجع توسعه دهندگان ایران – آموزش زبانهای برنامه نويسی
( تعداد نمایش : 349 )
اطلاعات
-
چهارشنبه ۶ آبان ۱۳۸۸
-
admin
-
کدها و ترفندهای زبان دلفی
-
بدون دیدگاه
-
خوراک (فید) دیدگاهها
دیدگاه خود را بیان کنید.
باید وارد سایت شده باشید برای دیدگاه دادن