powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Запрос в зене
10 сообщений из 10, страница 1 из 1
Запрос в зене
    #38110553
Sabyrov.Talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как запустить запрос в зене и получить значение?
...
Рейтинг: 0 / 0
Запрос в зене
    #38110680
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sabyrov.TalgatКак запустить запрос в зене и получить значение?
Откуда берется тот запрос? И как планируется "получить значение"?
...
Рейтинг: 0 / 0
Запрос в зене
    #38111396
servit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sabyrov.TalgatКак запустить запрос в зене и получить значение? The Zen Demo

Zen QuickStart Tutorial

Аудио-курс с упражнениями (есть pdf)
...
Рейтинг: 0 / 0
Запрос в зене
    #38112433
Sabyrov.Talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
krvsa,
Есть класс, а внутри запрос,
Query QueryComment(bookComment As %String) As %SqlQuery(Contained=1)
{
Select %ID,USerId,Comment,DOB FROM Comments
Where (%ID %STARTWITH :bookComment)
Order by DOB DESC
}
Используя этот запрос нужно отобразить все данные таблицы Comments в нужной сортировке(Order by DOB DESC) на зен страницу.
...
Рейтинг: 0 / 0
Запрос в зене
    #38113303
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sabyrov.TalgatЕсть класс, а внутри запрос,
Код: javascript
1.
2.
3.
4.
5.
6.
Query QueryComment(bookComment As %String) As %SqlQuery(Contained=1)
{
   Select %ID,USerId,Comment,DOB FROM Comments
    Where (%ID %STARTWITH :bookComment)
    Order by DOB DESC
}

Используя этот запрос нужно отобразить все данные таблицы Comments в нужной сортировке(Order by DOB DESC) на зен страницу.
Это стандартная ситуация для tablePlane

Код: xml
1.
2.
3.
4.
5.
6.
<tablePane id="table"
           queryClass="MyApp.Employee"
           queryName="ListEmployees">
    <parameter value="Sales"/>
    <parameter value="NEW YORK"/>
</tablePane>



http://docs.intersystems.com/cache20122/csp/docbook/DocBook.UI.Page.cls?KEY=GZCP_tables
...
Рейтинг: 0 / 0
Запрос в зене
    #38114416
Sabyrov.Talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
krvsa,
А можно не в tablePane, a в нескольких label поместить

вот пример
<fieldSet id = "holder">
</fieldSet>

в методе %OnAfterCreatePage
{
For i=1:1:10
{
set tHolder = %page.%GetComponentById("holder")
set comp = ##class(%Zen.Component.Label).%New()
set comp.label = "blabla"
do tHolder.%AddChild(comp)
}
}
При открытий страницы на странице появляется 10 label-ов с значением "blalbla"

Как в эти label можно поместить значения этого запроса
Query QueryComment(bookComment As %String) As %SqlQuery(Contained=1)
{
Select %ID,USerId,Comment,DOB FROM Comments
Where (%ID %STARTWITH :bookComment)
Order by DOB DESC
}
...
Рейтинг: 0 / 0
Запрос в зене
    #38114821
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sabyrov.TalgatА можно не в tablePane, a в нескольких label поместить
...
в методе %OnAfterCreatePage
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
{
     For i=1:1:10
     {
     set tHolder = %page.%GetComponentById("holder")
     set comp = ##class(%Zen.Component.Label).%New()
     set comp.label = "blabla"
     do tHolder.%AddChild(comp)
     }
}

При открытий страницы на странице появляется 10 label-ов с значением "blalbla"

Как в эти label можно поместить значения этого запроса
Код: vbnet
1.
2.
3.
4.
5.
6.
Query QueryComment(bookComment As %String) As %SqlQuery(Contained=1)
{
   Select %ID,USerId,Comment,DOB FROM Comments
    Where (%ID %STARTWITH :bookComment)
    Order by DOB DESC
}


Нужно вместо простого цикла пройтись по результату запроса... Что-то типа такого...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
s rs = ##class(%ResultSet).%New("<имя_твоего_класса>.QueryComment")
d rs.Execute(<значение_для_bookComment>)
while rs.Next() {
     set tHolder = %page.%GetComponentById("holder")
     set comp = ##class(%Zen.Component.Label).%New()
     set comp.label = rs.Get("Comment")
     do tHolder.%AddChild(comp)
}
...
Рейтинг: 0 / 0
Запрос в зене
    #38114996
Sabyrov.Talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
krvsa,
То что мне надо, все работает, Большое Спасибо)))
...
Рейтинг: 0 / 0
Запрос в зене
    #38115229
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sabyrov.Talgat , и не забудь потом удалить переменную

Код: vbnet
1.
k rs
...
Рейтинг: 0 / 0
Запрос в зене
    #38155071
cholmony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
krvsa,

спасибо! работает!
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Запрос в зене
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]