Mega Code Archive

 

Categories / Delphi / ADO Database

 

Define BDE alias

Title: Define BDE alias Use DbiAddAlias function with necessary parameters. Example shows adding STANDARD alias. uses DBIProcs, DBITypes; ... procedure TForm1.Button3Click(Sender: TObject); var AliasName, AliasPath: string; begin AliasName:='TESTAlias2'; AliasPath:='PATH:C:\Tools'; Check( DbiAddAlias( nil, PChar(AliasName), nil, PChar(AliasPath), True)); end;