Цикл внутри цикла (While)

@RCF · Регистрация: 24.03.2010

Студворк — интернет-сервис помощи студентам

Всем привет.

Никак не получается организовать цикл внутри цикла на SQL Server 2012. В итоге отрабатывает только первый цикл.

На вход подаю:

А) количество исходных строк, например, 10 позиций.
Б) В таблице T001W 314 записей.

В итоге, при завершении работы кода, таблице @lt_marc должно быть 314 * 10 = 3140 записей, то есть, 314 записей для 1, далее 314 записей для 2 и так далее до 3140.

Привожу код:

T-SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
declare @lv_max_t001w integer
declare @lv_min_t001w integer
declare @lv_t001w NVARCHAR(4)
 
declare @lv_pfach nvarchar(1)
 
declare @lv_max_rec bigint
declare @lv_min_rec integer
 
DECLARE @lt_marc TABLE (id int identity, MATNR nvarchar(18), WERKS nvarchar(4));
 
SELECT  @lv_max_t001w = max(IDT001W) FROM T001W -- определяем кол-во записей в табл T001W
set  @lv_min_t001w = 1
 
set @lv_max_rec = 10 -- необходимое кол-во озм, которые должны быть растиражированы на каждую запись в T001W
set @lv_min_rec = 1 -- начальное для цикла значение
 
WHILE  @lv_min_rec <= @lv_max_rec 
    BEGIN
    SET NOCOUNT ON
 
    WHILE @lv_min_t001w <= @lv_max_t001w
 
                BEGIN
                    SELECT @lv_t001w = werks, @lv_pfach = pfach FROM t001w where idt001w = @lv_min_t001w
 
                    ----if  @lv_pfach = '' -- если испрользуется, то вставляем
                    ----    begin
                            INSERT INTO @lt_marc (MATNR, WERKS) VALUES (@lv_min_rec, @lv_t001w)
                    ------end
 
                    set @lv_min_t001w = @lv_min_t001w + 1
                END
 
            set @lv_min_rec = @lv_min_rec + 1
        
    END
 
    select * from @lt_marc

На финише, в таблице @lt_marc у меня появляются только 314 строк, в место 3140.

Что не так делаю? Почему при завершении самого первого цикла, кол не идет для обработки set @lv_min_rec = @lv_min_rec + 1 ?

Подскажите, пожалуйста.

Всем спасибо заранее!

@IamRain · 21.01.2018, 13:37

WHILE @lv_min_t001w <= @lv_max_t001w
После прохода по внутреннему циклу вы не сбрасываете значения переменных.

Добавлено через 4 минуты

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
SELECT  @lv_max_t001w = MAX(IDT001W) FROM T001W -- определяем кол-во записей в табл T001W
SET  @lv_min_t001w = 1;
DECLARE @ly_maxCurrent INTEGER; 
DECLARE @ly_minCurrent INTEGER;
/ *во внешнем цикле */
..
 
SET @ly_maxCurrent = @lv_max_t001w;
SET @ly_minCurrent = @lv_min_t001w;
 
WHILE @ly_minCurrent <= @ly_maxCurrent
 
                BEGIN
                    SELECT @lv_t001w = werks, @lv_pfach = pfach FROM t001w WHERE idt001w = @lv_min_t001w
 
                    ----if  @lv_pfach = '' -- если испрользуется, то вставляем
                    ----    begin
                            INSERT INTO @lt_marc (MATNR, WERKS) VALUES (@lv_min_rec, @lv_t001w)
                    ------end
 
                    SET @lv_min_t001w = @lv_min_t001w + 1
                END
 
            SET @ly_minCurrent = @ly_minCurrent + 1
        
    END

@RCF · 21.01.2018, 13:57 **[ТС]**

Сообщение от IamRain

/ *во внешнем цикле */
..

Не совсем понял, что тут имеете ввиду?

Выходит, что приведенный Вами код - это код для внутреннего цикла ?

Добавлено через 6 минут

Сообщение от RCF

Не совсем понял, что тут имеете ввиду?

IamRain,

я, разобрался. Спасибо за наводку!

@IamRain · 21.01.2018, 13:57

Вот полный код.

T-SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
declare @lv_max_t001w integer
declare @lv_min_t001w integer
declare @lv_t001w NVARCHAR(4)
 
declare @lv_pfach nvarchar(1)
 
declare @lv_max_rec bigint
declare @lv_min_rec integer
 
DECLARE @lt_marc TABLE (id int identity, MATNR nvarchar(18), WERKS nvarchar(4));
 
SELECT  @lv_max_t001w = max(IDT001W) FROM T001W -- определяем кол-во записей в табл T001W
set  @lv_min_t001w = 1
 
set @lv_max_rec = 10 -- необходимое кол-во озм, которые должны быть растиражированы на каждую запись в T001W
set @lv_min_rec = 1 -- начальное для цикла значение
DECLARE @ly_maxCurrent INTEGER; 
DECLARE @ly_minCurrent INTEGER; 
 
WHILE  @lv_min_rec <= @lv_max_rec 
    BEGIN
    SET NOCOUNT ON
       
    SET @ly_maxCurrent = @lv_max_t001w;
   SET @ly_minCurrent = @lv_min_t001w;
 
 
    WHILE @ly_minCurrent <= @ly_maxCurrent
 
                BEGIN
                    SELECT @lv_t001w = werks, @lv_pfach = pfach FROM t001w where idt001w = @lv_min_t001w
 
                    ----if  @lv_pfach = '' -- если испрользуется, то вставляем
                    ----    begin
                            INSERT INTO @lt_marc (MATNR, WERKS) VALUES (@lv_min_rec, @lv_t001w)
                    ------end
 
                    set @lv_min_t001w = @lv_min_t001w + 1
                END
 
            set @ly_minCurrent = @ly_minCurrent+ 1
        
    END
 
    select * from @lt_marc

После первой итерации по внешнему циклу @lv_min_t001w уже был больше @lv_max_t001w по всем остальным итерациям. То есть у вас выполняется всего лишь одна итерация внешнего цикла.
Значения надо просто сбрасывать. Добавлены доп.переменные через которые и рассчитывается условия для внутреннего цикла.

@iap · 21.01.2018, 14:40

Непонятно, зачем здесь вообще какие-то циклы?
Один INSERT, - и всё

@IamRain · 21.01.2018, 14:43

iap, ТС, видимо, пока еще не привык к декларативному программированию.
Все же иногда, имхо, без императивщины не обойтись. Например, когда нужно собрать из коллекции скаляр (я про cursor).

@RCF · 21.01.2018, 17:27 **[ТС]**

Сообщение от IamRain

Значения надо просто сбрасывать.

Да, разобрался. Спасибо!

Изначально про это почему-то не подумал.

@IamRain · 21.01.2018, 17:28

Сообщение от RCF

Изначально про это почему-то не подумал.

Синтаксис TSQL затуманил разум.

@RCF · 21.01.2018, 18:26 **[ТС]**

Сообщение от iap

Один INSERT, - и всё

Как?

@iap · 21.01.2018, 18:37

T-SQL
1
INSERT ... SELECT ... FROM ... WHERE ...

Правильное условие WHERE - и дело в шляпе.

@invm · 21.01.2018, 20:05

Сообщение от RCF

Как?

T-SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
declare @c int = 10;
 
with n as
(
 select 1 as n
 union all
 select n + 1 from n where n < @c
)
insert into @lt_marc
 (MATNR, WERKS)
 select
  n.n, t.werks
 from
  t001w t cross join
  n;

@RCF · 26.01.2018, 11:16 **[ТС]**

Сообщение от invm

declare @c int = 10;

Спасибо за решение!

Но при @c => 102 - ошибка:

T-SQL
1
2
Сообщение 530, уровень 16, состояние 1, строка 3
Выполнение инструкции прервано. Максимальная рекурсия 100 была использована до завершения инструкции.

@pincet · 26.01.2018, 11:20

OPTION (MAXRECURSION n)

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@iap 1116 / 761 / 183 Регистрация: 27.11.2009 Сообщений: 2,272
	21.01.2018, 14:40
	Непонятно, зачем здесь вообще какие-то циклы? Один INSERT, - и всё 0

@IamRain 4694 / 2702 / 734 Регистрация: 02.08.2011 Сообщений: 7,228
	21.01.2018, 14:43
	iap, ТС, видимо, пока еще не привык к декларативному программированию. Все же иногда, имхо, без императивщины не обойтись. Например, когда нужно собрать из коллекции скаляр (я про cursor). 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	26.01.2018, 11:20
	OPTION (MAXRECURSION n) 0