Изменения представления — различия между версиями
Материал из wiki.standart-n.ru
BeTePoK (обсуждение | вклад) |
BeTePoK (обсуждение | вклад) |
||
Строка 3: | Строка 3: | ||
*изменяет view - добавляет поля по 1 штуке<br> | *изменяет view - добавляет поля по 1 штуке<br> | ||
пока что без добавления join'ов - там всё не так однозначно<br><br> | пока что без добавления join'ов - там всё не так однозначно<br><br> | ||
− | Пример: | + | Пример: |
− | + | <PRE> | |
− | + | --создание генератора | |
+ | execute procedure PR_ALTER_VIEW('','','gen1111','generator'); | ||
+ | --создание индекса | ||
+ | execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100500','index'); | ||
+ | execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100501','DESCENDING INDEX'); | ||
+ | execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100502','ASCENDING INDEX'); | ||
+ | --изменение таблицы | ||
+ | execute procedure PR_ALTER_VIEW('DOC_DETAIL','MGN_ID1','DM_DATETIME','TABLE'); | ||
+ | --изменение вьюхи | ||
+ | execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id','VIEW'); | ||
+ | execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id'); | ||
+ | execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id',''); | ||
+ | </PRE> | ||
Установка: | Установка: | ||
<PRE> | <PRE> | ||
Строка 23: | Строка 35: | ||
declare variable L integer; | declare variable L integer; | ||
begin | begin | ||
− | if (:NEW_VW_JOIN is null) | + | if ((:NEW_VW_JOIN is null) or (:NEW_VW_JOIN = '') or (upper(:NEW_VW_JOIN) = 'VIEW')) then |
− | + | begin | |
− | select list(trim(RDB$FIELD_NAME)) | + | select list(trim(RDB$FIELD_NAME)) |
− | + | from (select RC.RDB$FIELD_NAME | |
− | + | from RDB$RELATION_FIELDS RC | |
− | + | where RC.RDB$RELATION_NAME = upper(:VW_NAME) | |
− | + | order by RC.RDB$FIELD_POSITION) | |
− | + | into :VW_FIELDS; | |
− | + | select R.RDB$VIEW_SOURCE | |
− | + | from RDB$RELATIONS R | |
− | + | where R.RDB$RELATION_NAME = upper(:VW_NAME) | |
− | + | into :VW_BODY; | |
− | + | I = 0; | |
− | + | J = 0; | |
− | + | if ((select count(*) | |
− | + | from RDB$RELATION_FIELDS RF | |
− | + | where RF.RDB$RELATION_NAME = upper(:VW_NAME) and | |
RF.RDB$FIELD_NAME = upper(:NEW_VW_FIELD)) = 0) then | RF.RDB$FIELD_NAME = upper(:NEW_VW_FIELD)) = 0) then | ||
− | |||
− | |||
begin | begin | ||
− | + | while (position('FROM', UPPER(:VW_BODY), :J + 1) <> 0) do | |
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
begin | begin | ||
− | + | J = position('FROM', UPPER(:VW_BODY), :J + 1); | |
− | + | I = :I + 1; | |
end | end | ||
− | + | if (:I = 1) then --один основной from, т.е. скрипт без подзапросов | |
− | + | ||
begin | begin | ||
− | + | execute statement 'CREATE OR ALTER VIEW ' || upper(:VW_NAME) || '( ' || :VW_FIELDS || ',' || upper(:NEW_VW_FIELD) || ' ) as ' || substring(:VW_BODY from 1 for :J - 1) || ' ,' || upper(:NEW_VW_VALUE) || ' ' || substring(:VW_BODY from :J for char_length(:VW_BODY)) || ''; | |
− | + | ||
end | end | ||
+ | else | ||
+ | begin --есть подзапросы - нужно распарсить и найти основной from | ||
+ | J = 0; | ||
+ | while (position('FROM', UPPER(:VW_BODY), :J + 1) <> 0) do --находим сколько всего from'ов в скрипте | ||
+ | begin | ||
+ | I = 0; | ||
+ | J = position('FROM', UPPER(:VW_BODY), :J + 1); | ||
+ | L = 0; | ||
+ | STR = substring(:VW_BODY from L + 1 for :J - 1); | ||
+ | while (position('(', STR, :L + 1) <> 0) do --считаем количество открывающих скобок | ||
+ | begin | ||
+ | L = position('(', STR, :L + 1); | ||
+ | I = :I + 1; | ||
+ | end | ||
− | + | L = 0; | |
− | + | while (position(')', STR, :L + 1) <> 0) do --считаем количество закрывающих скобок | |
− | + | begin | |
+ | L = position(')', STR, :L + 1); | ||
+ | I = :I - 1; | ||
+ | end | ||
+ | |||
+ | if (:I = 0) then --если открывающих и закрывающих поровну - значит этот from основной, если конечно в комментах нет лишних скобок | ||
+ | execute statement 'CREATE OR ALTER VIEW ' || upper(:VW_NAME) || '( ' || :VW_FIELDS || ',' || upper(:NEW_VW_FIELD) || ' ) as ' || substring(:VW_BODY from 1 for :J - 1) || ' ,' || upper(:NEW_VW_VALUE) || ' ' || substring(:VW_BODY from :J for char_length(:VW_BODY)) || ''; | ||
+ | end | ||
+ | end | ||
end | end | ||
− | + | end | |
− | + | if (upper(:NEW_VW_JOIN) = 'TABLE') then | |
− | + | begin | |
− | + | if (not exists(select 1 from RDB$RELATION_FIELDS rf where rf.RDB$RELATION_NAME = :VW_NAME and rf.RDB$FIELD_NAME = :NEW_VW_FIELD)) then | |
+ | execute statement 'ALTER '||:NEW_VW_JOIN||' '||:VW_NAME||' ADD '||:NEW_VW_FIELD||' '||:NEW_VW_VALUE||';'; | ||
+ | end | ||
+ | if ((upper(:NEW_VW_JOIN) = 'INDEX') or (upper(:NEW_VW_JOIN) = 'DESCENDING INDEX') or (upper(:NEW_VW_JOIN) = 'ASCENDING INDEX')) then | ||
+ | begin | ||
+ | if (not exists(SELECT RDB$INDEX_NAME FROM RDB$INDICES WHERE RDB$INDEX_NAME=:NEW_VW_VALUE)) then | ||
+ | execute statement 'CREATE '||:NEW_VW_JOIN||' '||:NEW_VW_VALUE||' ON '||:VW_NAME||' ('||:NEW_VW_FIELD||');'; | ||
+ | end | ||
+ | if (upper(:NEW_VW_JOIN) = 'GENERATOR') then | ||
+ | begin | ||
+ | if (not exists(SELECT RDB$GENERATOR_NAME FROM RDB$GENERATORS WHERE RDB$SYSTEM_FLAG=0 and RDB$GENERATOR_NAME = :NEW_VW_VALUE)) then | ||
+ | execute statement 'CREATE GENERATOR '||:NEW_VW_VALUE||';'; | ||
+ | end | ||
+ | |||
end^ | end^ | ||
Версия 19:02, 14 июня 2016
Изменение VIEW
- изменяет view - добавляет поля по 1 штуке
пока что без добавления join'ов - там всё не так однозначно
Пример:
--создание генератора execute procedure PR_ALTER_VIEW('','','gen1111','generator'); --создание индекса execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100500','index'); execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100501','DESCENDING INDEX'); execute procedure PR_ALTER_VIEW('wares','name_id','wares_idx100502','ASCENDING INDEX'); --изменение таблицы execute procedure PR_ALTER_VIEW('DOC_DETAIL','MGN_ID1','DM_DATETIME','TABLE'); --изменение вьюхи execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id','VIEW'); execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id'); execute procedure PR_ALTER_VIEW('VW_WARES','MGN_ID','w.mgn_id','');
Установка:
SET TERM ^ ; create or alter procedure PR_ALTER_VIEW ( VW_NAME DM_TEXT, NEW_VW_FIELD DM_TEXT, NEW_VW_VALUE DM_TEXT, NEW_VW_JOIN DM_TEXT = null) as declare variable I DM_ID; declare variable VW_BODY DM_TEXT_BIG; declare variable VW_FIELDS DM_TEXT_BIG; declare variable J DM_ID; declare variable STR DM_TEXT_BIG; declare variable L integer; begin if ((:NEW_VW_JOIN is null) or (:NEW_VW_JOIN = '') or (upper(:NEW_VW_JOIN) = 'VIEW')) then begin select list(trim(RDB$FIELD_NAME)) from (select RC.RDB$FIELD_NAME from RDB$RELATION_FIELDS RC where RC.RDB$RELATION_NAME = upper(:VW_NAME) order by RC.RDB$FIELD_POSITION) into :VW_FIELDS; select R.RDB$VIEW_SOURCE from RDB$RELATIONS R where R.RDB$RELATION_NAME = upper(:VW_NAME) into :VW_BODY; I = 0; J = 0; if ((select count(*) from RDB$RELATION_FIELDS RF where RF.RDB$RELATION_NAME = upper(:VW_NAME) and RF.RDB$FIELD_NAME = upper(:NEW_VW_FIELD)) = 0) then begin while (position('FROM', UPPER(:VW_BODY), :J + 1) <> 0) do begin J = position('FROM', UPPER(:VW_BODY), :J + 1); I = :I + 1; end if (:I = 1) then --один основной from, т.е. скрипт без подзапросов begin execute statement 'CREATE OR ALTER VIEW ' || upper(:VW_NAME) || '( ' || :VW_FIELDS || ',' || upper(:NEW_VW_FIELD) || ' ) as ' || substring(:VW_BODY from 1 for :J - 1) || ' ,' || upper(:NEW_VW_VALUE) || ' ' || substring(:VW_BODY from :J for char_length(:VW_BODY)) || ''; end else begin --есть подзапросы - нужно распарсить и найти основной from J = 0; while (position('FROM', UPPER(:VW_BODY), :J + 1) <> 0) do --находим сколько всего from'ов в скрипте begin I = 0; J = position('FROM', UPPER(:VW_BODY), :J + 1); L = 0; STR = substring(:VW_BODY from L + 1 for :J - 1); while (position('(', STR, :L + 1) <> 0) do --считаем количество открывающих скобок begin L = position('(', STR, :L + 1); I = :I + 1; end L = 0; while (position(')', STR, :L + 1) <> 0) do --считаем количество закрывающих скобок begin L = position(')', STR, :L + 1); I = :I - 1; end if (:I = 0) then --если открывающих и закрывающих поровну - значит этот from основной, если конечно в комментах нет лишних скобок execute statement 'CREATE OR ALTER VIEW ' || upper(:VW_NAME) || '( ' || :VW_FIELDS || ',' || upper(:NEW_VW_FIELD) || ' ) as ' || substring(:VW_BODY from 1 for :J - 1) || ' ,' || upper(:NEW_VW_VALUE) || ' ' || substring(:VW_BODY from :J for char_length(:VW_BODY)) || ''; end end end end if (upper(:NEW_VW_JOIN) = 'TABLE') then begin if (not exists(select 1 from RDB$RELATION_FIELDS rf where rf.RDB$RELATION_NAME = :VW_NAME and rf.RDB$FIELD_NAME = :NEW_VW_FIELD)) then execute statement 'ALTER '||:NEW_VW_JOIN||' '||:VW_NAME||' ADD '||:NEW_VW_FIELD||' '||:NEW_VW_VALUE||';'; end if ((upper(:NEW_VW_JOIN) = 'INDEX') or (upper(:NEW_VW_JOIN) = 'DESCENDING INDEX') or (upper(:NEW_VW_JOIN) = 'ASCENDING INDEX')) then begin if (not exists(SELECT RDB$INDEX_NAME FROM RDB$INDICES WHERE RDB$INDEX_NAME=:NEW_VW_VALUE)) then execute statement 'CREATE '||:NEW_VW_JOIN||' '||:NEW_VW_VALUE||' ON '||:VW_NAME||' ('||:NEW_VW_FIELD||');'; end if (upper(:NEW_VW_JOIN) = 'GENERATOR') then begin if (not exists(SELECT RDB$GENERATOR_NAME FROM RDB$GENERATORS WHERE RDB$SYSTEM_FLAG=0 and RDB$GENERATOR_NAME = :NEW_VW_VALUE)) then execute statement 'CREATE GENERATOR '||:NEW_VW_VALUE||';'; end end^ SET TERM ; ^ /* Existing privileges on this procedure */ GRANT EXECUTE ON PROCEDURE PR_ALTER_VIEW TO SYSDBA;