Buscar por:

Obtendo nomes dos campos de uma tabela

Código

{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; {Usa-se:

- 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;