oracle proc编程 fetch,ORACLE数据库PROC编程的一些经验

ORACLE数据库PROC编程的一些经验

第 1 章概述

PROC是Oracle数据库提供的编程接口之一，其应用十分的广泛，本文通过一个具体的例子，介绍PROC编程的一些经验及应注重的地方。

例子程序：

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,%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/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=%lfn",al_empno,\

ac_ename,ac_hiredate,af_sal);

}

EXEC SQL CLOSE cur_emp;

EXEC SQL ROLLBACK WORK RELEASE;

}

第 2 章详述

2.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 ename[11];

EXEC SQL END DECLARE SECTION;

常见错误说明:

假如插入的字符串长度大于10，如：EXEC SQL INSERT INTO EMP(ENAME) VALUES('12345678901');

会出现以下错误:error:ORA-01480: STR赋值变量缺少空后缀。

假如定义为:

EXEC SQL BEGIN DECLARE SECTION;

char ename[15];

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 ename[10];

EXEC SQL END DECLARE SECTION;

假如ENAME在表中的值为'abc',则取出的值为'abc ';可用语句EXEC SQL VAR重定义CHAR型变量。

这样宿主变量会自动去掉右空格。

如下:

EXEC SQL BEGIN DECLARE SECTION;

char ename[11];

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.2宿主变量的作用范围

假如宿主变量在所有的函数之外声明，则他们是全局变量。在使用之前要注重把变量的值初始化，宿主变量也可以在某个函数的内部定义。

这时他们是局部变量。一般都习惯把宿主变量声明为全局变量。

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;断开与数据库的连接,并释放相关的数据库资源。

2.4PROC中的NULL值的处理

假如某一字段取出的值是NULL,会报:sqlcode=-1405, sqlerr=ORA-01405:读取的列值为NULL并且相应的宿主变量的值不会被改变,为执行该SQL语句之前的值.常用的处理NULL值的方法有：

(1)采用指示器变量,此时不会有-1405错误,当必须是所以为NULL的字段都有相应的指示器变量,假如某一字段没有指示器变量,但取出的值为NULL值,则仍然会有-1405错误.当取出的值是NULL时，相应的指示器变量变量为-1，可根据指示器变量的值做响应的处理。

(2)假如字段较多,可取字段到一个结构体中及与该结构体对应的指示器结构体中.如上面的例子中可定义结构体：

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)).清空该结构体,这样假如是字符型的NULL会为"",整型的NULL会为0,浮点型的会为0.00,此时不会有-1405错误。

(3)也可采用NVL()函数,举例如下：

EXEC SQL DECLARE authors CURSOR FOR

SELECTEMPNO,

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;

2.5PROC中的错误的处理

所有的SQL语句都有可能出错.所以都要加以判定,但每个SQL语句后都加错误判定,太麻烦,可用一个函数如sql_error()来进行错误处理,方法:

1)定义ql_error()函数。

2)在开头加上EXEC SQL WHENEVER SQLERROR DO sql_error();

这样当发生sqlca.sqlcode 0的错误如sqlca.sqlcode =1403是不会转到sql_error()中执行的.

另外:在UNIX下，可以用OERR来查找错误的描述。如：查看ORA-01405的错误描述：oerrora1405

2.6PROC中调用存储过程的方法

要把存储过程放在EXEC SQL EXECUTE和END-EXEC;之间，如下所示：

其中：al_empno,ac_ename为输入参数, l_return,l_errno,c_errtext为输出参数。

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存储过程出错,errno=%ld,errtext=%sn",l_errno,c_errtext);

}

2.7PROC的命令行选项：

PROC编译器有很多的命令行选项，在命令行下直接不带参数运行PROC，会列出所有的命令行选项来，并有说明。

(1)储存过程:编译储存过程是要带上用户名及密码

proc USERID=scott/tiger sqlcheck=SEMANTICS ireclen=512 iname=test.cpp

(2)PARSE=NONE对非SQL代码不进行语法分析，默认对非SQL