Как получить список таблиц Interbase?

Материал из DRKB

(перенаправлено с «Как получить список таблиц?»)

Как получить список таблиц?[править | править код]

Список таблиц пользователя можно получить запросом системной таблицы rdb$relations.

Пример, демонстрирующий как это сделать - вставляет отсортированные по алфавиту имена таблиц в список TListBox (lbSourceTables).


begin
  ibcSourceList.SQL.Clear;
  ibcSourceList.SQL.Add('SELECT rdb$relation_name FROM rdb$relations');
  ibcSourceList.SQL.Add('WHERE rdb$system_flag = 0');
  ibcSourceList.SQL.Add('ORDER BY rdb$relation_name');
  ibcSourceList.Open;
  while not ibcSourceList.Eof do
  begin
    lbSourceTables.Items.Add(ibcSourceList.Fields[0].AsString);
    ibcSourceList.Next;
  end;
  ibcSourceList.Close;
end;


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 02906