Listar todos os campos de uma tabela!
Galera boa, como eu faço o algoritimo para listar todos os campos de uma tabela, vejam só o q eu preciso fazer.
Preciso exportar os dados de uma tabela para Txt, só q não tenho a estrutura da tabela pois pode ser qualquer uma, tipo eu indico a localização da tabela e ela é carregada pelo sistema para um componente TTable em tempo de execução, daí preciso pegar os campos e gerar o TXT, alguma idéia?
Valew!!!
Preciso exportar os dados de uma tabela para Txt, só q não tenho a estrutura da tabela pois pode ser qualquer uma, tipo eu indico a localização da tabela e ela é carregada pelo sistema para um componente TTable em tempo de execução, daí preciso pegar os campos e gerar o TXT, alguma idéia?
Valew!!!
Andrew
Curtidas 0
Melhor post
Fsflorencio
30/12/2005
veja um exemplo de como se obter o nome e o tipo dos campos.
var i : integer;
campos : string;
begin
campos := ´´;
for i := 0 to table.FieldList.Count -1 do
begin
case table.FieldList.Fields[i].DataType of
ftString : campos := campos + ´|A:´;
ftSmallint, ftInteger, ftWord : campos := campos + ´|I:´;
ftBoolean: campos := campos + ´|B:´;
//... e vai por aí a fora ...
end;
campos := campos + table.FieldList.Names[i];
end
showmessage( campos );
end;
//veja a lista de tipos. tem no help do delphi
type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
var i : integer;
campos : string;
begin
campos := ´´;
for i := 0 to table.FieldList.Count -1 do
begin
case table.FieldList.Fields[i].DataType of
ftString : campos := campos + ´|A:´;
ftSmallint, ftInteger, ftWord : campos := campos + ´|I:´;
ftBoolean: campos := campos + ´|B:´;
//... e vai por aí a fora ...
end;
campos := campos + table.FieldList.Names[i];
end
showmessage( campos );
end;
//veja a lista de tipos. tem no help do delphi
type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
GOSTEI 1
Mais Respostas
Eixox
30/12/2005
Bíblia do Delphi do Marco Cantú, na parte de banco de dados ele mostra como pegar a estrutura de uma tabela.
GOSTEI 0
Martins
30/12/2005
Assim vc joga o nome dos campos em um TMemo
Memo1.Lines.Assign(Table1.FieldList);
GOSTEI 0