在Adaptive Server Anywhere和Oracle之间构造通用函数
辽河油田锦采地质大队 邓先永
01-7-2 上午 10:29:41
在使用PowerBuilder编制程序时，使用的最多的数据库接口是它自身集成的Adaptive Server Anywhere和大型数据库管理系统Oracle；有时，为了使程序的运行、移植更加方便，比如从服务器的数据管理端立即转到单机的数据管理端时，往往涉及到用户在程序的SQL语句中所使用的不同数据库平台上，函数的兼容性问题。
比如在最后的数据汇总时，为了保证计算结果的正确性，就要使用防止空值发生的函数，这个函数在Oracle中是nvl(x,y)；用法为：
select name,nvl(age,”年龄未知”) age,nvl(zipcode,”无邮政编码”) zipcode from unknow_personal;
则可能出现的结果为：
name age zipcode
张三 45 无邮政编码
李四 年龄未知 234567
王五 年龄未知 无邮政编码
而在Adaptive Server Anywhere的单机数据库平台上，就要用isnull等函数了，语法为：
select name,isnull(age,”年龄未知”) age,isnull(zipcode,”无邮政编码”) zipcode from unknow_personal;
最后的结果是一样的。
现在问题是当我们所用的数据库要从Oracle移植到单机版的Adaptive Server Anywhere上时，由于某些函数的不通用性，程序就要修改相应的函数调用，重新编译，如果在程序中大量或多处使用这种函数时，就很有可能导致人为的错误，从而使程序的维护工作量加大，我曾在网上发过有相关帮助的帖子，但不太切中要害。经过仔细研究一段时间后，终于在Adaptive Server Anywhere单机平台上实现了Oracle上的函数nvl()，使我的程序应用更加方便，现写下来与大家共享。
另外，本人以前用PB6的时候，在PB6的Database Administrater Painter中曾编写过比较复杂的Stored Procedure，但是由于PB6中在处理和Database直接接口的Script时，对于” ; ”和” ’ ”的使用上较多的不方便之处，因而实现时花费了不少的气力，虽然在PB7中此毛病仍然存在，但在PB7的光盘中集成的Adaptive Server Anywhere 6.0的管理工具却比在PB6中的优秀很多，使用Manager Adaptive Server Anywhere这个工具就能很轻松地对数据库进行操作。
首先，如果大家已经正确安装了PB7.0.1后，就可以通过以下步骤来启动Manager Adaptive Server Anywhere：开始→Sybase→Manager Adaptive Server Anywhere。
启动后出现管理界面，再按如下步骤：选菜单Tools→Connect→Adaptive Server Anywhere，再选择你在系统ODBC中配置好的数据源(PB7.0.1对此处理比较好，把各种数据源都集成到系统的ODBC配置中来进行，比较正规，可能初学者还不太适应吧！)，如果有必要，可以在User ID:和Password:处输入连接数据库的用户名和口令，之后按确定，就进行数据库的连接。
比如我们此次连接ASA 6.0 Sample，当然用户在实际应用中就要连接自己的数据库了，如果连接成功，会在Sybase Central下的Adaptive Server Anywhere下出现asademo的图标了;双击鼠标，打开asademo;再双击asademo(dba)，打开其下的Tables,Views,Procedures&Functions
等子项，单击rocedures&Functions
项，在右边窗口中就会出现当前连接的数据库中所支持的过程和函数，在右边窗口中双击Add Function (Template)，此时会出现New Function的窗口，窗口中有一个函数的大致框架，但为了实现在Oracle中的nvl()函数，请将New Function窗口中的语句改为如下的形式：
create function nvl(in x text,in y text)
returns text
begin
declare z text;
if x is null then
set z=y
else
set z=x
end if;
return(z)
end
为了以上几行Script，本人也试过多次才成功，首先是上面的(in x text,in y text)，表示函数有两个输入参数：x，y，而数据类型是text。这个text数据类型真是很有趣，我想就算是Sybase公司很好的创意吧！刚开始时，我用的是real类型，但它处理数值型字段时可以，但在处理字符型的字段时就不灵了，后来又仔细分析了一下Adaptive Server Anywhere所提供的数据类型后，改用text一切才OK！后面的Script，我曾想直接调用Adaptive Server Anywhere的isnull()函数，却没有成功，欢迎广大网友积极参与讨论；至于其它的Script，大家仔细看看Adaptive Server Anywhere的帮助后，应该是可以写出来的。
之后，选择New Function窗口的File→Excute Script执行此语句，就行了，这时回到Manager Adaptive Server Anywhere的管理界面，在Procedures&Functions项中，就会有nvl()函数了，用它即可参与实战。
下来还有一步，本来这一步可有可无，因为在数据库只要有了nvl()的定义后，就可以在PB中直接写带有nvl()的Script，而不会出现语法错误了，但是，为了用户能在PB中直接调用，就算是形成一个完整的应用，建议大家还是坚持完成下面的过程，反正又不太费劲，另外还可以长知识呢。
大家在构建DataWindow的时候，相信已经使用过相应数据库中的函数，特别是在用计算列时，就很有可能用到函数了，现在，我们要把在Adaptive Server Anywhere中实现的类似于Oracle的nvl()函数，让它出现在DataWindow Painter的可以直接选取的函数名中（本来用Oracle连库是有的，但用Adaptive Server Anywhere连库时就会有isnull()函数可选，而没有nvl()可选），经过我们的分析，可以用以下几步来实现：
1．找到Sybase安装目录的\Shared\PowerBuilder下的pbodb70.ini文件，打开它，找到[Adaptive Server Anywhere]，可以看到PBFunctions='ASA_FUNCTIONS'，即Adaptive Server Anywhere数据库所用的函数是从ASA_FUNCTIONS处来获得，只要我们把关于nvl()的声明放到ASA_FUNCTIONS的相应部分，就可以在Adaptive Server Anywhere 数据库中，在PB的开发界面中，直接使用nvl()函数了(由此可见在PB中ini文件的重要性)。
2．在pbodb70.ini文件中找到Functions段的[ASA_FUNCTIONS]，在Functions=abs(x)…的合适的地方加入关于nvl()的声明：”nvl(x,y)，”(建议加到ifnull(x,y,z),处)即可。存盘退出，之后启动PB，大家就可以看到，即使使用Adaptive Server Anywhere 数据库，也一样可以使用Oracle中的nvl()函数了。
这样有一个比较重大的意义是：实现了这样的函数后，用户的程序就可以在服务器版和单机版间通用了，省去了为服务器版和单机版分别开发不同代码的麻烦；一旦在单机数据库上建立好同服务器相同的库结构，装载相似的数据后，就可以同等使用。
以上是本人日常开发的经验所得，错误和不足疏漏之处再所难免，本文旨在抛砖引玉，关于数据库开发工具PowerBuilder的使用，且就本文上述的各个方面，确有许多可以大开论坛，讨论一番的必要，欢迎广大PB，VC开发者与我联系hard_deng@netease.com。
2000年6月9日
另外我还在又造了其它的几个函数：即在sqlanywhere下生成的ceil、add_months和to_char函数：
create function ceil(in x real)
returns integer
begin
declare z integer;
set z=ceiling(x);
return(z)
end
create function add_months(in x date,in y integer)
returns date
begin
declare z date;
set z=months(x,y);
return(z)
end
create function to_char(in x date,in y TEXT)
returns TEXT
begin
declare z TEXT;
declare ii integer;
if y='yyyymm' then
set ii=112
end if;
set z=convert(char(8),x,ii);
set z="left"(z,6);
return(z)
end
