Colunas de uma tabela
como faço para pegar o nome das colunas de um tabela de um banco?
Smaug_84
Curtidas 0
Respostas
Joilson_gouveia
07/10/2003
254 - Listando os campos da tabela num Memo
A implementação da função abaixo permite inserir os campos de uma tabela num componente TMemo.
Para que a função funcione é necessário que as units StdCtrls e DbTables tenham sido declaradas.
Os campos que serão listados, são aqueles que foram declarados através da operação de duplo clique no componente Table e opção ADD Fields.
Código Completo:
Procedure ListaCampos(TB:Ttable;M:Tmemo);
Begin
M.Lines.Assign(TB.ListField);
End;
Exemplo:
Procedure TForm1.Button1Click(Sender:TObject);
Begin
ListaCampos(Table1,Memo1);
end;
A implementação da função abaixo permite inserir os campos de uma tabela num componente TMemo.
Para que a função funcione é necessário que as units StdCtrls e DbTables tenham sido declaradas.
Os campos que serão listados, são aqueles que foram declarados através da operação de duplo clique no componente Table e opção ADD Fields.
Código Completo:
Procedure ListaCampos(TB:Ttable;M:Tmemo);
Begin
M.Lines.Assign(TB.ListField);
End;
Exemplo:
Procedure TForm1.Button1Click(Sender:TObject);
Begin
ListaCampos(Table1,Memo1);
end;
GOSTEI 0
Smaug_84
07/10/2003
AMIGO,
OLHANDO A SUA FUNÇÃO TIVE UMA IDEIA E CONSEGUI USAR A MESMA LOGICA COM UMA QUERY
QUERY.FIELDLIST.TEXT ME RETORNA TODA A LISTA DE CAMPOSD DE UMA QUERY
VALEU
FALLOW
OLHANDO A SUA FUNÇÃO TIVE UMA IDEIA E CONSEGUI USAR A MESMA LOGICA COM UMA QUERY
QUERY.FIELDLIST.TEXT ME RETORNA TODA A LISTA DE CAMPOSD DE UMA QUERY
VALEU
FALLOW
GOSTEI 0