TDatabase.GetFieldNames equivalent

[Princess Innah]

Hi. Is there an equivalent to the TDatabase.GetFieldNames method?

[Dimon]

We don't have exact equivalent for this function, but you can use TIBCMetaData for obtaining the same result. Here is an example:

Code: Select all

procedure GetFieldNames(Connection: TIBCConnection; const TableName: string; List: TStrings);
var
  IBCMetaData: TIBCMetaData;
begin
  IBCMetaData := TIBCMetaData.Create(nil);
  try
    IBCMetaData.Connection := Connection;
    IBCMetaData.MetaDataKind := 'Columns';
    IBCMetaData.Restrictions.Add('table_name=' + TableName);
    IBCMetaData.Open;
    IBCMetaData.First;
    List.Clear;
    while not IBCMetaData.Eof do begin
      List.Add(IBCMetaData.FieldByName('column_name').AsString);
      IBCMetaData.Next;
    end;
  finally
    IBCMetaData.Free;
  end;
end;

[Princess Innah]

Wow. That was fast. Thank you so much.