alias با کد نویسی

[mohamad6]

سلام دوستان
چطوری می‌شه توی دلفی با استفاده از کد نویسی 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');