[转帖]pb下动态sql语句的应用

ehxz

免费乐捐，感谢支持

浅析powerbuilder下动态sql语句

张继荣　王举国　谭琦　谢元呈

摘要：本文介绍了powerbuilder开发工具中嵌入式sql语句与动态sql语句之间的区别和特点，并通过具体实例详细说明了如何在powerbuilder中使用动态sql语句以及四种格式的动态sql语句各自所能实现的功能。
关键词：powerbuilder动态sql嵌入式sql

一、前言

　　powerbuilder是目前最流行的数据库开发工具之一。中国农业银行的“信贷综合管理系统”和用于上报人民银行的信贷登记咨询系统的“接口程序”都是使用powerbuilder开发的。powerbuilder提供了在程序代码中加入嵌入式sql语句的功能来支持对数据库的访问。但这种嵌入式sql语句只能支持一些固定的标准的sql语句，即在进行程序代码编译处理时这些sql语句必须是确定的，例如：对哪张表哪几个字段进行操作在程序代码中是固定写明的，另外这种方式也不能执行像creat table,creat database等这些数据库定义的语句(ddl)。因此这种嵌入式sql语句在实际应用中有一定的局限性。为克服这种方式的局限性，可以使用powerbuilder提供的动态sql语句，这种对数据库访问的方式可以完成嵌入式sql语句无法实现的功能。如建库、建表这一类的数据库定义语句(ddl)；其次，由于动态sql语句允许在执行时才确定到底要执行怎样的sql语句，因此使用动态sql语句可以使程序实现参数化设计，具有很大的灵活性和通用性。

二、动态sql语句的应用分析

　　powerbuilder提供了四种格式的动态sql语句，每种格式都有自己不同的特点和作用。下面我们对各种格式的具体使用方法分别加以说明。
　　(一)第一种格式
　　当执行没有输入参数并且没有返回结果集的sql语句时可以使用这种格式，这种格式使用比较简单，其实现的操作也比较少。
　　1?语法
　　execute immediate sqlstatement{using transactionobject}；
　　其中sqlstatement是要执行的sql语句，可以直接用引号将要执行的sql引起来用，或者用字符串变量的形式提供sql语句。通过使用字符串变量可以在具体执行的时候才指定要执行什么样的sql语句。transactionobject是用户所使用的事务对象，缺省为sqlca。
　　2?应用实例
　　①建立一张数据库表(base)，sql语句的表述用引号引起来直接使用。
　　execute immediate‘create table base(code char(6),name char(30))’using sqlca；
　　②执行对数据库记录的操作，在表base中插入一条记录，sql语句通过字符串变量传递执行语句。
　　string lssql
　　lssql=”insert into table base values(’320201’，’市中区支行’)”
　　execute immediate:lssql；
　　(二)第二种格式
　　当执行带输入参数但没有返回结果集时的sql语句可以采用第二种格式。该格式不仅可以动态地指定要执行的sql语句，同时还可以动态地确定sql语句所需要的参数值。
　　1?语法
　　prepare dynamicstagingarea from sqlstatement{using transactionobject}；
　　execute dynamicstagingarea{using parameterlist}；
　　其中：dynamicstagingarea是powerbuilder提供的一种数据类型。powerbuilder本身提供了一个名字为sqlsa的dynamicstagingarea类型的全局变量，用于保存要执行的动态sql语句信息。
　　2?应用实例
　　删除base表中的满足一定条件的记录。
　　string lscode
　　lscode=”320101”
　　prepare sqlsa from“delete base where code=?”；
　　execute sqlsa using：lscode；
　　(三)第三种格式
　　当执行有输入参数并且返回结果集的格式在编译时可以确定的sql语句时可以使用第三种格式。这种格式语法比较复杂，但要比前面两种功能强，可以返回结果集。在返回结果时由于不知道满足过滤条件的记录到底有多少条，因此第三种格式通常采用游标的形式。
　　1?语法
　　declare cursor dynamic cursor for dynamicstagingarea；
　　prepare dynamicstagingarea from sqlstatement{using transactionobject};
　　open dynamic cursor {using parameterlist};
　　fetch cursor into variablelist;
　　close cursor;
　　其中cursor是用户所定义的游标的名字。
　　2?应用实例
　　将表base中的code字段中间两位为”01”的所有记录读取出来并分别进行相应处理。
　　string lssql,lscode,lsname,lsfilter
　　lsfilter=”01”
　　lssql=”select code，name from base where substring(code，3，2)=?”
　　declare cursor_base dynamic cursor for sqlsa；
　　prepare sqlsa from：lssql；
　　open dynamic cursor_base using:lsfilter;
　　fetch cursor_base intlscode,:lsname;
　　do while sqlca.sqlcode=0
　　　．
　　　∥对满足条件的记录根据要求分别进行处理
　　　．
　　　fetch cursor_base intlscode,:lsname;
　　loop
　　close cursor_base;
　　(四)第四种格式
　　当执行有输入参数并且返回结果集的格式在编译时无法确定的sql语句时可以使用第四种格式。有时候我们执行一些sql语句时，不仅带有参数而且返回的结果集中有多少个字段，每个字段是什么类型的数据都不确定，这时只能使用第四种格式来实现。
　　1?语法
　　prepare dynamicstagingarea from sqlstatement{using transactionobject}；
　　describ dynamicstagingarea into dynamicdescriptionobject；
　　declare cursor dynamic cursor for dynamicdescriptionobject；
　　open dynamic cursor using descriptor dynamicdescriptionobject；
　　fetch cursor using descriptor dynamicdescriptionobject；
　　close cursor；
　　其中：dynamicdescriptionobject是powerbuilder提供的一个数据类型，在powerbuilder中提供了一个dynamicdescriptionobject类型的全局数据类型sqlda，用来存放动态sql语句的输入输出参数。
　　2?应用实例
　　将一个表中满足过滤条件的记录的所有字段取出来分别进行处理，表名在程序运行中由字符串变量传递，字段信息是不确定的。这里我们假设通过字符串变量中传递的表名是base。
　　string lsstring,lssql,lstable,lscolumn
　　int liint
　　datetime litime
　　lssql=”select*from base where code like?”
　　prepare sqlsa from lssql;
　　describ sqlsa into sqlda;∥sqlda中含有输入参数的描述
　　declare cursor_base dynamic cursor for sqlsa;
　　setdynamicparm(sqlda,1,”32％”)∥传递参数值
　　open dynamic cursor_base using descriptor sqlda;
　　fetch cursor_base using descriptor sqlda;
　　do while salca.sqlcode=0
　　　for liint=1 to sqlda.numoutputs
　　　choose case sqlda.outparmtype[liint]
　　　case typestring!
　　　　lsstring=getdynamicstring(sqlda,liint)
　　　　∥处理该字符型的字段
case typedatetime
　　　　lsdatetime=getdynamicdatetime(sqlda,liint)
　　　　∥处理该日期型的字段
　　　　...
　　　　∥处理其他类型的字段
　　　　...
　　　　end choose
　　　　next
　　　　∥将一条记录的所有字段取完后作相应的处理
　　　　fetch cursor_base using descriptor sqlda;
　　loop
　　close cursor_base；

三、结束语

　　从上面的说明和举例中可以看出动态sql的特点是功能强，使用灵活，完全可以在程序代码中动态地生成具体要执行的sql语句，是嵌入式sql无法比拟的。
　　当然动态sql语句在运行速度上可能要比嵌入式sql语句略慢一点，但随着计算机处理速度的大幅度提高，现在来说这一点已不成什么问题。因此，使用动态sql语句仍是一种非常可取的处理方法。根据我们在实际编程中的体会，正确使用动态sql语句可使程序代码简练、灵活、通用，不仅降低了初次编程的工作量，而且也降低以后对代码的维护量，能够取得事半功倍的效果。□

张继荣（中国农业银行总行软件开发中心，北京 100055）
王举国（中国农业银行总行软件开发中心，北京 100055）
谭琦（中国农业银行总行软件开发中心，北京 100055）
谢元呈（中国农业银行总行软件开发中心，北京 100055）

参考文献

[1]：《powerbuilder原理与应用指南》刘红岩、何军电子工业出版社
[2]：《powerbuilder应用开发速成培训》余三明、张如健、陈旭电子工业出版社
[3]：《powerbuilder应用开发技术详解》王蓉电子工业出版社
[4]：《powerbuilder 0nlinebooks》

-----------------------------------------------

一个有关powerbuilder动态sql语句的例子
抚顺 常贺东

---- 我们用powerbuilder对关系数据库进行操作时，会遇到这样的问题，我们所写的sql语句可能不是确定的。幸好powerbuilder的powerscript 提供了动态sql这种高级功能。动态sql是ansi和sql2标准的一部分，有四种方式：①execute immediate(立即执行)：没有查询执行也没有数据检索②prepare and execute(准备和执行)：没有数据检索并希望多次执行③prepare and fetch with cursor(准备和用游标获取)：sql语句不确定，且处理确定的结果集④prepare and fetch with system descriptors :在方式三的基础上通过使用descriptor(描述)处理大量不确定的结果集。

---- 笔者最近遇到一个问题：在同一数据库内，有哪些表包含:"id"字段，且给出"id"值能够定位出那些表和记录数。利用powerscript的dynamic sql format3 statement(动态sql方式三)成功的解决了该问题。首先，做一个同数据源相连接的application(应用程序),生成一个window(窗口)，放入"single line edit"、"botton"、"list box"控件。在"single line edit"输入"id"的值，点击"commit"按钮，结果放入"list box"中。以下为"commit"按钮的"click event"。

//定义变量
//sqlstatement 临时动态sql语句
//ls_tabname 表名
//ls_num 记录数
//ls_sqlcode 保存sqlca.sqlcode的临时变量

string sqlstatement,ls_tabname
int ls_num,ls_sqlcode

lb_1.reset()

//定义游标---取出所有包含"id"字段的表
declare open_systable cursor for
select "dbo"."sysobjects"."name"
from "dbo"."sysobjects",
"dbo"."syscolumns"
where ( "dbo"."sysobjects"."id" =
"dbo"."syscolumns"."id" ) and
( "dbo"."syscolumns"."name" = ''id'' ) and
( "dbo"."sysobjects"."type" = ''u'' ) ;

//定义动态游标my_cursor
declare my_cursor dynamic cursor for sqlsa ;

connect;

open open_systable;
do
fetch open_systable into :ls_tabname;
ls_sqlcode=sqlca.sqlcode
if sqlca.sqlcode = 0 then

sqlstatement = "select count(*)
from "+ls_tabname + &
" where id = ?"

//从某表中取出"id"为某一值的记录数
prepare sqlsa from :sqlstatement ;
ls_num=integer(sle_1.text)
open dynamic my_cursor using :ls_num;

fetch my_cursor into :ls_num ;

if ls_num < > 0 and sqlca.sqlcode = 0 then
lb_1.additem(ls_tabname+
"--记录数--"+string(ls_num))
end if
close my_cursor ;
end if
loop until (ls_sqlcode < > 0)

close open_systable;
disconnect;