资源预览内容
第1页 / 共10页
第2页 / 共10页
第3页 / 共10页
第4页 / 共10页
第5页 / 共10页
第6页 / 共10页
第7页 / 共10页
第8页 / 共10页
第9页 / 共10页
第10页 / 共10页
亲,该文档总共10页全部预览完了,如果喜欢就下载吧!
资源描述
PROC是ORACLE数据库提供的编程接口之一,其应用十分的广泛,本文通过一个具体的例子,介绍PROC编程的一些经验及应注意的地方。例子程序:#include #include #include #include #include EXEC SQL INCLUDE sqlca;/*RELEASE_CURSOR=YES 使PROC 在执行完后释放与嵌入SQL有关资源*/EXEC ORACLE OPTION (RELEASE_CURSOR = YES);EXEC SQL BEGIN DECLARE SECTION;varchar vc_user20;long al_empno=0;char ac_ename11=;char ac_hiredate20=;double af_sal=0;EXEC SQL VAR ac_ename IS STRING(11);EXEC SQL VAR ac_hiredate IS STRING(20);EXEC SQL END DECLARE SECTION;/*错误处理函数*/void sql_error(char *msg)printf(n%s,%ld,%sn, msg,sqlca.sqlcode,(char *)sqlca.sqlerrm.sqlerrmc);EXEC SQL ROLLBACK RELEASE;exit(-1);main() EXEC SQL WHENEVER SQLERROR DO sql_error(ORACLE ERROR: );/*连接数据库*/strcpy(vc_user.arr,scott/tigerDEMO);vc_user.len=16;exec sql connect :vc_user;EXEC SQL DECLARE cur_emp CURSOR FOR SELECT EMPNO, ENAME,to_char(HIREDATE,yyyy/mm/dd hh24:mi:ss),SAL FROM EMP;EXEC SQL OPEN cur_emp;while(1)al_empno=0;strcpy(ac_ename,);strcpy(ac_hiredate,);af_sal=0;EXEC SQL FETCH cur_emp INTO :al_empno, :ac_ename:ename_ind, :ac_hiredate:hiredate_ind, :af_sal:sal_ind;if( sqlca.sqlcode = 1403)break;printf(empno=%ld,ename=%s,hiredate=%s,sal=%lfn,al_empno,ac_ename,ac_hiredate,af_sal); EXEC SQL CLOSE cur_emp;EXEC SQL ROLLBACK WORK RELEASE;1、宿主变量的声明在PROC中,在SQL语句中用到的变量称为宿主变量。他们应在EXEC SQL BEGIN DECLARE SECTION;与EXEC SQL EDN DECLARE SECTION;之间声明,如上面所示.在声明宿主变量时应注意以下几点:(1) 在数据库表中定义为VARCHAR2,VARCHAR,CHAR的字段,在PROC中可声明为CHAR,但长度应为它们在表中定义的长度加1,因为PROC中CHAR型变量用0做结尾。如:ENAME在表中的定义为ename varchar2(10),在PROC中可定义为:EXEC SQL BEGIN DECLARE SECTION;char ename11;EXEC SQL END DECLARE SECTION;常见错误说明:如果插入的字符串长度大于10,如:EXEC SQL INSERT INTO EMP(ENAME) VALUES(12345678901);会出现以下错误:error:ORA-01480: STR 赋值变量缺少空后缀。如果定义为:EXEC SQL BEGIN DECLARE SECTION;char ename15;EXEC SQL END DECLARE SECTION;当插入的字符串长度大于10,小于15时,如:EXEC SQL INSERT INTO EMP(ENAME) VALUES(12345678901);会出现以下错误:error:ORA-01401: 插入的值对于列过大。当插入的字符串长度大于15,如:EXEC SQL INSERT INTO EMP(ENAME) VALUES(12345678901234);会出现以下错误:error:ORA-01401:STR 赋值变量缺少空后缀。(2) 从SQL语句中取字段的值到宿主变量中时,PROC不会自动给宿主变量去掉右空格。而是以在DECLARE SECTION 中定义的长度为准(与 表中定义的无关)不足补右空格.如果不注意这一点,在PROC中进行字符串操作时(如比较相等)会出错。如:EXEC SQL BEGIN DECLARE SECTION;char ename10;EXEC SQL END DECLARE SECTION; 如果ENAME在表中的值为abc,则取出的值为abc ;可用语句EXEC SQL VAR重定义CHAR型变量。这样宿主变量会自动去掉右空格。如下: EXEC SQL BEGIN DECLARE SECTION;char ename11;EXEC SQL VAR ac_ename IS STRING(11);EXEC SQL END DECLARE SECTION;如果ENAME在表中的值为abc,则取出的值为abc;(3) 对浮点型的变量,为保证精度,最好是声明成DOUBLE型的.因为DOUBLE型的精度比FLOAT型高很多.(4) 整型可声明为LONG型(对较长的整型,而且所用的平台支持的话,如在SUN平台上,可声明为LONG LONG型).(5) DATE型的处理:DATE型一般声明为CHAR(20)。往表中插入DATE型数据时,一般用TO_DATE()函数进行类型转换,取出值时一般用TO_CHAR()函数进行类型转换.EXEC SQL select to_char(hiredate,yyyy/mm/dd hh24:mi:ss) into :ac_hire_date from EMP where empno=1234;EXEC SQL insert into EMP(EMPNO,HIREDATE) values(123,to_date(:ac_hiredate,yyyy/mm/dd hh24:mi:ss);2、宿主变量的作用范围如果宿主变量在所有的函数之外声明,则他们是全局变量。在使用之前要注意把变量的值初始化,宿主变量也可以在某个函数的内部定义。 这时他们是局部变量。一般都习惯把宿主变量声明为全局变量。3、数据库的连接与断开数据库的连接有以下两种方法:(1) strcpy(vc_user.arr,scott/tiger);vc_user.len=11;exec sql connect :vc_user;(2)strcpy(user,scott);strcpy(pass,tiger);exec sql connect :user identified by :pass;注意:在有些平台上两种都可以,在有些平台上只能用第一种方法.在PROC程序中,要记住用EXEC SQL ROLLBACK WORK RELEASE;断开与数据库的连接,并释放相关的数据库资源。4、PROC中的NULL值的处理如果某一字段取出的值是NULL,会报:sqlcode=-1405, sqlerr=ORA-01405: 读取的列值为 NULL并且相应的宿主变量的值不会被改变,为执行该SQL语句之前的值. 常用的处理NULL值的方法有:(1)采用指示器变量,此时不会有-1405错误,当必须是所以为NULL的字段都有相应的指示器变量,如果某一字段没有指示器变量,但取出的值为NULL值,则仍然会有-1405错误.当取出的值是NULL时,相应的指示器变量变量为-1,可根据指示器变量的值做响应的处理。(2)如果字段较多,可取字段到一个结构体中及与该结构体对应的指示器结构体中.如上面的例子中可定义结构体:struct str_emplong al_empno;char ac_ename;char ac_hiredate;double af_sal;struct str_emp_indlong al_empno;char ac_ename;char ac_hiredate;double af_sal;struct str_emp str_emp;strcut str_emp_ind str_emp_ind;在取之前可用memset(&str_emp,0,sizeof(str_emp).清空该结构体,这样如果是字符型的NULL,会为,整型的NULL会为0,浮点型的会为0.00。此时不会有-1405错误。(3)也可采用NVL()函数:举例如下:EXEC SQL DECLARE authors CURSOR FOR SELECT EMPNO, NVL(ENAME,chr(0),nvl(to_char(HIREDATE,yyyy/mm/dd hh24:mi:ss),chr(0),NVL(SAL,0) FROM EMP;这样也不会有-1405错误不,当取出的值是NULL时,自动用NVL()中指定的值代替.CHR(0)也可直接用代替,如下:SELECT EMPNO, NVL(ENAME,),nvl(to_char(HIREDATE,yyyy/mm/dd hh24:mi:ss),),NVL(SAL,0) FROM EMP;5、PROC中的错误的处理所有的SQL语句都有可能出错.所以都要加以判断,但每个SQL语句后都加错误判断,太麻烦,可用一个函数如sql_error()来进行错误处理,方法:(1)定义ql_error()函数。(2)在开头加上EXEC SQL WHE
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号