IBExpert. Stored procedure with cycle.

/* Создание процедуры */ CREATE PROCEDURE FILLRECORDS ( InpCount integer) AS DECLARE I INTEGER; DECLARE NAME varchar(50); BEGIN I = 1; WHILE (I знак_меньше= :InpCount) DO BEGIN NAME = &AS varchar(50)); INSERT INTO TABLE_1 (ID, TEXT, "VALUE") VALUES (:I, :NAME, :I); I=I+1; END suspend; END /* Удаление процедуры */ DROP PROCEDURE FILLRECORDS /* Выполнение процедуры */ /* в качестве аргумента передаем количество записей для добавления (10) */ EXECUTE procedure FILLRECORDS 10 /* Запрос для проверки */ SELECT * FROM TABLE_1 /* Запрос на очистку таблицы */ DELETE FROM TABLE_1