ASP调用oracle存储过程能否返回记录集?

Question

能
static public DataTable executeQuery(OracleConnection conn, string sqlString, string tableName)
{
//创建数据适配器
OracleDataAdapter dataAdapter = new OracleDataAdapter(sqlString, conn);

//根据指定名称创建数据表
DataTable datatable = new DataTable(tableName); //使用数据适配器填充数据表
dataAdapter.Fill(datatable); //返回
return datatable;
}

Answer 1

http://expert.csdn.net/Expert/topic/2876/2876006.xml?temp=.6011927

Answer 2

在ASP中调用动态ORACLE包\过程:1.所查视图表结构:
名称                                      空?      类型
----------------------------------------- -------- ----------------------------
ID                                                 NUMBER
XK_SX                                              NUMBER
XK_WSX_DJ                                          NUMBER
XK_WSX_XJ                                          NUMBER
XK_WSX_HJ                                          NUMBER
F_ZS                                               NUMBER
F_WZS_DJ                                           NUMBER
F_WZS_XJ                                           NUMBER
F_WZS_HJ                                           NUMBER
SW_CS_DJ                                           NUMBER
SW_CS_XJ                                           NUMBER
SW_CS_HJ                                           NUMBER
BZ                                                 CHAR(100)
YY                                                 CHAR(4)
XZQ                                                NUMBER
WRR2                                               NUMBER
WRR3                                               NUMBER
WRR2NAME                                           CHAR(50)
WRR3NAME                                           CHAR(50)
ADDVNM                                             CHAR(9)2.在ORACLE中包的定义:CREATE OR REPLACE PACKAGE nb_supFind 
AS
 AS
 TYPE myrctype IS REF CURSOR;
 
 PROCEDURE RecSel(    p_StartDate IN CHAR,
    p_EndDate   IN CHAR,
    p_Region    IN VARCHAR2,   --分区内容
    p_flag      IN NUMBER,     --标识是行政区/二级区/三级区 
    p_col       IN VARCHAR2,   --选中项目名
    p_table     IN VARCHAR2,   --操作表名
    v_ADDV      OUT myrctype   --作为输出的游标
    );
END nb_supFind;CREATE OR REPLACE PROCEDURE NB_SURERFIND (
    --参数声明
    p_StartDate IN VIEW_NB_TYGL.YY%TYPE,
    p_EndDate   IN VIEW_NB_TYGL.YY%TYPE,
    p_Region    IN VARCHAR2,   --分区内容
    p_flag      IN NUMBER, --标识是行政区/二级区/三级区 
    p_item      IN NUMBER, 
    p_table     IN VARCHAR2,
    )  
  
AS
 
 PROCEDURE RecSel(
     p_StartDate IN CHAR,
    p_EndDate   IN CHAR,
    p_Region    IN VARCHAR2,   --分区内容
    p_flag      IN NUMBER,     --标识是行政区/二级区/三级区 
    p_col       IN VARCHAR2,   --选中项目名
    p_table     IN VARCHAR2,   --操作表名
    v_ADDV      OUT myrctype   --作为输出的游标
    ) IS
    
    strsql VARCHAR2(500);
    
    BEGIN
      IF p_flag = 1 then
      if p_Region = 'NULL' then
          strsql:='SELECT ADDVNM,YY,SUM('||p_col||')
               FROM '||p_table||     
               ' WHERE YY <= '||p_EndDate||' AND YY>='|| p_StartDate||'   
               GROUP BY ADDVNM,YY';
      else
          strsql:='SELECT ADDVNM,YY,SUM('||p_col||')
                 FROM '||p_table||     
               ' WHERE YY <= TO_NUMBER('||p_EndDate||') AND YY>=TO_NUMBER('|| p_StartDate||') AND  ADDVNM='''||p_Region||  
               ''' GROUP BY ADDVNM,YY';
      end if;
      DBMS_OUTPUT.PUT_LINE(strsql);
      --打开动态游标
      OPEN v_ADDV FOR strsql; 
   END IF;
    END RecSel;
END nb_supFind;      3.在SQL PLUS中测试:
set serveroutput on
DECLARE
 p_rc NB_SUPFIND.myrctype;
 str varchar2(50);
BEGIN
 NB_SUPFIND.RecSel('2000','2000','北京',1,'YSQ_SL','VIEW_NB_QSXK',p_rc);
 LOOP 
   FETCH p_rc INTO str;
   DBMS_OUTPUT.PUT_LINE(str);
   EXIT WHEN p_rc%NOTFOUND;
 END LOOP;  
END;成功!4.在ASP里的调用
   Set Conn=Server.CreateObject("ADODB.Connection")
   Set Rs = Server.CreateObject("ADODB.Recordset")
   
   '以下两句含在globo文件中
   connstr="Provider=MSDAORA;Password=water;User ID=water;Data Source=oradb_netserver"
   Session("connstr")=connstr
   
   conn.Open Session("connstr")   Set CMD=Server.CreateObject("ADODB.Command") 
   CMD.ActiveConnection = conn
   CMD.CommandType = adCmdText
   CMD.CommandTimeout = 0
   CMD.Prepared = true   CMD.CommandText = "{call nb_supFind.RecSel(?,?,?,?,?,?)}"  这里只写输入不写输出
   
   CMD.Parameters.Append CMD.CreateParameter("p_StartDate",129,1,4,"2000")'开始年份
   CMD.Parameters.Append CMD.CreateParameter("p_EndDate",129,1,4,EndYr)    '结束年份
   CMD.Parameters.Append CMD.CreateParameter("p_Region",129,1,9,Addv)     '行政区名
   CMD.Parameters.Append CMD.CreateParameter("p_flag",3,1,4,1)            '标识分区
   CMD.Parameters.Append CMD.CreateParameter("p_col",200,1,50,Item)       '选中项目名
   CMD.Parameters.Append CMD.CreateParameter("p_table",200,1,100,Tname)     '得到表名   set rs.Source = CMD
   on error resume next
   set rs=CMD.Execute
   
   if err.number <> 0 then
   response.Write err.Description 
   response.End
   end if
   
   rs.Open()
   
           
调试已通过~!:-)