Devart Forums

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;