Fórum IBTable1.IndexFields #180224
05/09/2003
0
procedure Tfrm1.Button3Click(Sender: TObject);
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
foi
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
foi
Foi
Curtir tópico
+ 0
Responder
Posts
06/09/2003
Bacalhau
Qual é o erro que dá?
Responder
Gostei + 0
06/09/2003
Foi
procedure Tfrm1.Button3Click(Sender: TObject);
var i : integer;
campo : string;
begin
dm.IBTable1.Active := true;
for i := 0 to dm.IBTable1.IndexFieldCount - 1 do
begin
campo := dm.IBTable1.IndexFields[i].FieldName;
listbox4.Items.Add(campo);
end;
end;
por que este codigo nao esta funcionando.
nao da error no listbox4 nao aparece a chae primaria da tabela como no table.indexfieldname[i].fieldname.
foi
Responder
Gostei + 0
08/09/2003
Bacalhau
foi,
eu escrevi um coisa deste tipo, que apanhou o indice primário.
TABLE3.TABLENAME := ´qualquer.db´;
table3.indexname := ´´; // isto força o indice ficar primário
TABLE3.OPEN;
campo := TABLE3.INDEXFIELDS[0].FIELDNAME;
TABLE3.CLOSE;
eu escrevi um coisa deste tipo, que apanhou o indice primário.
TABLE3.TABLENAME := ´qualquer.db´;
table3.indexname := ´´; // isto força o indice ficar primário
TABLE3.OPEN;
campo := TABLE3.INDEXFIELDS[0].FIELDNAME;
TABLE3.CLOSE;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)