Alias - mssql

TESTA SE O ALIAS EXISTE

=======================

ListaAlias := TStringList.Create;

Session.GetAliasNames(ListaAlias);

if ListaAlias.IndexOf('ChequesMercado') = -1 then

begin

  ListaAlias.Clear;

  ListaAlias.Add('DATABASE NAME =ChequesMercado');

  ListaAlias.Add('ENABLED BCD   =TRUE');

  ListaAlias.Add('SERVER NAME   =NTM');

  Session.AddAlias('ChequesMercado', 'MSSQL', ListaAlias);

  Session.SaveConfigFile;

end;

DB.AliasName    := 'ChequesMercado';

DB.DatabaseName := 'ChequesMercado';

DB.Connected    := True;

ListaAlias.Free;