powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / как объявить курсор?
2 сообщений из 2, страница 1 из 1
как объявить курсор?
    #32259989
li
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Процедура для Interbase базы данных
подскажите, пожалуйста, как можно сократить следующий код без написания дополнительных процедур:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
if (условие1) then
begin
   if (условие2) then
   begin
      for 
          запрос1
     do
     begin
         действие1
     end
   end
   else
   begin
      for 
          запрос2
     do
     begin
         действие1
     end
   end
end

для запроса "запрос1" и запроса "запрос2" выполняется одно и тоже действие "действие1", логично было бы сократить код, но как? есть ли в IB пременная типа курсор,
чтобы ей можно было присвоить результаты запроса
и процедура выглядела бы сл. обр.:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
if (условие1) then
begin
   if (условие2) then
   begin
         переменная_курсор =  запрос1
   end
   else
   begin
         переменная_курсор =  запрос2
   end
    for 
       переменная_курсор
    do
     begin
         действие1
     end
end
...
Рейтинг: 0 / 0
как объявить курсор?
    #32260064
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тут, как по мне, оператор goto мог бы выручить, но его нету. Поэтому надо использовать то, что есть. К примеру вынести действие1 в отднльную ХП или использовать FOR EXECUTE STATEMENT, если FB1.5 используется.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / как объявить курсор?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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