oracle_DBMS_SQL應用

 今天沒什麼事，就研究了一下DBMS_SQL，下面是我網上剛剛蒐集的資料，寫下來吧。

 

DBMS_SQL封裝過程中的主要函數：
1、OPEN_CURSOR：返回新遊標的ID值
2、PARSE：解析要執行的語句
3、BIND_VARIABLE：將給定的數量與特定的變量相連接
4、DEFINE_COLOUMN：定義字段變量，其值對應於指定遊標中某個位置元素的值 （僅用於SELECT語句）
5、EXECUTE：執行指定的遊標
6、EXECUTE_AND_FETCH：執行指定的遊標並取記錄
7、FETCH_ROWS：從指定的遊標中取出記錄
8、COLUMN_VALUE：返回遊標中指定位置的元素
9、IS_OPEN：當指定的遊標狀態爲OPEN時返回真值
10、CLOSE_CURSOR：關閉指定的遊標並釋放內存
11、LAST_ERROR_POSITION：返回出錯SQL語句的字節偏移量
12、LAST_ROW_ID：返回最後一條記錄的ROWID
13、LAST_SQL_FUNCTION_CODE：返回語句的SQL FUNCTION CODE

例1：

--這是一個創建一個表的過程的例子。該過程有兩個參數：表名和字段及其類型的列表。 CREATE OR REPLACE PROCEDURE ddlproc (tablename varchar2, cols varchar2) AS 　　 cursor1 INTEGER; BEGIN 　　 cursor1 := dbms_sql.open_cursor; 　　 dbms_sql.parse(cursor1, 'CREATE TABLE ' tablename ' ( ' cols ' )', dbms_sql.v7); 　　 dbms_sql.close_cursor(cursor1); end;

 

例2：

--用DBMS_SQL包和遊標計算用戶下所有錶行數 DECLARE t_c1_tname user_tables.table_name%TYPE; t_command varchar2(200); t_cid integer; t_total_records number(10); stat integer; row_count integer; t_limit integer := 0; --限制只取出記錄大於0的表的情況 cursor c1 is select table_name from user_tables order by table_name; --查出所有表的名字 BEGIN t_limit := 0; open c1; loop fetch c1 into t_c1_tname; --取出一個表名 exit when c1%NOTFOUND; --如果遊標記錄取完，退出循環 t_command := 'SELECT COUNT(0) FROM '||t_c1_tname; --定義SQL命令 t_cid := DBMS_SQL.OPEN_CURSOR; --創建一個遊標 DBMS_SQL.PARSE(t_cid,t_command,dbms_sql.native); --向服務器發出一個語句並檢查這個語句的語法和語義錯誤 DBMS_SQL.DEFINE_COLUMN(t_cid,1,t_total_records); --定義將從FetchRows()函數接收數據的變量的數據類型與大小 stat := DBMS_SQL.EXECUTE(t_cid); --執行此語句，因爲執行的是查詢，所以必須跟着Fetch_Rows函數併爲單個行檢索數據 row_count := DBMS_SQL.FETCH_ROWS(t_cid); --取回一行數據放入局部緩衝區 DBMS_SQL.COLUMN_VALUE(t_cid,1,t_total_records); --返回調用FetchRows()取回的一列的值，這一列的值存儲在t_total_records中 if t_total_records > t_limit then DBMS_OUTPUT.PUT_LINE(rpad(t_c1_tname,55,' ')|| to_char(t_total_records,'99999999')||' record(s)'); end if; DBMS_SQL.CLOSE_CURSOR(t_cid); end loop; close c1; END;