Criar um alias interbase ?

Delphi

20/04/2004

Pessoal como eu poderia em tempo de
execução criar um alias interbase como é feito
com paradox.
Valeu !!


Essistemas

Essistemas

Curtidas 0

Respostas

Rafael.valler

Rafael.valler

20/04/2004

//Tenta Isso :

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;


GOSTEI 0
Rafael.valler

Rafael.valler

20/04/2004

//Tenta Isso :

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;


GOSTEI 0
POSTAR