В форуме часто встречал обсуждение сабжа... в конце - концов сам столкнулся с проблемой. Вот, выставляю на растерзание свое решение:
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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
CREATE PROCEDURE STARTING_CONNECT (
TABLE_NAME VARCHAR( 30 ),
PK_FIELD VARCHAR( 30 ),
FK_FIELD VARCHAR( 30 ),
PARENT_VALUE NUMERIC( 18 , 0 ),
ORDER_FIELDS VARCHAR( 100 ),
IN_UROV NUMERIC( 18 , 0 ))
RETURNS (
ID NUMERIC( 18 , 0 ),
OUT_UROV NUMERIC( 18 , 0 ))
AS
begin
IF (IN_UROV IS NULL) Then
IN_UROV= 0 ;
ELSE
IN_UROV=IN_UROV+ 1 ;
FOR EXECUTE STATEMENT
'SELECT ' || PK_FIELD || ' FROM ' || TABLE_NAME ||
' WHERE ' || FK_FIELD ||
CASE
WHEN PARENT_VALUE IS NULL THEN ' IS NULL'
ELSE '=' || PARENT_VALUE
END ||
CASE
WHEN ORDER_FIELDS IS NULL THEN ''
ELSE ' ORDER BY ' || ORDER_FIELDS
END || ''
INTO :ID
DO BEGIN
OUT_UROV = IN_UROV;
SUSPEND;
FOR
SELECT ID, OUT_UROV, TEXT
FROM STARTING_CONNECT(
:TABLE_NAME, :PK_FIELD, :FK_FIELD,
:ID, :ORDER_FIELDS, :IN_UROV)
INTO :ID, :OUT_UROV
DO SUSPEND;
END
end
Использовать:
Create table Tree(Id NUMERIC(18,0), TreeId NUMERIC(18,0), Name Varchar(200))
insert...
SELECT t.name, sc.OUT_UROV
FROM Tree t
JOIN STARTING_CONNECT('Tree', 'Id', 'TreeId', NULL, 'NAME', NULL) sc ON (t.id=sc.id)
Рассмотрю все замечания/предложения (конструкция будет сипользована в реальном проекте, поэтому буду рад, если кто - нибудь че-нить заметит, или предложит).
