关于使用PROC编程的一些简单说明和例子.docx
《关于使用PROC编程的一些简单说明和例子.docx》由会员分享，可在线阅读，更多相关《关于使用PROC编程的一些简单说明和例子.docx（17页珍藏版）》请在冰点文库上搜索。
关于使用PROC编程的一些简单说明和例子
关于使用PRO*C编程的一些简单说明和例子
例子程序：
#include
#include
#include
#include
#include
EXECSQLINCLUDEsqlca;
/*RELEASE_CURSOR=YES使PROC在执行完后释放与嵌入SQL有关资源*/
EXECORACLEOPTION（RELEASE_CURSOR=YES）;
EXECSQLBEGINDECLARESECTION;
varcharvc_user[0];
longal_empno=0;
charac_ename[]="";
charac_hiredate[0]="";
doubleaf_sal=0;
EXECSQLVARac_enameISSTRING（）;
EXECSQLVARac_hiredateISSTRING（0）;
EXECSQLENDDECLARESECTION;
/*错误处理函数*/
voidsql_error（char*msg）
{
printf（"\n%s,%ld,%s\n",msg,sqlca.sqlcode,（char*）sqlca.sqlerrm.sqlerrmc）;
EXECSQLROLLBACKRELEASE;
exit（-）;
}
main（）
{
EXECSQLWHENEVERSQLERRORDOsql_error（"ORACLEERROR:
"）;
/*连接数据库*/
strcpy（vc_user.arr,"scott/tiger@DEMO"）;
vc_user.len=6;
execsqlconnect:
vc_user;
EXECSQLDECLAREcur_empCURSORFOR
SELECTEMPNO,ENAME,to_char（HIREDATE,'yyyy/mm/ddhh:
mi:
ss'）,SALFROMEMP;
EXECSQLOPENcur_emp;
while（）
{
al_empno=0;
strcpy（ac_ename,""）;
strcpy（ac_hiredate,""）;
af_sal=0;
EXECSQLFETCHcur_empINTO:
al_empno,:
ac_ename:
ename_ind,:
ac_hiredate:
hiredate_ind,:
af_sal:
sal_ind;
if（sqlca.sqlcode==0）
{
break;
}
printf（"empno=%ld,ename=%s,hiredate=%s,sal=%lf\n",al_empno,ac_ename,ac_hiredate,af_sal）;
}
EXECSQLCLOSEcur_emp;
EXECSQLROLLBACKWORKRELEASE;
}
、宿主变量的声明
在PROC中,在SQL语句中用到的变量称为宿主变量。
他们应在EXECSQLBEGINDECLARESECTION;与EXECSQLEDNDECLARESECTION;
之间声明，如上面所示.在声明宿主变量时应注意以下几点：
（）在数据库表中定义为VARCHAR，VARCHAR，CHAR的字段，在PROC中可声明为CHAR，但长度应为它们在表中定义的长度加，因为PROC中
CHAR型变量用做结尾。
如：
ENAME在表中的定义为enamevarchar（0），在PROC中可定义为：
EXECSQLBEGINDECLARESECTION;
charename[];
EXECSQLENDDECLARESECTION;
常见错误说明:
如果插入的字符串长度大于0，如：
EXECSQLINSERTINTOEMP（ENAME）VALUES（'567890'）;会出现以下错误:
error:
ORA-080:
STR赋值变量缺少空后缀。
如果定义为:
EXECSQLBEGINDECLARESECTION;
charename[5];
EXECSQLENDDECLARESECTION;
当插入的字符串长度大于0，小于5时,如：
EXECSQLINSERTINTOEMP（ENAME）VALUES（'567890'）;会出现以下错误:
error:
ORA-00:
插入的值对于列过大。
当插入的字符串长度大于5，如：
EXECSQLINSERTINTOEMP（ENAME）VALUES（'567890'）;会出现以下错误:
error:
ORA-00:
STR赋值变量缺少空后缀。
（）从SQL语句中取字段的值到宿主变量中时，PROC不会自动给宿主变量去掉右空格。
而是以在DECLARESECTION中定义的长度为准（与表中定义的无关）不足补右空格.如果不注意这一点，在PROC中进行字符串操作时（如比较相等）会出错。
如:
EXECSQLBEGINDECLARESECTION;
charename[0];
EXECSQLENDDECLARESECTION;
如果ENAME在表中的值为'abc',则取出的值为'abc';
可用语句EXECSQLVAR重定义CHAR型变量。
这样宿主变量会自动去掉右空格。
如下:
EXECSQLBEGINDECLARESECTION;
charename[];
EXECSQLVARac_enameISSTRING（）;
EXECSQLENDDECLARESECTION;
如果ENAME在表中的值为'abc',则取出的值为'abc';
（）对浮点型的变量，为保证精度，最好是声明成DOUBLE型的.因为DOUBLE型的精度比FLOAT型高很多.
（）整型可声明为LONG型（对较长的整型,而且所用的平台支持的话,如在SUN平台上,可声明为LONGLONG型）.
（5）DATE型的处理：
DATE型一般声明为CHAR（0）。
往表中插入DATE型数据时,一般用TO_DATE（）函数进行类型转换,取出值时一般用TO_CHAR（）函数进行类型转换.
EXECSQLselectto_char（hiredate,'yyyy/mm/ddhh:
mi:
ss'）into:
ac_hire_datefromEMPwhereempno=;
EXECSQLinsertintoEMP（EMPNO,HIREDATE）values（,to_date（:
ac_hiredate,'yyyy/mm/ddhh:
mi:
ss'）;
、宿主变量的作用范围
如果宿主变量在所有的函数之外声明，则他们是全局变量。
在使用之前要注意把变量的值初始化，宿主变量也可以在某个函数的内部定义。
这时他们是局部变量。
一般都习惯把宿主变量声明为全局变量。
、数据库的连接与断开
数据库的连接有以下两种方法：
（）
strcpy（vc_user.arr,"scott/tiger"）;
vc_user.len=;
execsqlconnect:
vc_user;
（）
strcpy（user,"scott"）;
strcpy（pass,"tiger"）;
execsqlconnect:
useridentifiedby:
pass;
注意：
在有些平台上两种都可以,在有些平台上只能用第一种方法.
在PROC程序中，要记住用EXECSQLROLLBACKWORKRELEASE;断开与数据库的连接,并释放相关的数据库资源。
、PROC中的NULL值的处理
如果某一字段取出的值是NULL,会报:
sqlcode=-05,sqlerr=ORA-005:
读取的列值为NULL
并且相应的宿主变量的值不会被改变,为执行该SQL语句之前的值.常用的处理NULL值的方法有：
（）采用指示器变量,此时不会有-05错误,当必须是所以为NULL的字段都有相应的指示器变量,如果某一字段没有指示器变量,但取出的值
为NULL值,则仍然会有-05错误.当取出的值是NULL时，相应的指示器变量变量为-，可根据指示器变量的值做响应的处理。
（）如果字段较多,可取字段到一个结构体中及与该结构体对应的指示器结构体中.如上面的例子中可定义结构体：
structstr_emp{
longal_empno;
charac_ename;
charac_hiredate;
doubleaf_sal;
};
structstr_emp_ind{
longal_empno;
charac_ename;
charac_hiredate;
doubleaf_sal;
};
structstr_empstr_emp;
strcutstr_emp_indstr_emp_ind;
在取之前可用memset（&str_emp,0,sizeof（str_emp））.清空该结构体,这样如果是字符型的NULL,会为"",整型的NULL会为0,
浮点型的会为0.00。
此时不会有-05错误。
（）也可采用NVL（）函数:
举例如下：
EXECSQLDECLAREauthorsCURSORFOR
SELECTEMPNO,NVL（ENAME,chr（0））,nvl（to_char（HIREDATE,'yyyy/mm/ddhh:
mi:
ss'）,chr（0））,NVL（SAL,0）FROMEMP;
这样也不会有-05错误不,当取出的值是NULL时,自动用NVL（）中指定的值代替.
CHR（0）也可直接用''代替,如下:
SELECTEMPNO,NVL（ENAME,''）,nvl（to_char（HIREDATE,'yyyy/mm/ddhh:
mi:
ss'）,''）,NVL（SAL,0）FROMEMP;
5、PROC中的错误的处理
所有的SQL语句都有可能出错.所以都要加以判断,但每个SQL语句后都加错误判断,太麻烦,可用一个函数如sql_error（）来进行错误处理,
方法:
（）定义ql_error（）函数。
（）在开头加上EXECSQLWHENEVERSQLERRORDOsql_error（）;这样当发生sqlca.sqlcode<0的错误时,程序自动转到sql_error（）中执行.注意:
对sqlca.sqlcode>0的错误如sqlca.sqlcode=0是不会转到sql_error（）中执行的.
另外:
在UNIX下，可以用OERR来查找错误的描述。
如：
oraORA-05查找错误号为-05的描述.
6、PROC中调用存储过程的方法
要把存储过程放在EXECSQLEXECUTE和END-EXEC;之间，如下所示：
其中：
al_empno,ac_ename为输入参数,l_return,l_errno,c_errtext为输出参数。
al_empno=8888;
strcpy（ac_ename,"ABCD"）;
EXECSQLEXECUTE
BEGIN
up_db_emp（:
al_empno,:
ac_ename,:
l_return,:
l_errno,:
c_errtext）;
END;
END-EXEC;
if（l_return!
=0）
{
printf（"调用UP_PB_EMP存储过程出错,errno=%ld,errtext=%s\n",l_errno,c_errtext）;
}
7、PROC的命令行选项：
PROC编译器有很多的命令行选项，在命令行下直接不带参数运行PROC，会列出所有的命令行选项来，并有说明。
（）储存过程:
编译储存过程是要带上用户名及密码
procUSERID=scott/tigersqlcheck=SEMANTICSireclen=5iname=test.cpp
（）PARSE=NONE对非SQL代码不进行语法分析，默认对非SQL代码也进行语法分析.
在REDHAD6.上的ORACLE8..5中用PROC时,会提示:
/USR/INCLUDE/STDIO.H及其他的.H文件中有错.可把PARSE=NONE加上,就好了.
8、注意加上：
EXECORACLEOPTION（RELEASE_CURSOR=YES）;
RELEASE_CURSOR=YES使PROC在执行完后释放与嵌入SQL有关资源，保证在该PROC程序执行完后，ORACLE不会锁住数据库资源，如锁表等。
如果在PROC中用到ORACA，还要在程序头加上：
EXECORACLEOPTION（ORACA=YES）;
9、PROC中的类型转换
一、在C语言中:
（）字符型到整型可用ATOI（）ATOL（）,SSCANF（）
（）整型,浮点型到字符型,可用SPRINTF（）
（）字符型到浮点型用ATOF（）不行,最好用SSCANF（）,举例如下:
EXECSQLBEGINDECLARESECTION;
doubled_demo;
floatf_demo;
charac_text[0]="";
EXECSQLENDDECLARESECTION;
（）sscanf（ac_text,"%f",&d_demo）;
printf（"ac_text=%s,d_demo=%f\n",ac_text,d_demo）;
（）sscanf（ac_text,"%lf",&d_demo）;
printf（"ac_text=%s,d_demo=%f\n",ac_text,d_demo）;
（）sscanf（ac_text,"%f",&d_demo）;
printf（"ac_text=%s,d_demo=%lf\n",ac_text,d_demo）;
（）sscanf（ac_text,"%lf",&d_demo）;
printf（"ac_text=%s,d_demo=%lf\n",ac_text,d_demo）;
printf（"*******************\n"）;
（5）sscanf（ac_text,"%f",&f_demo）;
printf（"ac_text=%s,f_demo=%f\n",ac_text,f_demo）;
（6）sscanf（ac_text,"%lf",&f_demo）;
printf（"ac_text=%s,f_demo=%f\n",ac_text,f_demo）;
（7）sscanf（ac_text,"%f",&f_demo）;
printf（"ac_text=%s,f_demo=%lf\n",ac_text,f_demo）;
（sscanf（ac_text,"%lf",&f_demo）;
printf（"ac_text=%s,f_demo=%lf\n",ac_text,f_demo）;
输出的结果:
ac_text=.00,d_demo=0.000000
ac_text=.00,d_demo=.000000
ac_text=.00,d_demo=.0000
ac_text=.00,d_demo=.000000
*******************
ac_text=.00,f_demo=.000000
ac_text=.00,f_demo=0.000000
ac_text=.00,f_demo=.000000
ac_text=.00,f_demo=0.000000
d_demo=atof（ac_text）;
printf（"ac_text=%s,atof（ac_text）=%f\n",ac_text,d_demo）;
d_demo=atof（ac_text）;
printf（"ac_text=%s,atof（ac_text）=%lf\n",ac_text,d_demo）;
f_demo=atof（ac_text）;
printf（"ac_text=%s,atof（ac_text）=%f\n",ac_text,f_demo）;
f_demo=atof（ac_text）;
printf（"ac_text=%s,atof（ac_text）=%lf\n",ac_text,f_demo）;
输出的结果:
ac_text=.00,atof（ac_text）=88.000000
ac_text=.00,atof（ac_text）=88.000000
ac_text=.00,atof（ac_text）=88.000000
ac_text=.00,atof（ac_text）=88.000000
从上面的结果可见:
DOUBLE型应采用sscanf（ac_app_capcity,"%lf",&d_app）;打印用"%lf","%f"都可以.（）,（）正确
FLOAT型应采用sscanf（ac_app_capcity,"%f",&d_app）;打印用"%lf","%f"都可以.（5）,（7）正确
采用ATOF（）转换的结果都是错的,所以不要用它。
二、写表或从表中取数据时:
（）字符型与整型之间可不用转换,采用默认方式。
（）字符型与浮点型之间可不用转换,采用默认方式。
（）日期型与字符型之间可用TO_CHAR（）,TO_DATE（）。
0、PROC中的种动态SQL简介
（）动态SQL:
不能是查询（SELECT）语句,并且没有宿主变量.
用法:
拼一串动态SQL语句,并用EXECUTEIMMEDIATE执行,如:
EXECSQLEXECUTEIMMEDIATE"CREATETABLEdyn（colVARCHAR（））";
（）动态SQL:
不能是查询（SELECT）语句,并且输入的宿主变量数目是知道的,
用法:
拼一串动态SQL语句,用PREPARE,EXECUTE语句执行.
strcpy（c_sql,"DELETEFROMEMPWHEREEMPNO="）;
EXECSQLPREPAREsql_stmtFROM:
c_sql;
EXECSQLEXECUTEsql_stmtUSING:
emp_number;
（）动态SQL:
用于创建动态查询,并且要查询的字段及输入的宿主变量数目是知道的
用法:
拼一串动态SQL语句,用PREPARE分析该语句,并要定义一个CURSOR进行取值
如:
如要查询的数据按一年月放到张表中。
表名为user_fee_mon,user_fee_mon,....可采用动态SQL来进行查询
strcpy（c_sql,"selectc_user_id,c_user_name,to_char（t_date,'yyyy/mm/ddhh:
mi:
ss'）,n_fee\n"）;
strcat（c_sql,"fromUSER_FEE_"）;
strcat（c_sql,ac_mon）;
strcat（c_sql,"\nwherec_user_id=:
v"）;
EXECSQLPREPAREsFROM:
c_sql;
EXECSQLDECLAREcur_user_feeCURSORFORs;
EXECSQLOPENcur_user_feeUSING:
ac_user_id;
while（）
{
EXECSQLFETCHcur_user_feeinto:
c_user_id,:
c_user_name,:
c_date,:
n_fee）;
if（sqlca.sqlcode<0）
{
/*FETCHCURSOR失败*/
printf（"fetchcursorcur_user_feefail,sqlcode=%ld,sqlserr=%s",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc）;
}
if（sqlca.sqlcode==SQLNOTFOUND）
{
break;
}
}
EXECSQLCLOSEcur_user_fee;
（）动态SQL:
要处理的字段及输入的宿主变量数目和主变量的类型事先是不知道的,如：
INSERTINTOEMP（VALUES（
是最复杂的动态SQL,很少用,在此不做介绍。
0、SQLCA：
SQL是ORACLE的一个结构体，它的域用于最近的一条SQL语句执行后的一些信息，如错误号，错误描述，警告，状态等。
常用的
域介绍如下:
SQLCA.sqlcode:
错误号,=0正确,=0没取到数据
SQLCA.sqlserrm.sqlerrmc:
错误描述
SQLCA.sqlerrd[]:
最近的一条SQL语句所处理的行数,如果该语句处理失败,则它的值是不定的,如果错误在一个CURSOR操作中发生,则
它的值指已成功处理的
升级会员 