DECLARE
V NUMBER;
X VARCHAR2(22):='ACOUNTING';
Y VARCHAR2(32):='DALLAS';
S NUMBER:=1;
BEGIN
S:=V+10;
SELECT MAX(DEPTNO) INTO V FROM DEPT;
LOOP
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES((S+V),X,Y);
EXIT WHEN S=80;
END LOOP;
END;

/

جرب هذا اخوي

DECLARE
V NUMBER;
X VARCHAR2(22):='ACOUNTING';
Y VARCHAR2(32):='DALLAS';
S NUMBER:=1;
BEGIN
SELECT  nvl(MAX(DEPTNO),0) INTO V FROM DEPT;
LOOP
S := V + 10;
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES((S+V),X,Y);
Dbms_Output.Put_Line(s);
v:= v +1;
EXIT WHEN S= 80;
END LOOP;
END;

لم يعمل اخى يعطى رسالة خطأ value larger than column

السلام عليكم

أخي العزيز جرب هذا الكود


DECLARE
V NUMBER;
X VARCHAR2(22):='ACOUNTING';
Y VARCHAR2(32):='DALLAS';
BEGIN
SELECT MAX(DEPTNO) INTO V FROM DEPT;
LOOP
V:=V+10;
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES((V),X,Y);
EXIT WHEN V=80;
END LOOP;
END;
/

جرب هذا اخي اذا فشل الكود السابق انا ما في عندي sql عشان اجرب في الوقت الحالي مع الاسف
DECLARE
V NUMBER:=0;
X VARCHAR2(22):='ACOUNTING';
Y VARCHAR2(32):='DALLAS';
BEGIN
SELECT MAX(DEPTNO) INTO V FROM DEPT;
LOOP
V:=V+10;
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES((V),X,Y);
EXIT WHEN V=80;
END LOOP;
END;

هذا الكود بعد التجربة صحيح 100% انشاء الله

كان لديك خطا ال infinity loop وايضا انك تعمل استخدام عمليات حسابية

على قيمة v وهي لاتزال null وانت لم تعطها قيمة ابتدائية فكانت الاضافة للبرايمري كي null

ايضا (s+v) ليس لها داعي الآن

اذا لم يلبي هذا الحل احتياجك خبرني وانشاء الله نحن بالعون

DECLARE
V NUMBER;
X VARCHAR2(22):='ACOUNTING';
Y VARCHAR2(32):='DALLAS';
S NUMBER:=1;
BEGIN

SELECT MAX(DEPTNO) INTO V FROM DEPT;
S:=V+10;
LOOP
INSERT INTO DEPT(DEPTNO,DNAME,LOC)
VALUES(S,X,Y);
EXIT;
END LOOP;
END;

جزاكم الله خيرا جميعا