oracleclob存儲過程

① oracle 存儲過程里用 execute immedate 動態sql，更新一個表的clob欄位報字元長度

sql裡面varchar2最多4000個位元組，sql語句最多32K長度，估計是你的a_clob太長，放到sql裡面超過這個限制了，具體是哪個原因還得你自己測試。
可以使用綁定變數的方式來做。
V_SQL := 'UPDATE B '|| ' SET B_CLOB = ''' || AA.A_CLOB ||''' WHERE B_KEY = '''|| AA.A_KEY || '''';
EXECUTE IMMEDIATE V_SQL;

改成：
V_SQL := 'UPDATE B SET B_CLOB =:1 WHERE B_KEY =:2 ';
EXECUTE IMMEDIATE V_SQL using AA.A_CLOB,AA.A_KEY;

② oracle存儲過程clob類型參數為null問題

-- Created on 2014-11-05 by EMO

DECLARE

-- Local variables here

PROCEDURE clob_test(p_clob CLOB) IS

BEGIN

dbms_output.put_line('CLOB' || p_clob);

END;

BEGIN

-- Test statements here

clob_test(:l_clob);

END;

我把類型從CLOB改成了 String ， 測試完全沒問題，用CLOB是不行的

③ 一個關於oracle存儲過程的clob問題

v_parse:= xmlparser.newParser();
xmlparser.parserClob(v_parse,clob數據);
xmldom.domdocument
xmldom.domnodelist

④ oracle 怎樣通過存儲過程insert clob欄位

您好，很高興為您解答。

createtabledemo
(idintprimarykey,
theBlobblob
)
/
createorreplacedirectorymy_filesas'/export/home/tkyte/public_html';
declare
l_blobblob;
l_bfilebfile;
begin
insertintodemovalues(1,empty_blob())
returningtheBlobintol_blob;
l_bfile:=bfilename('MY_FILES','aria.gif');
dbms_lob.fileopen(l_bfile);
dbms_lob.loadfromfile(l_blob,l_bfile,
dbms_lob.getlength(l_bfile));
dbms_lob.fileclose(l_bfile);
end;
/

如若滿意，請點擊右側【採納答案】，如若還有問題，請點擊【追問】

希望我的回答對您有所幫助，望採納！

~O(∩_∩)O~

⑤ Oracle資料庫中把SQL存在CLOB欄位中 ,現需對其定時執行，通過存儲過程對其執行報錯

CLOB這個類型就是使用CHAR來保存數據的，把nvarchar類型數據插入到oracle對應的CLOB類型中只要加個to_char（）轉換下就可以了

⑥ oracle如何操作clob數據類型

在做資料庫開發的時候，有時候會遇到需要讀取Oracle資料庫中的clob類型的數據的情況。本著代碼復用的目的，寫了下面的存儲過程：讀取資料庫中clob欄位的數據。

CREATE OR REPLACE PROCEDURE prc_read_clob(
table_name IN VARCHAR2,
clob_column_name IN VARCHAR2,
primary_Key_Column_names IN VARCHAR2,
primary_key_values IN VARCHAR2,
offset_i IN NUMBER,
read_length_i IN NUMBER,
RES OUT VARCHAR2,
total_length OUT NUMBER
) AS
/**
Autor:Hanks_gao.
Create Date:2008/12/10
Description:This procere is to read clob value by conditions
--------------------------------------------------------------
-----------------Parameters descritption----------------------
table_name : The table that contains clob/blob columns(表名)
clob_column_name : Clob/blob column name of table_name(類型為clob的欄位名)
primary_key_column_names : The columns seperated by '}' that can fix only one row data (that is primary key) (主鍵名，以'}'分隔的字元串)
primary_key_values : The primary keyes values that seperated by '}'(主鍵鍵值,以'}'分隔的字元串)
offset_i : The offset of reading clob data(要讀取的位移量)
read_length_i : The length of reading clob data per times(要讀取的長度)
res : Return value that can be referenced by application(讀取的結果)
total_length : The total length of readed clob data(資料庫查詢到的clob數據的總長度)
-----------------End Parameters descritption------------------
*/

tmpPrimaryKeys VARCHAR2(2000); --To save primary_Key_Column_names temporarily(暫存主鍵,主鍵是以'}'分隔的字元串)
tmpPrimaryKeyValues VARCHAR2(2000); --To save primary_key_values temporarily(暫存主鍵鍵值,以'}'分隔的字元串)
i NUMBER; --循環控制變數
tmpReadLength NUMBER; --暫存要讀取的長度
sqlStr VARCHAR2(6000); --Query string(查詢字元串)
sqlCon VARCHAR2(5000); --Query condition(查詢條件)

TYPE tmparray IS TABLE OF VARCHAR2(5000) INDEX BY BINARY_INTEGER;
arrayPrimaryKeys tmparray; --To save the analyse result of primary_Key_Column_names (暫存分析後得到的主鍵名)
arrayPrimaryKeyValues tmparray; --To save the analyse result of primary_key_values(暫存分析後得到的主鍵鍵值)
BEGIN
total_length := 0;
RES := '';
DECLARE
clobvar CLOB := EMPTY_CLOB;
BEGIN
tmpPrimaryKeys:=primary_Key_Column_names;
tmpPrimaryKeyValues:=primary_key_values;

i:=0;
WHILE INSTR(tmpPrimaryKeys,'}')>0 LOOP --Analyse the column names of primary key(將主鍵分開,相當於arrayPrimaryKeys =tmpPrimaryKeys.split("}") )
arrayPrimaryKeys(i):=subSTR(tmpPrimaryKeys,1,(INSTR(tmpPrimaryKeys,'}')-1));
tmpPrimaryKeys:=subSTR(tmpPrimaryKeys,(INSTR(tmpPrimaryKeys,'}')+1));
i:=i+1;
END LOOP;

i:=0;
WHILE INSTR(tmpPrimaryKeyValues,'}')>0 LOOP --Analyse the values of primary key
arrayPrimaryKeyValues(i):=subSTR(tmpPrimaryKeyValues,1,(INSTR(tmpPrimaryKeyValues,'}')-1));
tmpPrimaryKeyValues:=subSTR(tmpPrimaryKeyValues,(INSTR(tmpPrimaryKeyValues,'}')+1));
i:=i+1;
END LOOP;

IF arrayPrimaryKeys.COUNT()<>arrayPrimaryKeyValues.COUNT() THEN --判斷鍵與鍵值是否能匹配起來
res:='KEY-VALUE NOT MATCH';
RETURN;
END IF;

i := 0;
sqlCon := '';
WHILE i < arrayPrimaryKeys.COUNT() LOOP
sqlCon := sqlCon || ' AND ' || arrayPrimaryKeys(i) || '='''
|| replace(arrayPrimaryKeyValues(i),'''','''''') || '''';
i := i + 1;
END LOOP;

sqlStr := 'SELECT ' || clob_column_name || ' FROM ' || table_name
|| ' WHERE 1=1 ' || sqlCon || ' AND ROWNUM = 1' ; --組查詢字元串

dbms_lob.createtemporary(clobvar, TRUE);
dbms_lob.OPEN(clobvar, dbms_lob.lob_readwrite);

EXECUTE IMMEDIATE TRIM(sqlStr) INTO clobvar; --執行查詢

IF offset_i <= 1 THEN
total_length:=dbms_lob.getlength(clobvar);
END IF;

IF read_length_i <=0 THEN
tmpReadLength := 4000;
ELSE
tmpReadLength := read_length_i;
END IF;

dbms_lob.READ(clobvar,tmpReadLength,offset_i,res); --讀取數據

IF dbms_lob.ISOPEN(clobvar)=1 THEN
dbms_lob.CLOSE(clobvar);
END IF;

END;
EXCEPTION
WHEN OTHERS THEN
res:='';
total_length:=0;
END;

⑦ oracle 存儲過程 求助

詳見文本中「--註：」後的注釋
create or replace procere test_cjsql_z( /*in_sqlnr in clob,*/out_code in out varchar2,
out_mess in out varchar2) Authid Current_User IS
--註：創建存儲過程test_cjsql_z，輸入輸出型參數out_code、out_mess
PRAGMA AUTONOMOUS_TRANSACTION; --註：自助事務處理
in_sqlnr clob;--註：聲明clob類型變數
V_LENGTH NUMBER;--註：number是數值類型變數
V_NUMBER1 NUMBER;
V_NUMBER2 NUMBER;
V_BSF NUMBER; --標識附，標識SQL語句中最後CHR(10)的位置。
V_STEP NUMBER;
buffer VARCHAR2(4000);--註：varchar2(xx)是字元串類型變數，xx是長度
V_TEMPSQL VARCHAR2(4000);
V_LINESQL VARCHAR2(4000);
V_SQLERR VARCHAR2(255);
jb_err exception;--註：聲明例外對象
amount INT;
--v_sql VARCHAR2(4000);
BEGIN
select sqlnr into in_sqlnr from t_sql where sql_id = '100475'; --取clob 欄位
V_LENGTH := to_number(ceil(dbms_lob.getlength(in_sqlnr) / 2000)); --取lob長度
for i in 1 .. V_LENGTH loop
--循環次數
amount := 2000;--註：以2000為單位
dbms_lob.read(in_sqlnr, amount, (i - 1) * 2000 + 1, buffer); --提取lob
buffer := replace(buffer, chr(13), ''); --替換 回車
buffer := V_TEMPSQL || buffer;--註：拼接字元串
V_BSF := INSTR(buffer, CHR(10), -1, 1); --最後 換行 的位置
V_TEMPSQL := SUBSTR(buffer, V_BSF, length(buffer) - V_BSF + 1);--註：從buffer中截取字元串
buffer := SUBSTR(buffer, 1, V_BSF);
V_STEP := 1;
loop
V_NUMBER1 := INSTR(buffer, CHR(10), 1, V_STEP);
V_NUMBER2 := INSTR(buffer, CHR(10), 1, V_STEP + 1);
V_LINESQL := RTRIM(REPLACE(SUBSTR(buffer,
V_NUMBER1,
V_NUMBER2 - V_NUMBER1 + 1),
CHR(10),
''),
';');
EXIT WHEN V_LINESQL IS NULL; --V_LINESQL 為 null 跳出循環
BEGIN
-- v_sql := 'insert into hx_sjmx.test_zh values (V_LINESQL)';
-- EXECUTE IMMEDIATE v_sql;
EXECUTE IMMEDIATE V_LINESQL; --執行 V_LINESQL
EXCEPTION --註：FOR循環中的例外處理部分
WHEN OTHERS THEN
V_SQLERR := SUBSTR(SQLERRM, 1, 255); --例外
out_code := '2';--註：輸出返回代碼
out_mess := substrb(V_SQLERR || '-' || V_LINESQL, 1, 2000);--註：輸出返迴文本
raise jb_err;--註：拋出例外
END;
V_STEP := V_STEP + 1;
end loop;
end loop;
out_code := '1';--註：輸出返回代碼
out_mess := '執行成功!';--註：輸出返迴文本
commit;
exception--註：例外處理
when jb_err then--註：當出現自定義例外時
rollback;--註：回滾
when others then--註：其它情況
V_SQLERR := SUBSTR(SQLERRM, 1, 255);
out_code := '3';--註：輸出返回代碼
out_mess := V_SQLERR;--註：輸出返迴文本
rollback;--註：回滾
END test_cjsql_z;