Buscar

Cria um alias em tempo de execução

Código

Procedure ConfigAlias(AAlias, cDriver,APath: String);
var
Param: TStrings;
begin
Param := TStringList.Create;
try
// Obs. APath deve conter o nome do banco
// Ex. "C:Banco.gdb"
Param.Add(Format('SERVER NAME=', [APath]));
Session.AddAlias(AAlias, cDriver, Param);
finally
Param.Free;
end;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 02/08/03
Por: Mario C. Neto
Visualizada: 3194 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009