之前筆者一直用C#連線SQL Server資料庫。近期由於工作需要，需要用C#連線Oracle資料庫，並且要通過儲存過程，來操作資料庫中的資料，實現增、刪、改、查（有分頁功能）功能。並且，為了今後對資料庫擴充套件方便，對現在的程式碼改動最小的情況下，實現資料庫的平穩切換，必須採用OleDB的方式連線Oracle資料庫、操作儲存過程。

首先去網上搜索資料，確實找到了很多C#連線Oracle資料庫，和用儲存過程操作資料庫的資料。但是仔細研究發現，清一色的全部是使用OracleClient（Oracle專用驅動）的方式對Oracle資料庫及儲存過程進行操作。沒辦法，只能自己動手、豐衣足食。經過3天左右的辛苦努力，終於實現了用

用OleDB操作Oracle儲存過程，有幾個難題；

1、返回記錄集，也就是Oracle的遊標；

2、對於某些特殊的應用，有可能需要返回多個記錄集；

3、將儲存過程中的資料，通過輸出引數的形式返回給程式（因為要做分頁，需要將記錄數輸出來）；

4、對Text大文字欄位（對應Oracle的資料型別是CLOB）的增、改、查操作；

5、對特殊字元的查詢，如查詢文字中是否包含“%”、“/”、“’”、“_”等符號；

接下來，主要針對以上問題，進行介紹；

一、連線Oracle資料庫

連線Oracle資料庫，主要有

經過在網上查資料，說是Oracle的資料庫驅動，中文可能會出現亂碼；微軟的驅動雖然中文沒有亂碼，但是對於CLOB型別的欄位，無法操作；經過對比，決定使用Oracle的資料庫驅動。因為應用中，肯定要有CLOB型別的欄位操作；但是經過測試，未發現中文出現亂碼的情況；

ØOracle資料庫連線方式：

Provider=OraOLEDB.Oracle.1;User ID=username;password=dbpassword;Data Source=databasename;Persist Security Info=True;Extended Properties='PLSQLRSet=1';

Extended Properties='PLSQLRSet=1'

注意：上面這個屬性一定要帶上，否則無法操作有返回遊標引數的儲存過程；

Ø微軟的資料庫連線方式：

Provider=MSDAORA.1;Data Source=allrun;User ID=allrunadmin;Password=allrun;Persist Security Info=True;

建議使用Oracle資料庫的連線方式。

二、儲存過程，返回多個記錄集

Oracle儲存過程指令碼：

--包 create or replace PACKAGE "DESKTOP_PAGE_PACKAGE" as TYPE T_CURSOR IS REF CURSOR; procedure GetDesktopPage (RecordTotal OUT NUMBER, curRecordTotal OUT T_CURSOR, curDesktopPage OUT T_CURSOR); end; --包體 create or replace PACKAGE BODY "DESKTOP_PAGE_PACKAGE" as procedure GetDesktopPage (RecordTotal OUT NUMBER, curRecordTotal OUT T_CURSOR, curDesktopPage OUT T_CURSOR) is begin --記錄集1 OPEN curRecordTotal FOR SELECT 1679 FROM DUAL; --記錄集2 OPEN curDesktopPage FOR SELECT * FROM DESKTOP_PAGE; --輸出引數 RecordTotal := 1688; end; end;

C#程式操作儲存過程：

OleDbCommand store = new OleDbCommand (); store.Parameters.Clear (); store.Connection = con; store.CommandType = CommandType.StoredProcedure; store.CommandText = "DESKTOP_PAGE_PACKAGE.GetDesktopPage"; store.Parameters.Add ("RecordTotal", OleDbType.Numeric).Value = null; store.Parameters["RecordTotal"].Size = -1; store.Parameters["RecordTotal"].Scale = 0; store.Parameters["RecordTotal"].Precision = 0; store.Parameters["RecordTotal"].Direction = ParameterDirection.Output; try { OleDbDataAdapter da = new OleDbDataAdapter (store); DataSet ds = new DataSet (); da.Fill (ds); Response.Write ("<span style="color:red;" mce_style="color:red;">輸出引數返回記錄數：</span>" + store.Parameters["RecordTotal"].Value + "<br/>"); for (int i = 0; i < ds.Tables[0].Rows.Count; i++) { Response.Write ("<span style="color:red;" mce_style="color:red;">記錄集1返回記錄數：</span>" + ds.Tables[0].Rows[i][0] + "<br/>"); } Response.Write ("<br/>記錄集2返回資料：<br/>"); for (int i = 0; i < ds.Tables[1].Rows.Count; i++) { Response.Write (ds.Tables[1].Rows[i][0] + ", " + ds.Tables[1].Rows[i][1] + ", " + ds.Tables[1].Rows[i][2] + "<br/>"); } } finally { con.Close (); }

因為主要是介紹操作資料庫儲存過程的方法，如何連線資料庫請自己寫；

一、對CLOB欄位的增、改、查；

假設表名為：DESKTOP_PAGE，包含2個欄位：USERCODE（普通字串）、CONTENT（CLOB型別）

Oracle儲存過程指令碼為：

--包 create or replace PACKAGE DESKTOP_TEXTLIST_PACKAGE AS TYPE T_CURSOR IS REF CURSOR; --CrudAction：0：增；1：讀；2：改；3：刪； --IOFields：查、改的欄位列表字串，使用分號分隔 --OrderBys：排序欄位 --PageNo：頁碼 --PageSize：每頁記錄數 --RecordTotal：總記錄數 --RecordSet：返回記錄集 procedure DesktopTextListStorer (CrudAction IN INTEGER, fldUserCode IN NVARCHAR2, fldContent IN NCLOB, IOFields IN NVARCHAR2, OrderBys IN NVARCHAR2, PageNo IN INTEGER, PageSize IN INTEGER, RecordTotal OUT NUMBER, RecordSet IN OUT T_CURSOR); END DESKTOP_TEXTLIST_PACKAGE; --包體： create or replace PACKAGE BODY DESKTOP_TEXTLIST_PACKAGE AS strFields VARCHAR2 (4000); strOrderBys VARCHAR2 (4000); strJoin VARCHAR2 (10); strCond VARCHAR2 (4000); strLike VARCHAR2 (500); strWhere VARCHAR2 (10); strAnd VARCHAR2 (10); strSQLCalc VARCHAR2 (4000); strSQLView VARCHAR2 (4000); strEscape VARCHAR2 (500); --CrudAction：0：增；1：讀；2：改；3：刪； procedure DesktopTextListStorer (CrudAction IN INTEGER, fldUserCode IN NVARCHAR2, fldContent IN NCLOB, IOFields IN NVARCHAR2, OrderBys IN NVARCHAR2, PageNo IN INTEGER, PageSize IN INTEGER, RecordTotal OUT NUMBER, RecordSet IN OUT T_CURSOR) AS BEGIN RecordTotal := 0; IF CrudAction < 0 OR CrudAction > 3 OR CrudAction IS NULL THEN RETURN; END IF; IF CrudAction = 0 THEN INSERT INTO DESKTOP_TEXTLIST ("USERCODE", "CONTENT") VALUES (fldUserCode, fldContent); RETURN; END IF; IF CrudAction = 2 then IF IOFields IS NULL THEN UPDATE DESKTOP_TEXTLIST SET "CONTENT" = FLDCONTENT, "FUNCODE" = FLDFUNCODE WHERE "USERCODE" = fldUserCode; ELSE strCond := ',' + IOFields + ','; strCond := REPLACE (strCond, ',USERCODE,', ',USERCODE=' || fldUserCode || ','); strSQLView := 'UPDATE DESKTOP_PAGE' || ' SET ' || strCond || ' WHERE USERCODE=''' || fldUserCode || '''; EXECUTE IMMEDIATE strSQLView; IF INSTR (IOFIELDS, ',CONTENT,') > 0 THEN UPDATE DESKTOP_TEXTLIST SET "CONTENT" = fldContent WHERE "USERCODE" = FLDUSERCODE; END IF; END IF; RETURN; END IF; strCond := NULL; strJoin := NULL; strEscape := 'ESCAPE CHR (92 USING NCHAR_CS)'; IF fldUserCode IS NOT NULL THEN strCond := strCond || strJoin || ' USERCODE = ''' || REPLACE (fldUserCode, '''', '''''') || ''''; strJoin := ' AND'; END IF; IF FLDCONTENT IS NOT NULL THEN strLike := REPLACE (fldContent, '''', ''''''); strCond := strCond || strJoin || ' DBMS_LOB.INSTR (CONTENT, ''' || strLike || ''') > 0'; strJoin := ' AND'; END IF; IF strCond IS NULL THEN strWhere := ''; strAnd := ''; ELSE strWhere := ' WHERE'; strAnd := ' AND'; END IF; IF CrudAction = 1 THEN IF IOFields IS NULL THEN strFields := 'DESKTOP_TEXTLIST.*'; ELSE strFields := IOFields; END IF; IF OrderBys IS NULL THEN strOrderBys := 'USERCODE, PAGECODE, FUNCODE'; ELSE strOrderBys := REPLACE (OrderBys, ':0', ''); strOrderBys := REPLACE (strOrderBys, ':1', ' DESC'); END IF; strSQLCalc := 'SELECT COUNT(*)' || ' FROM DESKTOP_TEXTLIST' || STRWHERE || STRCOND; EXECUTE IMMEDIATE strSQLCalc INTO RecordTotal; IF PageNo IS NULL THEN strSQLView := 'SELECT ' || strFields || ' FROM DESKTOP_TEXTLIST' || strWhere || strCond || ' ORDER BY ' || strOrderBys; ELSE strSQLView := 'SELECT * FROM (' || ' SELECT ' || strFields || ', rownum rn FROM DESKTOP_TEXTLIST' || ' WHERE rownum <= ' || (PageSize * PageNo) || ' ORDER BY ' || strOrderBys || ')' || ' WHERE rn >= ' || (PageSize * (PageNo -1)) || strAnd || strCond || ' ORDER BY ' || strOrderBys; END IF; OPEN RecordSet FOR strSQLView; return; ELSE strSQLView := 'DELETE DESKTOP_TEXTLIST' || strWhere || strCond; EXECUTE IMMEDIATE strSQLView; END IF; END DesktopTextListStorer; END DESKTOP_TEXTLIST_PACKAGE;

四、對特殊字元的查詢，如查詢文字中是否包含“%”、“/”、“’”、“_”等符號；

Oracle指令碼：

strEscape := 'ESCAPE CHR (92 USING NCHAR_CS)'; strLike := REPLACE (fldPageName, '%', '/%'); STRLIKE := REPLACE (STRLIKE, '_', '/_'); strLike := REPLACE (strLike, '/', '//'); strLike := REPLACE (strLike, '''', ''''''); strCond := strCond || strJoin || ' PAGENAME LIKE ''%' || strLike || '%'' ' || strEscape;

以上是筆者操作Oracle資料庫總結出來的一些經驗，然後對大家有所幫助。s