Fórum Para os que se acham fera ... #146778
18/03/2003
0
Programadorjlle
Curtir tópico
+ 0Posts
18/03/2003
Anonymous
Gostei + 0
18/03/2003
Evandro Massini
procedure TForm1.RetornaIndices(Tabela:string; Retorno:tstringlist);
var a:integer;
begin
adotable1.TableName :=´tabela´;
for a:=0 to adotable1.IndexDefs.Count -1 do
begin
if tindexoption(ixPrimary) in adotable1.IndexDefs[a].Options then retorno.Add(adotable1.IndexDefs[a].Name);
end;
end;
O TStringList ´Retorno´ teria o nome de todos os índices primarios da tabela.
Até mais...
Gostei + 0
18/03/2003
Programadorjlle
Gostei + 0
18/03/2003
Anonymous
Gostei + 0
18/03/2003
Programadorjlle
A unica coisa que vc sabe responder !!! :twisted:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)