PROC是ORACLE數據庫提供的編程接口之一,其應用十分的廣泛,本文通過一個具體的例子,介紹PROC編程的一些經驗及應注意的地方。 |
/*RELEASE_CURSOR=YES 使PROC 在執行完後釋放與嵌入SQL有關資源*/ |
EXEC ORACLE OPTION (RELEASE_CURSOR = YES); |
EXEC SQL BEGIN DECLARE SECTION; |
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; |
EXEC SQL WHENEVER SQLERROR DO sql_error("ORACLE ERROR: "); |
strcpy(vc_user.arr,"scott/tiger@DEMO"); |
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 FETCH cur_emp INTO :al_empno, :ac_ename:ename_ind, :ac_hiredate:hiredate_ind, :af_sal:sal_ind; |
if( sqlca.sqlcode == 1403) |
printf("empno=%ld,ename=%s,hiredate=%s,sal=%lf/n",al_empno,ac_ename,ac_hiredate,af_sal); |
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中 |
如:ENAME在表中的定義爲ename varchar2(10),在PROC中可定義爲: |
EXEC SQL BEGIN DECLARE SECTION; |
EXEC SQL END DECLARE SECTION; |
如果插入的字符串長度大於10,如:EXEC SQL INSERT INTO EMP(ENAME) VALUES('12345678901');會出現以下錯誤: |
error:ORA-01480: STR 賦值變量缺少空後綴。 |
EXEC SQL BEGIN DECLARE SECTION; |
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; |
EXEC SQL END DECLARE SECTION; |
如果ENAME在表中的值爲'abc',則取出的值爲'abc '; |
可用語句EXEC SQL VAR重定義CHAR型變量。這樣宿主變量會自動去掉右空格。如下: |
EXEC SQL BEGIN DECLARE SECTION; |
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'); |
如果宿主變量在所有的函數之外聲明,則他們是全局變量。在使用之前要注意把變量的值初始化,宿主變量也可以在某個函數的內部定義。 這時他們是局部變量。一般都習慣把宿主變量聲明爲全局變量。 |
strcpy(vc_user.arr,"scott/tiger"); |
exec sql connect :vc_user; |
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)如果字段較多,可取字段到一個結構體中及與該結構體對應的指示器結構體中.如上面的例子中可定義結構體: |
strcut str_emp_ind str_emp_ind; |
在取之前可用memset(&str_emp,0,sizeof(str_emp)).清空該結構體,這樣如果是字符型的NULL,會爲"",整型的NULL會爲0, |
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()中指定的值代替. |
SELECT EMPNO, NVL(ENAME,''),nvl(to_char(HIREDATE,'yyyy/mm/dd hh24:mi:ss'),''),NVL(SAL,0) FROM EMP; |
所有的SQL語句都有可能出錯.所以都要加以判斷,但每個SQL語句後都加錯誤判斷,太麻煩,可用一個函數如sql_error()來進行錯誤處理, |
(2)在開頭加上EXEC SQL WHENEVER SQLERROR DO sql_error();這樣當發生sqlca.sqlcode <0 的錯誤時,程序自動轉到sql_error()中執行. 注意:對sqlca.sqlcode >0的錯誤如 sqlca.sqlcode =1403 是不會轉到sql_error()中執行的. |
另外:在UNIX下,可以用OERR 來查找錯誤的描述。如: ora ORA -1405 查找錯誤號爲-1405的描述. |
要把存儲過程放在EXEC SQL EXECUTE 和 END-EXEC;之間,如下所示: |
其中:al_empno,ac_ename 爲輸入參數,l_return,l_errno,c_errtext 爲輸出參數。 |
up_db_emp(:al_empno,:ac_ename,:l_return,:l_errno,:c_errtext); |
printf("調用UP_PB_EMP存儲過程出錯,errno=%ld,errtext=%s/n",l_errno,c_errtext); |
7、PROC的命令行選項:PROC編譯器有很多的命令行選項,在命令行下直接不帶參數運行PROC,會列出所有的命令行選項來,並有說明。 |
proc USERID=scott/tiger sqlcheck=SEMANTICS ireclen=512 iname=test.cpp |
(2)PARSE=NONE 對非SQL代碼不進行語法分析,默認對非SQL代碼也進行語法分析. |
在RED HAD6.3上的ORACLE8.1.5中用PROC時,會提示:/USR/INCLUDE/STDIO.H 及其他的.H文件中有錯. 可把PARSE=NONE加上,就好了. |
8、注意加上:EXEC ORACLE OPTION (RELEASE_CURSOR = YES); |
RELEASE_CURSOR=YES 使PROC 在執行完後釋放與嵌入SQL有關資源,保證在該PROC程序執行完後,ORACLE不會鎖住數據庫資源,如鎖表等。 |
如果在PROC中用到ORACA,還要在程序頭加上: |
EXEC ORACLE OPTION (ORACA=YES); |
(1)字符型到整型可用ATOI() ATOL(),SSCANF() |
(2)整型,浮點型到字符型,可用SPRINTF() |
(3)字符型到浮點型用ATOF()不行,最好用SSCANF(),舉例如下: |
EXEC SQL BEGIN DECLARE SECTION; |
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); |
(8)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 |
printf("ac_text=%s,atof(ac_text)=%f/n",ac_text,d_demo); |
printf("ac_text=%s,atof(ac_text)=%lf/n",ac_text,d_demo); |
printf("ac_text=%s,atof(ac_text)=%f/n",ac_text,f_demo); |
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 |
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()轉換的結果都是錯的,所以不要用它。 |
(2)字符型與浮點型之間可不用轉換,採用默認方式。 |
(3)日期型與字符型之間可用TO_CHAR(),TO_DATE()。 |
(1)動態SQL1: 不能是查詢(SELECT)語句,並且沒有宿主變量. |
用法:拼一串動態SQL語句,並用EXECUTE IMMEDIATE執行,如: |
EXEC SQL EXECUTE IMMEDIATE "CREATE TABLE dyn1 (col1 VARCHAR2(4))"; |
(2)動態SQL2: 不能是查詢(SELECT)語句,並且輸入的宿主變量數目是知道的, |
用法:拼一串動態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: 用於創建動態查詢, 並且要查詢的字段及輸入的宿主變量數目是知道的 |
用法: 拼一串動態SQL語句,用PREPARE分析該語句,並要定義一個CURSOR進行取值 |
如:如要查詢的數據按一年12月放到12張表中。表名爲user_fee_1mon, user_fee_2mon,....可採用動態SQL3來進行查詢 |
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," /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; |
EXEC SQL FETCH cur_user_fee into :c_user_id,:c_user_name,:c_date,:n_fee); |
printf("fetch cursor cur_user_fee fail,sqlcode=%ld,sqlserr=%s",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc); |
if( sqlca.sqlcode == SQLNOTFOUND) |
EXEC SQL CLOSE cur_user_fee; |
(4)動態SQL4:要處理的字段及輸入的宿主變量數目和主變量的類型事先是不知道的,如: |
INSERT INTO EMP (<unknown>) VALUES (<unknown>) |
11、SQLCA:SQL是ORACLE的一個結構體,它的域用於最近的一條SQL語句執行後的一些信息,如錯誤號,錯誤描述,警告,狀態等。常用的 |
SQLCA.sqlcode:錯誤號,=0正確,=1403沒取到數據 |
SQLCA.sqlserrm.sqlerrmc:錯誤描述 |
SQLCA.sqlerrd[3]:最近的一條SQL語句所處理的行數,如果該語句處理失敗,則它的值是不定的,如果錯誤在一個CURSOR操作中發生,則 |
它的值指已成功處理的行數.在DELETE,UPDATE中,它不包含因外鍵約束而刪除,更新的那些行, |
DELETE FROM EMP WHERE DEPT='SALE'; |
在表EMP中刪除20行,但如果表EMP與表ADDRESS有外鍵約束,導致表ADDRESS也被刪除20行,則SQLCA.sqlerrd[3]=20,而不是40。 |
原文地址:http://www.ccw.com.cn/htm/app/aprog/02_1_18_5.asp