Problem:
Need to create a BDE alias programmatically
Solution:
When you create a delphi project and include the DB unit it creates
an instance of a TSession component called Session. This component
has methods to allow the creation of a BDE alias.
If your application includes any of the database components the DB unit
is automatically included in the project. If you do NOT use any of the
database components you will have to manually add the DB unit to have
access to the Session variable. Alternatively you could add your own
TSession variable to your project. (TSession is a component in the Data
Access tab of the component palette).
The following is a code fragment from an program that creates a new
BDE alias:
------------------- Begin Code Fragment ---------------------
{ procedure to create new BDE alias }
{ it creates an InterBase alias with the specified }
{ database and username }
{ All BDE parameters not specified will use the defaults }
procedure TForm1.Button1Click(Sender: TObject);
var
AParams: TStringList;
begin
AParams := TStringList.Create;
AParams.add('Server Name=' + 'lurch:d:c:ibtmprestored.gdb');
AParams.add('User Name=' + 'SYSDBA');
Session.AddAlias('NewAlias', 'INTRBASE', AParams);
Session.SaveConfigFile;
AParams.Free;
end;
Last Modified: 27-SEP-00