alias با کد نویسی

سلام دوستان
چطوری می‌شه توی دلفی با استفاده از کد نویسی alias درست کرد که از طریق آن به بانک اکسس دسترسی پیدا کرد؟

این کد رو من برای BDE استفاده میکردم. با تغییر در پارامترهاش میتونید اونو برای MS-Access هم استفاده کنید.

uses

  DBIProcs, DBITypes;



procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver: string);

var

  h: hDBISes;

begin

  DBIInit(nil);

  DBIStartSession('dummy', h, '');

  DBIAddAlias(nil, PChar(sAliasName), PChar(sDBDriver),

    PChar('PATH:' + sAliasPath), True);

  DBICloseSession(h);

  DBIExit;

end;



{ Sample call to create an alias called WORK_DATA that }

{ points to the C:\WORK\DATA directory and uses the    }

{ DBASE driver as the default database driver:         }



AddBDEAlias('WORK_DATA', 'C:\WORK\DATA', 'DBASE');