Как сделать двунаправленный запрос

Евгений Каратаев

Мне давно было интересно, можно ли сделать в Cache' такой запрос, чтобы его можно было бы прокручивать назад, например что-то вроде команды, парной к Fetch, например Prior. Собственные средства Cache' почему-то не предоставляют такой возможности. Для этого я изучил характер взаимодействия sql-движка с Cache Object Script. В результате исследований выяснилось, что это возможно, хотя и не столь гладко, как бы того хотелось. Надеюсь, читатель с пониманием отнесется к возникшей некрасивости.

Возьмем и сделаем рутину со следующим текстом:

run()

&sql(declare cur CURSOR for select ID, Name, Home

from Sample.Person order by ID asc)

&sql(open cur)

&sql(fetch cur)

&sql(close cur)

q

Скомпилируем и сохраним текст полученной int-рутины. После чего изменим рутину следующим образом:

run()

&sql(declare cur CURSOR for select ID, Name, Home

from Sample.Person order by ID desc)

&sql(open cur)

&sql(fetch cur)

&sql(close cur)

q

И также сохраним текст полученной int-рутины. В запросе можно использовать любую имеющуюся у Вас таблицу, просто в данном случае я использовал таблицу из штатного дистрибутива.

Сличим полученные тексты int-рутин. Ничего особенно романтичного в работе автоматического генератора не наблюдается, за исключением того, что сгенерированные тексты полностью совпадают за исключением замены операции $o() на $zp(), которые друг другу прямо противоположны по направлению. Таким образом, для реализации двунаправленной прокрутки используем оба варианта и попробуем совместить их данные, оставив и использовав коды (рутины) доступа.

Для работы нам потребуются некие дежурные данные. Создаем новый класс, например User.NameList, наследник %Persistent и %Populate. Добавляем ему новое свойство Name:%String. Сохраняем, компилируем. В терминале создаем 10 объектов для теста:

d ##class(User.NameList).Populate()

Запускаем SQL Manager и для проверки что действительно создана таблица sql и содержит тестовые данные, выполняем запрос

select ID, Name from NameList.

Если все было в порядке, то будет показана табличка с двумя колонками и десятком строк. Имена англоязычные, вымышленные. Для проверки работы прокрутки в обе стороны создадим рутину (например FetchBack) с кодом

Test()

n ascHandle,descHandle,ascSelect,descSelect,

n ok,i,AtEnd,Row,ID,Name,State,ascClose,descClose

; первоначальноевыражение - "select ID, Name from NameList"

; чтобы ходить по нему, преобразуем в два

s ascSelect="select ID, Name from NameList order by ID ASC"

s descSelect="select ID, Name from NameList order by ID DESC"

S ok=##class(%DynamicQuery).SQLPrepare(.descHandle,descSelect)

S ok=##class(%DynamicQuery).SQLExecute(.descHandle)

s descClose=descHandle

S ok=##class(%DynamicQuery).SQLPrepare(.ascHandle,ascSelect)

S ok=##class(%DynamicQuery).SQLExecute(.ascHandle)

s State=$li(ascHandle,1)

s ascClose=ascHandle

; идемна 4 шагавперед

s $li(ascHandle,1)=State

w "4 steps forward",!

f i=1:1:4 d

. d ##class(%DynamicQuery).SQLFetch(.ascHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(ascHandle)

; возвращаемся на 2 шага назад

s $li(descHandle,1)=State

w "2 steps backward",!

f i=1:1:2 d

. d ##class(%DynamicQuery).SQLFetch(.descHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(descHandle)

; снована 4 шагавперед

s $li(ascHandle,1)=State

w "4 steps forward",!

f i=1:1:4 d

. d ##class(%DynamicQuery).SQLFetch(.ascHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(ascHandle)

d ##class(%DynamicQuery).SQLClose(.ascClose)

d ##class(%DynamicQuery).SQLClose(.descClose)

q

Компилитуем, выполняем. В моем случае это выглядит как

USER>d Test^FetchBack()

4 steps forward

ID=1, Name=Presley,Samantha H.

ID=2, Name=Quine,Keith G.

ID=3, Name=Jones,Elvira A.

ID=4, Name=Townsend,Howard D.

2 steps backward

ID=3, Name=Jones,Elvira A.

ID=2, Name=Quine,Keith G.

4 steps forward

ID=3, Name=Jones,Elvira A.

ID=4, Name=Townsend,Howard D.

ID=5, Name=Uberoth,Juanita D.

ID=6, Name=Van De Griek,Michael K.

Видим, что два использованных запроса гладко сшились по используемому состоянию. Это обусловлено тем, что оба запроса совершенно идентичны за исключением направления сортировки. Исследование кодов возврата функций позволяет сделать суждение о более правильном отношении к закрытию запросов.

Таким образом, составить новый класс или набор классов, аналогичные по интерфейсу штатным, не составляет особых проблем. За исключением того, что им

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать