Categories
How to add database aliases to BDE at 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;
|
For example, if you want to create an alias called WORK_DATA that points to the C:\WORK\DATA directory and use DBASE driver as the default database driver:
AddBDEAlias(
'WORK_DATA',
'C:\WORK\DATA',
'DBASE' );
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 2.x, Functions