八个学习点帮助你全面认识Oracle数据库[2]

文章作者 100test 发表时间 2007:09:06 13:42:14
来源 100Test.Com百考试题网

　　　cursor userRows is
　　　0select * from t_user.
　　　begin
　　　for userRow in userRows loop
　　　dbms_output.put_line
　　　(userRow.Id||,||userRow.Name||,||userRows%rowcount).
　　　end loop.
end pro_test_cursor.

示例2：
　　　create or replace procedure
　　　pro_test_cursor_oneRow(vid in number) is
　　　userRow t_user%rowtype.
　　　cursor userCur is
　　　0select * from t_user where id=vid.
　　　begin
　　　open userCur.
　　　fetch userCur into userRow.
　　　if userCur%FOUND then
　　　dbms_output.put_line
　　　(userRow.id||,||userRow.Name).
　　　end if.
　　　close userCur.
end pro_test_cursor_oneRow.

record示例
　　　create or replace
　　　procedure pro_test_record(vid in varchar2) is
　　　type userRow is record(
　　　id t_user.id%type,
　　　name t_user.name%type
　　　).
　　　realRow userRow.
　　　begin
　　　0select id,name into
　　　realRow from t_user where id=vid.
　　　dbms_output.put_line
　　　(realRow.id||,||realRow.name).
end pro_test_record.

rowtype示例
　　　create or replace procedure
　　　pro_test_rowType(vid in varchar2) is
　　　userRow t_user%Rowtype.
　　　begin
　　　0select * into userRow from t_user where id=vid.
　　　dbms_output.put_line
　　　(userRow.id||,||userRow.name).
end pro_test_rowType.