Table1.IndexFields
procedure Tfrm1.Button3Click(Sender: TObject);
var i : integer;
campo : string;
begin
dm.Table1.Active := true;
for i := 0 to dm.Table1.IndexFieldCount - 1 do
begin
campo := dm.Table1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
so funciona para tabela do paradox. para tabela do access e dbase e tb interbase nao esta funcionando.
foi
var i : integer;
campo : string;
begin
dm.Table1.Active := true;
for i := 0 to dm.Table1.IndexFieldCount - 1 do
begin
campo := dm.Table1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
so funciona para tabela do paradox. para tabela do access e dbase e tb interbase nao esta funcionando.
foi
Foi
Curtidas 0
Respostas
Nigro
25/08/2003
Esse recurso somente pode ser utilizado mesmo em Paradox, pois em Interbase e Firbird o conceito de indice secundário é totalmente diferente em DBase não sei como funciona e Access nunca foi um bom gerenciador de banco.
Por tanto creio que esse seu sistema esteja preso em um determinado tipo de base.
Nigro.
Por tanto creio que esse seu sistema esteja preso em um determinado tipo de base.
Nigro.
GOSTEI 0