jinn — Wed, 24 Jan 2007 05:36:00 GMT

关于使用PRO*C�~�程的一些简单说明和例子

　　PROC是ORACLE数据库提供的�~�程接口之一�Q�其应用十分的广泛，本文通过一个具体的例子�Q�介�l�PROC�~�程的一些经验及应注意的地方�?br />　　
　　例子�E�序�Q?br />　　


　　#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_user[20];
　　long al_empno=0;
　　char ac_ename[11]="";
　　char ac_hiredate[20]="";
　　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,%s\n", msg,sqlca.sqlcode,(char *)sqlca.sqlerrm.sqlerrmc);
　　EXEC SQL ROLLBACK RELEASE;
　　exit(-1);
　　}
　　
　　main()
　　{
　　EXEC SQL WHENEVER SQLERROR DO sql_error("ORACLE ERROR: ");
　　
　　/*�q�接数据�?/
　　strcpy(vc_user.arr,"scott/tiger@DEMO");
　　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=%lf\n",al_empno,ac_ename,ac_hiredate,af_sal);
　　}
　　EXEC SQL CLOSE cur_emp;
　　EXEC SQL ROLLBACK WORK RELEASE;
　　}

　　
　　1、宿��d��量的声明
　　
　　在PROC�?在SQL语句中用到的变量�U�Cؓ宿主变量。他们应在EXEC SQL BEGIN DECLARE SECTION;与EXEC SQL EDN DECLARE SECTION;
　　
　　之间声明�Q�如上面所�C?在声明宿��d��量时应注意以下几点：
　　
　　(1) 在数据库表中定义为VARCHAR2�Q�VARCHAR�Q�CHAR的字�D�，在PROC中可声明为CHAR�Q�但长度应�ؓ它们在表中定义的长度�?�Q�因为PROC�?br />　　
　　CHAR型变量用做结��?br />　　
　　如：ENAME在表中的定义为ename varchar2(10)�Q�在PROC中可定义为：
　　EXEC SQL BEGIN DECLARE SECTION;
　　char ename[11];
　　EXEC SQL END DECLARE SECTION;
　　
　　常见错误说明:
　　
　　如果插入的字�W�串长度大于10�Q�如�Q�EXEC SQL INSERT INTO EMP(ENAME) VALUES('12345678901');会出��C��下错�?
　　error:ORA-01480: STR 赋值变量缺��空后缀�?br />　　
　　如果定义�?
　　EXEC SQL BEGIN DECLARE SECTION;
　　char ename[15];
　　EXEC SQL END DECLARE SECTION;
　　
　　当插入的字符串长度大�?0�Q�小�?5�?如：EXEC SQL INSERT INTO EMP(ENAME) VALUES('12345678901');会出��C��下错�?
　　error:ORA-01401: 插入的值对于列�q�大�?br />　　
　　当插入的字符串长度大�?5�Q�如�Q�EXEC SQL INSERT INTO EMP(ENAME) VALUES('12345678901234');会出��C��下错�?
　　error:ORA-01401:STR 赋值变量缺��空后缀�?br />　　
　　(2) 从SQL语句中取字段的值到宿主变量中时�Q�PROC不会自动�l�宿��d��量去掉右�I�格。而是以在DECLARE SECTION 中定义的长度为准(�?表中定义的无�?不��补右�I�格.如果不注意这一点，在PROC中进行字�W�串操作�Ӟ��如比较相�{�）会出错。如:
　　EXEC SQL BEGIN DECLARE SECTION;
　　char ename[10];
　　EXEC SQL END DECLARE SECTION;
　　如果ENAME在表中的��gؓ'abc',则取出的��gؓ'abc ';
　　
　　可用语句EXEC SQL VAR重定义CHAR型变量。这样宿��d��量会自动��L��右空根{��如�?
　　EXEC SQL BEGIN DECLARE SECTION;
　　char ename[11];
　　EXEC SQL VAR ac_ename IS STRING(11);
　　EXEC SQL END DECLARE SECTION;
　　如果ENAME在表中的��gؓ'abc',则取出的��gؓ'abc';
　　
　　(3) �Ҏ�Q点型的变量，��Z��证精度，最好是声明成DOUBLE型的.因�ؓDOUBLE型的�_�ֺ�比FLOAT型高很多.
　　
　　(4) 整型可声明�ؓLONG�?对较长的整型,而且所用的�q�_��支持的话,如在SUN�q�_��?可声明�ؓLONG LONG�?.
　　
　　(5) DATE型的处理�Q�DATE型一般声明�ؓCHAR(20)�?br />　　
　　往表中插入DATE型数据时,一般用TO_DATE()函数�q�行�c�d��转换,取出值时一般用TO_CHAR()函数�q�行�c�d��转换.
　　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、宿��d��量的作用范围
　　
　　如果宿主变量在所有的函数之外声明�Q�则他们是全局变量。在使用之前要注意把变量的值初始化�Q�宿��d��量也可以在某个函数的内部定义�?�q�时他们是局部变量。一般都习惯把宿��d��量声明�ؓ全局变量�?br />　　
　　3、数据库的连接与断开
　　
　　数据库的�q�接有以下两�U�方法：
　　(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;
　　
　　注意�Q�在有些�q�_��上两�U�都可以,在有些��^��C��只能用第一�U�方�?
　　
　　在PROC�E�序中，要记住用EXEC SQL ROLLBACK WORK RELEASE;断开与数据库的连�?�q��攄��关的数据库资源�?br />　　
　　4、PROC中的NULL值的处理
　　
　　如果某一字段取出的值是NULL,会报:sqlcode=-1405, sqlerr=ORA-01405: ��d��的列��gؓ NULL
　　
　　�q�且相应的宿��d��量的��g��会被改变,为执行该SQL语句之前的�? 常用的处理NULL值的�Ҏ��有：
　　
　　(1)采用指示器变�?此时不会�?1405错误,当必��L��所以�ؓNULL的字�D�都有相应的指示器变�?如果某一字段没有指示器变�?但取出的�?br />　　
　　为NULL�?则仍然会�?1405错误.当取出的值是NULL�Ӟ��相应的指�C�器变量变量�?1�Q�可�Ҏ��指示器变量的值做响应的处理�?br />　　
　　(2)如果字段较多,可取字段��C��个结构体中及与该�l�构体对应的指示器结构体�?如上面的例子中可定义�l�构体：
　　struct str_emp{
　　long al_empno;
　　char ac_ename;
　　char ac_hiredate;
　　double af_sal;
　　};
　　struct str_emp_ind{
　　long 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)).清空该结构体,�q�样如果是字�W�型的NULL,会�ؓ"",整型的NULL会�ؓ0,
　　
　　��点型的会�ؓ0.00。此时不会有-1405错误�?br />　　
　　(3)也可采用NVL()函数:举例如下�Q?br />　　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;
　　
　　�q�样也不会有-1405错误�?当取出的值是NULL�?自动用NVL()中指定的��g��?
　　
　　CHR(0)也可直接�?'代替,如下:
　　SELECT EMPNO, NVL(ENAME,''),nvl(to_char(HIREDATE,'yyyy/mm/dd hh24:mi:ss'),''),NVL(SAL,0) FROM EMP;
　　
　　5、PROC中的错误的处�?/b>
　　
　　所有的SQL语句都有可能出错.所以都要加以判�?但每个SQL语句后都加错误判�?太麻�?可用一个函数如sql_error()来进行错误处�?
　　
　　�Ҏ��:
　　
　　(1)定义ql_error()函数�?br />　　
　　(2)在开头加上EXEC SQL WHENEVER SQLERROR DO sql_error();�q�样当发生sqlca.sqlcode <0 的错误时,�E�序自动转到sql_error()中执�? 注意:对sqlca.sqlcode >0的错误如 sqlca.sqlcode =1403 是不会�{到sql_error()中执行的.
　　
　　另外:在UNIX下，可以用OERR 来查��N��误的描述。如�Q?ora ORA -1405 查找错误号�ؓ-1405的描�q?
　　
　　6、PROC中调用存储过�E�的�Ҏ��
　　
　　要把存储�q�程攑֜�EXEC SQL EXECUTE �?END-EXEC;之间�Q�如下所�C�：
　　
　　其中�Q�al_empno,ac_ename ��入参�?l_return,l_errno,c_errtext ��出参数�?br />　　al_empno=8888;
　　strcpy(ac_ename,"ABCD");
　　EXEC SQL EXECUTE
　　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存储�q�程出错,errno=%ld,errtext=%s\n",l_errno,c_errtext);
　　}
　　
　　7、PROC的命令行选项�Q�PROC�~�译器有很多的命令行选项�Q�在命��o行下直接不带参数�q�行PROC�Q�会列出所有的命��o行选项来，�q�有说明�?br />　　
　　(1)储存�q�程:�~�译储存�q�程是要带上用户名及密码
　　proc USERID=scott/tiger sqlcheck=SEMANTICS ireclen=512 iname=test.cpp
　　
　　(2)PARSE=NONE 寚w��SQL代码不进行语法分析，默认寚w��SQL代码也进行语法分�?
　　
　　在RED HAD6.3上的ORACLE8.1.5中用PROC�?会提�C?/USR/INCLUDE/STDIO.H 及其他的.H文�g中有�? 可把PARSE=NONE加上,��好�?
　　
　　8、注意加上：EXEC ORACLE OPTION (RELEASE_CURSOR = YES);
　　
　　RELEASE_CURSOR=YES 使PROC 在执行完后释放与嵌入SQL有关资源�Q�保证在该PROC�E�序执行完后�Q�ORACLE不会锁住数据库资源，如锁表等�?br />　　
　　如果在PROC中用到ORACA�Q�还要在�E�序头加上：
　　EXEC ORACLE OPTION (ORACA=YES);
　　
　　9、PROC中的�c�d��转换
　　
　　一、在C语言�?
　　
　　(1)字符型到整型可用ATOI() ATOL(),SSCANF()
　　
　　(2)整型,��点型到字符�?可用SPRINTF()
　　
　　(3)字符型到��点型用ATOF()不行,最好用SSCANF(),举例如下:
　　
　　EXEC SQL BEGIN DECLARE SECTION;
　　double d_demo;
　　float f_demo;
　　char ac_text[20]="222";
　　EXEC SQL END DECLARE SECTION;
　　
　　(1)sscanf(ac_text, "%f", &d_demo);
　　printf("ac_text=%s,d_demo=%f\n",ac_text,d_demo);
　　
　　(2)sscanf(ac_text, "%lf", &d_demo);
　　printf("ac_text=%s,d_demo=%f\n",ac_text,d_demo);
　　
　　(3)sscanf(ac_text, "%f", &d_demo);
　　printf("ac_text=%s,d_demo=%lf\n",ac_text,d_demo);
　　
　　(4)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=222.00,d_demo=0.000000
　　ac_text=222.00,d_demo=222.000000
　　ac_text=222.00,d_demo=222.000032
　　ac_text=222.00,d_demo=222.000000
　　*******************
　　ac_text=222.00,f_demo=222.000000
　　ac_text=222.00,f_demo=0.000000
　　ac_text=222.00,f_demo=222.000000
　　ac_text=222.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=222.00,atof(ac_text)=1243288.000000
　　ac_text=222.00,atof(ac_text)=1243288.000000
　　ac_text=222.00,atof(ac_text)=1243288.000000
　　ac_text=222.00,atof(ac_text)=1243288.000000
　　
　　从上面的�l�果可见:
　　
　　DOUBLE型应采用sscanf(ac_app_capcity, "%lf", &d_app); 打印�?%lf","%f" 都可�? (2),(4)正确
　　
　　FLOAT型应采用sscanf(ac_app_capcity, "%f", &d_app); 打印�?%lf","%f" 都可�? (5),(7)正确
　　
　　采用ATOF()转换的结果都是错�?所以不要用它�?br />　　
　　二、写表或从表中取数据�?
　　
　　(1)字符型与整型之间可不用�{�?采用默认方式�?br />　　
　　(2)字符型与��点型之间可不用转换,采用默认方式�?br />　　
　　(3)日期型与字符型之间可用TO_CHAR(),TO_DATE()�?br />　　
　　10、PROC中的4�U�动态SQL��?br />　　
　　(1)动态SQL1: 不能是查�?SELECT)语句,�q�且没有宿主变量.
　　
　　用法:��g��串动态SQL语句,�q�用EXECUTE IMMEDIATE执行,�?
　　EXEC SQL EXECUTE IMMEDIATE "CREATE TABLE dyn1 (col1 VARCHAR2(4))";
　　
　　(2)动态SQL2: 不能是查�?SELECT)语句,�q�且输入的宿��d��量数目是知道�?
　　
　　用法:��g��串动态SQL语句,用PREPARE,EXECUTE语句执行.
　　strcpy(c_sql, "DELETE FROM EMP WHERE EMPNO = ");
　　EXEC SQL PREPARE sql_stmt FROM :c_sql;
　　EXEC SQL EXECUTE sql_stmt USING :emp_number;
　　
　　(3)动态SQL3: 用于创徏动态查�? �q�且要查询的字段及输入的宿主变量数目是知道的
　　
　　用法: ��g��串动态SQL语句,用PREPARE分析该语�?�q�要定义一个CURSOR�q�行取�?br />　　
　　�?如要查询的数据按一�q?2月放�?2张表中。表名�ؓuser_fee_1mon, user_fee_2mon,....可采用动态SQL3来进行查�?br />　　strcpy(c_sql,"select c_user_id,c_user_name,to_char(t_date,'yyyy/mm/dd hh:mi:ss'),n_fee\n");
　　strcat(c_sql,"from USER_FEE_");
　　strcat(c_sql,ac_mon);
　　strcat(c_sql," \n where c_user_id = :v1");
　　
　　EXEC SQL PREPARE s FROM :c_sql;
　　
　　EXEC SQL DECLARE cur_user_fee CURSOR FOR s;
　　
　　EXEC SQL OPEN cur_user_fee USING :ac_user_id;
　　
　　while(1)
　　{
　　
　　EXEC SQL FETCH cur_user_fee into :c_user_id,:c_user_name,:c_date,:n_fee);
　　
　　if (sqlca.sqlcode < 0)
　　{
　　/*FETCH CURSOR��p�|*/
　　printf("fetch cursor cur_user_fee fail,sqlcode=%ld,sqlserr=%s",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
　　}
　　if( sqlca.sqlcode == SQLNOTFOUND)
　　{
　　break;
　　}
　　}
　　EXEC SQL CLOSE cur_user_fee;
　　
　　(4)动态SQL4:要处理的字段及输入的宿主变量数目和主变量的类型事先是不知道的,如：
　　INSERT INTO EMP ( VALUES (
　　
　　是最复杂的动态SQL,很少�?在此不做介绍�?br />　　
　　10、SQLCA�Q�SQL是ORACLE的一个结构体�Q�它的域用于最�q�的一条SQL语句执行后的一些信息，如错误号�Q�错误描�q�ͼ�警告�Q�状态等。常用的
　　
　　域介�l�如�?
　　SQLCA.sqlcode:错误�?=0正确,=1403没取到数�?br />　　SQLCA.sqlserrm.sqlerrmc:错误描述
　　SQLCA.sqlerrd[3]:最�q�的一条SQL语句所处理的行�?如果该语句处理失�?则它的值是不定�?如果错误在一个CURSOR操作中发�?�?br />　　
　　它的值指已成功处理的行数.在DELETE,UPDATE�?它不包含因外键约束而删�?更新的那些行,
　　DELETE FROM EMP WHERE DEPT='SALE';
　　
　　在表EMP中删�?0�?但如果表EMP与表ADDRESS有外键约�?��D��表ADDRESS也被删除20�?则SQLCA.sqlerrd[3]=20,而不�?0�?

原文�|�址�Q?a >http://oracle.chinaitlab.com/exploiture/38243.html

jinn 2007-01-24 13:36 发表评论

久久影院亚洲一区,亚洲视频在线不卡,亚洲网址在线观看你懂的