create or replace procedure p_child_ins(sid in string,sstats in string) as
v_ename BacterinInfo.BacterinCode%TYPE;
CURSOR c_emp IS SELECT BacterinCode FROM BacterinInfo;
begin
OPEN c_emp;
LOOP
FETCH c_emp INTO v_ename;
EXIT WHEN c_emp%NOTFOUND;
insert into ChildBacterin(ChildID,BacterinCode,InoculStats) values(sid,v_ename,sstats);
end loop;
close c_emp;
end p_child_ins;LINE/COL ERROR
-------- -----------------------------------------------------------------
2/2 PLS-00103: 出现符号 ""在需要下列之一时:
beginfunctionpackagepragma
proceduresubtypetypeuse<an identifier>
<a double-quoted delimited-identifier>cursorformcurrent
externallanguage
v_ename BacterinInfo.BacterinCode%TYPE;
CURSOR c_emp IS SELECT BacterinCode FROM BacterinInfo;
begin
OPEN c_emp;
LOOP
FETCH c_emp INTO v_ename;
EXIT WHEN c_emp%NOTFOUND;
insert into ChildBacterin(ChildID,BacterinCode,InoculStats) values(sid,v_ename,sstats);
end loop;
close c_emp;
end p_child_ins;LINE/COL ERROR
-------- -----------------------------------------------------------------
2/2 PLS-00103: 出现符号 ""在需要下列之一时:
beginfunctionpackagepragma
proceduresubtypetypeuse<an identifier>
<a double-quoted delimited-identifier>cursorformcurrent
externallanguage
v_ename BacterinInfo.BacterinCode%TYPE;
CURSOR c_emp IS SELECT BacterinCode FROM BacterinInfo;
begin
OPEN c_emp;
LOOP
EXIT WHEN c_emp%NOTFOUND; --放在前面
FETCH c_emp INTO v_ename;
insert into ChildBacterin(ChildID,BacterinCode,InoculStats) values(sid,v_ename,sstats);
end loop;
close c_emp;
end p_child_ins;