Add database aliases to BDE at run time (Views: 2141)
Problem/Question/Abstract: Add database aliases to BDE at run time Answer: This function that will let you add database aliases to BDE (Borland Database engine) during run time: 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'); |