chd,
Ну как-то так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
execute block (searchstr varchar(100)=?searchstr)
returns (SQL varchar(2048))
as
declare variable object_name varchar(32);
declare variable field_name varchar(32);
declare variable WSQL varchar(2048);
begin
-- select all tables
for select rdb$relations.rdb$relation_name
from rdb$relations
where rdb$relations.rdb$system_flag=0 and
rdb$relations.rdb$view_blr is null
into :object_name
do begin
SQL=''; WSQL='';
for select trim(rdb$relation_fields.rdb$field_name)
from rdb$relation_fields
join rdb$fields on (rdb$fields.rdb$field_name=rdb$relation_fields.rdb$field_source and
rdb$fields.rdb$field_type in (14,37))
where rdb$relation_fields.rdb$relation_name=:object_name
into :field_name
do begin
SQL=SQL||field_name||',';
WSQL=WSQL||'('||field_name||' containing '''||searchstr||''') OR';
end
SQL=trim(',' from SQL);
WSQL=trim('OR' from WSQL);
SQL='SELECT '||SQL||' FROM '||trim(object_name)||' WHERE '||WSQL;
suspend;
end
end
Общий смысл - на вход отдаем строку, которую ищем - на выходе - получаем SQL запросы к таблицам в которых есть CHAR/VARCHAR поля, могущие содержать строку.
