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');