ASP中关于ORACLE的存储过程的执行(请指教，谢谢)

http://expert.csdn.net/Expert/topic/1855/1855947.xml?temp=.585705

解决方案 »

  1.   

    我说是在ASP中执行ORACLE存储过程的写法，请指教，谢谢
      

  2.   

    我说的是在ASP中执行ORACLE存储过程的写法，谢谢，请指教
      

  3.   

    http://support.microsoft.com/default.aspx?scid=kb;EN-US;193225
    http://support.microsoft.com/default.aspx?scid=kb;EN-ZH;255043
    http://support.microsoft.com/default.aspx?scid=kb;EN-US;174679
    在这些联结下，还有其他的相关文档
      

  4.   

    我改成了下面的，可是第三句就不能执行了???????????????谢
    set MyCommand=server.CreateObject("adodb.command")
    MyCommand.ActiveConnection=conn
    MyCommand.CommandType=adcmdstoredproc
    MyCommand.CommandText="p_del_tree"
    Set MyFirstParam=MyCommand.CreateParameter ("typeID",adVarChar,adParamInput,30,"&typeID&")
    MyCommand.Parameters.Append(MyFirstParam)  '第一个参数
    Set MySecParam=MyCommand.CreateParameter ("treeLevel",adVarChar,adParamInput,30,"&treeLevel&")
    MyCommand.Parameters.Append(MySecParam)  '第二个参数
    MyCommand.Execute
      

  5.   

    给你一个例子
    CREATE TABLE student
     (
      id                         NUMBER,
      name                       VARCHAR2(30),
      sex                        VARCHAR2(10),
      address                    VARCHAR2(100),
      postcode                   VARCHAR2(10),
      birthday                   DATE,
      photo                      LONG RAW
     );
    /
    CREATE OR REPLACE PACKAGE pkg_test
    AS
       TYPE myrctype IS REF CURSOR;   PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
    END pkg_test;
    /CREATE OR REPLACE PACKAGE BODY pkg_test
    AS
       PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
       IS
          sqlstr   VARCHAR2 (500);
       BEGIN
          IF p_id = 0 THEN
             OPEN p_rc FOR
                SELECT ID, NAME, sex, address, postcode, birthday
                  FROM student;
          ELSE
             sqlstr :=
                'select id,name,sex,address,postcode,birthday
               from student where id=:w_id';
             OPEN p_rc FOR sqlstr USING p_id;
          END IF;
       END get;
    END pkg_test;
    /
    <%@LANGUAGE="VBSCRIPT"%> 
    <!--#include file="Connections/conn.asp" -->
    <% 
    set cm1 = Server.CreateObject("ADODB.Command")
    cm1.ActiveConnection = MM_conn_STRING
    cm1.CommandType = 1
    cm1.CommandTimeout = 0
    cm1.Prepared = true
    cm1.CommandText = "{call pkg_test.get(?)}"//(?,{resultset 0, myrctype})
    set para = cm1.Parameters
    para.Append cm1.CreateParameter("p_id",3,1,,1)

    set rs = Server.CreateObject("ADODB.Recordset")set rs=cm1.Execute  
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <html>
    <head>
    <title>中山大学附属第五医院</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <LINK 
    href="images/med.css" type=text/css 
    rel=stylesheet>
    </head>
    <body bgcolor="#B2CFE4" text="#000000">
    <%
       while not rs.eof 
       response.write rs("name")
       rs.movenext()
       wend %></body>
    </html>
    <%
    rs.close
    cm1.ActiveConnection.Close
    set cm1=nothing%>