Как получить список таблиц?
Falk0ner, вс, 06/07/2008 - 15:34.
A list of user tables can be retrieved by querying system table rdb$relations.
The example below shows how to do this - it inserts the table names sorted alphabetically into a ListBox (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.;
end;
ibcSourceList.Close;
end;
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.;
end;
ibcSourceList.Close;
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий