- Proceduretest_person(idin Number,
- Ename In Varchar2,
- age In Varchar2,
- TCS out mytype) Is --TCS为输出游标 IS 为关键字V_enameVARCHAR2(30);--临时参数v_ageNUMBER;--临时参数V_SqlVarchar2(4000);
- tcs1 mytype;
- begin
- V_Sql:='';--自定义sql语句
- Opentcs1for V_Sql;
- LOOP
- FETCH tcs1
- INTO
- V_ename ,
- v_age ;
- EXIT WHENtcs1%NOTFOUND;--当数据读完后 退出 不再执行后面的操作
- /***
- 这部分区域可以继续写要操作的sql
- */
- END LOOP;
- CLOSE tcs1;
- Commit;
- Opentcsfor '这里写查询sql,也可以像上面那样定个临时参数';
- exception
- whenothersthen
- rollback;
- --可以在这自定义错误信息写到自定义表
- end;
来源: