Как с помощью макроса выполнить параметрический запрос?

[vasyun]

Есть база в которой хранится запрос с именем "Кол-во звонков в г.Москва". Этот запрос с параметрами, например такой:

Код Выделить Развернуть

SELECT * FROM table1 WHERE minutes > :min

Я хочу с помощью макроса передать в этот запрос значение параметра "min", выполнить этот запрос, его результат получить и дальше уже заниматься дальнейшей обработкой и выводом в Calc.

Как в таком случае передать параметр?

[vasyun]

Пока нашёл возможность посмотреть эти параметры через свойства по индексу, но не знаю как его можно использовать чтобы эти параметры задать.

Код Выделить Развернуть

oDBConnection=oDBContext.getByName(db_name).GetConnection("", "")
sSQL="SELECT * FROM table1 WHERE minutes > :min AND minutes < :max"
oRowSet = createUnoService("com.sun.star.sdb.RowSet")
oRowSet.activeConnection = oDBConnection
oRowSet.Command = sSQL
oRowSet.Parameters.getByIndex(0).Value = "3"
oRowSet.Parameters.getByIndex(1).Value = "60"

[JohnSUN]

Поле minutes - это то же поле, что и minitus? И обозначает "минуты"? Так почему в качестве параметров запроса подставляются строки похожие на даты?

[vasyun]

Да параметр тот же.
Дата - это я просто торопился и не исправил после копирования.
И хотя Мне нужна дата, я для простоты и наглядности примера сделал минуты поле то может быть любым в принципе.
В примере поправил.

[JohnSUN]

Ну? И в чём, собственно, проблема? Отобрать в Calc только значения BETWEEN "значения от сих до сих" и дополнительно их обработать? Или наложить на запрос ещё более навороченный фильтр (в смысле - макросом отсеять лишнее) и получить в Calc'овской таблице окончательный результат?

[Hasim]

И в чём, собственно, проблема?

Как я понял, проблема в том, как написать запрос с параметром, т.е., как будет выглядеть эта строка запроса в тексте кода макроса.

[JohnSUN]

Без приложенных к вопросу  .odb+.ods файлов запрос "Кол-во звонков в г.Москва" всегда будет выдавать ошибку.

[Hasim]

Если нужно интерактивно (вручную) вводить параметры, например, xmin и ymax, то нужно использовать InputBox, как-то так:

Код Выделить Развернуть

xmin=InputBox("Введите значение xmin","xmin",0)
ymax=InputBox("Введите значение ymax","ymax",0)
oSql = "SELECT Модель FROM Активы WHERE КодАктива > " & xmin & "AND КодАктива < " & ymax

А вот такой вариант:

Код Выделить Развернуть

oSql = "SELECT Модель FROM Активы WHERE КодАктива > :xmin AND КодАктива < :ymax"
выдаст ошибку.

[vasyun]

Мне не нужна интерактивность.
Запросы я привёл простые для наглядности.

У меня есть макрос который по кнопке выполняет некий алгоритм и получает результат две переменные min и max.
Дальше нужно результаты алгоритма передать в SQL-запрос.

Я могу это сделать если 2 способами
1) способ:
Например прямо в коде буду хранить этот гигантский SQL-запрос как string  и в него с помощью переменных передавать результаты алгоритма. Наверное это просто когда у тебя одна кнопка и один запрос. Но если представить что таких кнопок более 10 и все запросы разные, то код макроса становится гигантским.

2) способ:
Я решил вынести из кода все SQL-запросы, чтобы в них передавать переменные кроме как интерактивные SQL ни чего не нашёл. Ну а дальше встал вопрос из темы топика. Как в запрос передать параметры из макроса?

База PostgreSQL поэтому могу выложить только то что есть без таблиц.

[Hasim]

1) способ:
Например прямо в коде буду хранить этот гигантский SQL-запрос как string  и в него с помощью переменных передавать результаты алгоритма.

Очень гигантский запрос можно хранить в отдельных файлах и читать эти файлы в макрос.
Или вы можете использовать запрос в макросе, предварительно программно заменив в строке запроса выражение :x на распознающееся макросом.

2) способ:
Я решил вынести из кода все SQL-запросы, чтобы в них передавать переменные кроме как интерактивные SQL ни чего не нашёл. Ну а дальше встал вопрос из темы топика. Как в запрос передать параметры из макроса?

Практически никак.
Вы хотите программно передать данные в интерактивный запрос (:x), простым способом этого не сделать - нужен метод программного управления этим интерактивным окном - это невозможно без геморроя с управлением окнами.

[Hasim]

Теоретически должно работать, но не работает.
Например, для запроса Запрос_п:
SELECT "Модель" FROM "Активы" WHERE "КодАктива" > :x
выдает ошибку:

[vasyun]

Да я так и пробовал и получил именно эту ошибку.
Хранить SQL-запросы в файлах не догадался. Но это решение для меня новое и пугает тем, что не знаешь на какие ещё грабли там наступишь.
Интересно, а кто-то сталкивался с такой проблемой, когда в коде появляются огромные SQL-запросы, из-за которых код тяжело читать и править? Кто как решает такую проблемку?

[Hasim]

Теоретическое описание использования параметров в SQL запросах:
http://www.openoffice.org/api/docs/common/ref/com/sun/star/sdbc/XParameters.html

На практике, похоже, этим никто никогда не пользовался.
Можно было бы поспрашивать на oooforum.org, но он недоступен, как всегда.

[Hasim]

Хранить SQL-запросы в файлах не догадался. Но это решение для меня новое и пугает тем, что не знаешь на какие ещё грабли там наступишь.

Можно хранить в самой БД в строках отдельной таблицы.

[vladboscaneanu]

Я не знаю,правильно ли понял задание,нo месяц назад написал одному типу макрос,где он
вводил даты и получал результаты ,возможно это будет дополнительной идеей для Вас.Откыть форм "Cerca per Data".