CREATE OR REPLACE PROCEDURE P_InsertSubject IS
v_rownum int(10);
v_COMPANYCODE varchar2(20);
v_COMPANYNAME varchar2(100);
i_id INTEGER := 1;
CURSOR occupancy_cur IS
SELECT COMPANYCODE, COMPANYNAME FROM Lnssc_Company_Info;
BEGIN
SELECT max(rownum) into v_rownum FROM Lnssc_Company_Info;
OPEN occupancy_cur;
LOOP
FETCH occupancy_cur
INTO v_COMPANYCODE, v_COMPANYNAME;
EXIT WHEN occupancy_cur%NOTFOUND;
i_id := i_id + 1;
v_rownum := v_rownum + 1;
insert into LNSSC_DIC_COMPANYS
(id, DISPLAYTEXT, VALUECOL, ORDERCOL, VISABLECOL)
values
(v_rownum, v_COMPANYNAME, v_COMPANYCODE, i_id, i_id);
END LOOP;
commit;
CLOSE occupancy_cur;
END;
v_rownum int(10);
v_COMPANYCODE varchar2(20);
v_COMPANYNAME varchar2(100);
i_id INTEGER := 1;
CURSOR occupancy_cur IS
SELECT COMPANYCODE, COMPANYNAME FROM Lnssc_Company_Info;
BEGIN
SELECT max(rownum) into v_rownum FROM Lnssc_Company_Info;
OPEN occupancy_cur;
LOOP
FETCH occupancy_cur
INTO v_COMPANYCODE, v_COMPANYNAME;
EXIT WHEN occupancy_cur%NOTFOUND;
i_id := i_id + 1;
v_rownum := v_rownum + 1;
insert into LNSSC_DIC_COMPANYS
(id, DISPLAYTEXT, VALUECOL, ORDERCOL, VISABLECOL)
values
(v_rownum, v_COMPANYNAME, v_COMPANYCODE, i_id, i_id);
END LOOP;
commit;
CLOSE occupancy_cur;
END;
本文介绍了一个使用PL/SQL编写的存储过程,该过程用于从一个表中读取公司信息,并将这些信息批量插入到另一个表中。具体操作包括获取最大行号、打开游标、循环读取数据并执行插入操作。
1497

被折叠的 条评论
为什么被折叠?



