Para os que se acham fera ...
Gostaria de saber se tem uma função ou algum jeito de saber quais as chaves primarias de uma tabela fazendo a conexao via ado e o banco de dados access ?
Programadorjlle
Curtidas 0
Respostas
Anonymous
18/03/2003
Não.
GOSTEI 0
Evandro Massini
18/03/2003
Tente o seguinte:
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...
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
Programadorjlle
18/03/2003
Muito Obrigado pela resposta Evandro Massini valeu cara :D
GOSTEI 0
Anonymous
18/03/2003
O Carinha chato !!!
GOSTEI 0
Programadorjlle
18/03/2003
O Carinha chato !!!
A unica coisa que vc sabe responder !!! :twisted:
GOSTEI 0