Urgente
09/04/2003
0
Como pegar o nome de todos os aliases da mequina
Valeu
Valeu
Anonymous
Curtir tópico
+ 0
Responder
Posts
09/04/2003
Anonymous
465 - Obtendo a lista de Aliases disponíveis
Tudo que você precisa é de um componente TSession, TListBox e uma StringList.
Defina a propriedade SessionName do TSession para ´Session´.
Utilize o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStringList: TStringList;
i: integer;
begin
MyStringList := TStringList.Create;
Session.GetAliasNames(MyStringList);
for I := 0 to MyStringList.Count - 1 do
ListBox1.Items.Add(MyStringList[I]);
end;
Utilize o Help do TSession e consulte seus métodos para ver por exemplo como capturar o diretório ou caminho de um Alias com o método ´GetAliasParams´.
454 - Obtendo o nome das tabelas de um determinado alias
procedure TForm1.Button1Click(Sender: TObject);
begin
try
S := TStringList.Create;
GetTableNames(´Nome_do_Alias´,´*.db´,False, False, S);
Memo1.Text:=S.Text;
finally
S.Free;
end;
end;
Tudo que você precisa é de um componente TSession, TListBox e uma StringList.
Defina a propriedade SessionName do TSession para ´Session´.
Utilize o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStringList: TStringList;
i: integer;
begin
MyStringList := TStringList.Create;
Session.GetAliasNames(MyStringList);
for I := 0 to MyStringList.Count - 1 do
ListBox1.Items.Add(MyStringList[I]);
end;
Utilize o Help do TSession e consulte seus métodos para ver por exemplo como capturar o diretório ou caminho de um Alias com o método ´GetAliasParams´.
454 - Obtendo o nome das tabelas de um determinado alias
procedure TForm1.Button1Click(Sender: TObject);
begin
try
S := TStringList.Create;
GetTableNames(´Nome_do_Alias´,´*.db´,False, False, S);
Memo1.Text:=S.Text;
finally
S.Free;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)