写在前面
动态
SQL语句是部分或者整个SQL语句在运行时才能确定，可以更好的与用户进行交互，大大提高了SQL的灵活性
一、执行SQL语句
1.1 执行无入参SQL
① 语法
EXECUTE IMMEDIATE SQLStatement {USING TransactionObject} ;
② 说明
-
SQLStatement--> 有效SQL语句字符串 -
TransactionObject-->事务对象名 省略时使用SQLCA
③ 举个栗子
删除员工信息表emp
string sql = "drop table emp"
EXECUTE IMMEDIATE :sql USING SQLCA;
1.2 执行带参数SQL
① 语法
PREPARE DynamicStagingArea FROM SQLStatement
{USING TransactionObject} ;
EXECUTE DynamicStagingAreaUSING {ParameterList} ;
②说明
-
DynamicStagingArea-->默认全局变量是SQLSA -
SQLStatement-->有效的SQL语句，其中? 代表需要传入的参数。执行时问号被 EXECUTE 语句中的 USING 子句所代表的值
取代 -
TransactionObject-->事务对象名，大括号表示该子句可以省略，省略时使用SQLCA -
ParameterList-->参数列表，可以是变量、常量或者控件的属性，各参数对应于SQLStatement中的问号
③ 举个栗子
Ⅰ 删除员工编号56的员工信息
Int li_empno = 56
PREPARE SQLSA FROM "DELETE FROM emp WHERE empno=?" ;
EXECUTE SQLSA USING :li_empno ;
Ⅱ 新增一个员工信息
Prepare SQLSA from
"insert into emp (empno, ename, job, mgr, hiredate, sal, comm, deptno) values (?, ?, ?, ?, ?, ?, ?, ?)"
execute SQLSA using :ls_empno, :ls_ename, :ls_job, :ls_mgr, :ld_hiredate, :ld_sal, :ls_comm, :ls_deptno;
二 、使用游标
数据库中的游标可以看作是一个指针，它指向查询语句返回的结果集中的当前行。通过游标，我们可以逐行处理结果集
2.1 语法
① do while 语法
//定义游标
string test
//声明游标
declare test cursor for select 字段名 from 表名 where 条件 using sqlca;
//打开游标
open test;
//获取数据
fetch test into:字段名变量;
do while sqlca.sqlcode = 0
//在这里写你的业务
//再次获取数据
fetch test into:字段名变量;
loop
//关闭游标
close test;
② for 语法
long ll_count = 10
//定义游标
string test
//声明游标
declare test cursor for select 字段名 from 表名 where 表达式 using sqlca;
//打开游标
open test;
for i=1 to ll_count
//获取数据
fetch test into :变量名;
//在这里写你的业务
next
//关闭游标
close test;
2.2 举个栗子
上面具体说了游标的两种实现语法，接下来我们就分别用两种语法实现向下拉框中添加数据的功能
① 使用do while 语法向下拉框中添加员工信息
string ls_empno,ls_ename
ddlb_1.Reset () //重置下拉列表
DECLARE cur_empinfo CURSOR FOR
select empno,ename from emp;
Open cur_empinfo; // 打开游标
If SQLCA.SqlCode = -1 Then //判断打开游标是否失败，失败则弹出提示信息
messagebox ('提示信息'+SQLCA.SqlErrText)
Return -1
End If
Fetch cur_empinfo Into :ls_empno,:ls_ename;
ddlb_1.SetRedraw(False) //禁止下拉列表刷新
Do While SQLCA.SqlCode = 0
ddlb_1.AddItem (ls_empno+'-'+ls_ename) //向下拉列表添加数据
Fetch cur_empinfo Into :ls_empno,:ls_ename;
Loop
ddlb_1.SetRedraw(True) //刷新下拉列表
Close cur_empinfo; //关闭游标
② 使用for 语法向下拉框中添加员工信息
long ll_count = 10
string ls_empno,ls_ename
//定义游标
string cur_empinfo
//声明游标
declare cur_empinfo cursor for select empno,ename from emp where deptno = '20' using sqlca;
//打开游标
open cur_empinfo;
for i=1 to ll_count
//获取数据
fetch test into :ls_empno,:ls_ename;
//在这里写你的业务
ddlb_1.AddItem (ls_empno+'-'+ls_ename) //向下拉列表添加数据
next
//关闭游标
close cur_empinfo;
注： 使用游标过程中，打开了游标，业务处理完之后一定要关闭游标
三 、调用存储过程
存储过程是一组预编译的SQL代码块，它将一些复杂操作封装起来，并存储在数据库中。
由于存储过程在数据库中进行了预编译，并且能被多个客户端重复调用，可以减少网络开销，提高执行效率
3.1 调用格式
// 定义过程调用
// prc_Test 表示数据库中存储过程名称
// ls_a,ls_b 表示存储过程中的in类型入参
Declare my_proce Procedure For prc_Test(:ls_a,:ls_b);
// 执行过程，这里是不需要其他参数的
Execute my_proce ;
// 调用过程出现错误处理
If SQLCA.SQLCode <> 0 Then
End If
// 获取出参值，也就是OUT的变量，如果没有out类型的变量，这句也就不需要了
Fetch my_proce Into :ls_ReturnName;
// 获取数据出现错误处理
If SQLCA.SQLCode <> 0 Then
End If
// 关闭调用
Close my_proce ;
3.2 举个栗子
① PB调用无入参存储过程
Ⅰ 创建存储过程
Create Or Replace Procedure prc_getEmplname(v_name Out Varchar2) As
--存储过程，有一个out类型参数，无入参
Begin
v_name := 'Jone';
End;
Ⅱ 调用存储过程
Declare my_proce Procedure For p_get_name;
//或者
Declare my_proce Procedure For p_get_name();
② PB调用有入参存储过程
Ⅰ 创建存储过程
我们来创建一个存储过程，根据部门编号和员工姓名给该员工涨1000块钱工资
CREATE OR REPLACE Procedure prc_incr_sal(pra_deptno in Varchar2,
pra_ename in varchar2,
pra_code out NUMBER, --执行代码
pra_errmsg out VARCHAR2) As
Begin
pra_code :=1;
pra_errmsg :='';
begin
update emp set sal=sal+1000 where deptno = pra_deptno and ename =pra_ename;
EXCEPTION
WHEN OTHERS THEN
pra_code := -1;
pra_errmsg := '更新员工薪水失败!'||SQLERRM;
END;
End prc_incr_sal;
Ⅱ 调用存储过程
string ls_deptno
string ls_ename
int li_AppCode
string ls_err
ls_deptno = "20"
ls_ename = "XIEZHR"
DECLARE my_prc PROCEDURE FOR PRC_INCR_SAL
(:ls_deptno, //员工编号
:ls_ename //员工姓名
);
EXECUTE my_prc;
// 执行存储过程报错处理
IF SQLCA.SQLCode < 0 THEN
ls_err = SQLCA.SQLErrText
GOTO prcErr
END if
//获取存储过程出参数据
FETCH my_prc Into :li_AppCode, :ls_err ;
//获取出参数据失败处理
IF SQLCA.SQLCode < 0 THEN GOTO prcErr
IF li_AppCode < 0 THEN GOTO prcErr
//关闭存储过程
CLOSE my_prc;
return 0
prcErr:
rollback;
messagebox('错误信息',)
四、小结
通过前面的三小节内容，相信你已经学会了在PB中怎么执行动态SQL语句？PB怎么调用数据库中存储过程？
PB怎么通过游标对SQL语句查询出的包含多条结果集的处理。这几种场景在PB中都是经常使用的。
以上就是本期的全部内容，希望对你有所帮助 (●'◡'●)文章来源：https://www.toymoban.com/news/detail-631296.html
我们下期再见~ ヾ(•ω•`)o文章来源地址https://www.toymoban.com/news/detail-631296.html
到了这里，关于PB从入坑到放弃（六）动态SQL应用的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！
