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

ehxz 发表于 2005-8-25 10:35:38

浅析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 　　　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）
参考文献
：《powerbuilder原理与应用指南》刘红岩、何军电子工业出版社 ：《powerbuilder应用开发速成培训》余三明、张如健、陈旭电子工业出版社 ：《powerbuilder应用开发技术详解》王蓉电子工业出版社 ：《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;

页: [1]

PowerBuilder(PB)BBS社区's Archiver

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