分类： Oracle
2010-11-11 10:50:31
ORACLE数据库PROC编程的一些经验
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;
}
在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');
假如宿主变量在所有的函数之外声明，则他们是全局变量。在使用之前要注重把变量的值初始化，宿主变量也可以在某个函数的内部定义。
这时他们是局部变量。一般都习惯把宿主变量声明为全局变量。
数据库的连接有以下两种方法：
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; 断开与数据库的连接, 并释放相关的数据库资源。
假如某一字段取出的值是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
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;
所有的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 的错误描述： oerr ora 1405
要把存储过程放在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);
}
PROC编译器有很多的命令行选项，在命令行下直接不带参数运行PROC，会列出所有的命令行选项来，并有说明。
(1) 储存过程:编译储存过程是要带上用户名及密码
proc USERID=scott/tiger sqlcheck=SEMANTICS ireclen=512 iname=test.cpp
(2) PARSE=NONE 对非SQL代码不进行语法分析，默认对非SQL
