【SQL开源代码栏目提醒】:网学会员--在 SQL开源代码编辑为广大网友搜集整理了:Record.sql绩等信息,祝愿广大网友取得需要的信息,参考学习。
/* 打开显示模式 */
SET ServerOutput ON;
DECLARE --开始声明部分
/* 声明记录类型 */
TYPE User_Record_Type IS RECORD
( UserId Users.UserId%Type,
UserName Users.UserName%Type);
/* 定义记录变量 */
var_UserRecord User_Record_Type;
--定义游标, varType为参数, 指定用户类型编号
CURSOR MyCur(varType NUMBER) IS
SELECT UserId, UserName FROM Users
WHERE UserType = varType;
BEGIN --开始程序体
IF MyCur%ISOPEN = FALSE Then
OPEN MyCur(1);
END IF;
LOOP
FETCH MyCur INTO var_UserRecord; --读取当前游标位置的数据到记录变量var_UserRecord
EXIT WHEN MyCur%NOTFOUND; --当游标指向结果集结尾时退出循环
/* 显示保存在记录变量var_UserRecord中的数据 */
dbms_output.put_line('用户编号:' || var_UserRecord.UserId ||', 用户名::' || var_UserRecord.UserName);
END LOOP;
CLOSE MyCur; --关闭游标
END; --结束
程序体