Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Banco de Dados

Obter nomes dos campos de uma tabela

Inclua na seção uses: dbTables, Classes, Forms
A função abaixo obtém os nomes de todos os campos de uma
tabela do banco de dados.

procedure tbGetFieldNames(const DBName, TblName: string;
  List: TStringList);
var
  I: integer;
begin
  List.Clear;
  with TTable.Create(Application) do
  try
    DatabaseName := DBName;
    TableName := TblName;
    with FieldDefs do begin
      Update;
      for I := 0 to Count -1 do
        List.Add(Items[I].Name);
    end;
  finally
    Free;
  end;
end;

=== Exemplo de uso ===

- Coloque um TMemo e um TButton no Form;
- Coloque o código abaixo no evento OnClick do Button:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  try
    tbGetFieldNames(Edit1.Text, Edit2.Text, List);
    Memo1.Lines.Assign(List);
  finally
    List.Free;
  end;
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!