Fórum Table1.IndexFields #177440
25/08/2003
0
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
Curtir tópico
+ 0
Responder
Posts
26/08/2003
Nigro
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)