<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      ASP調用ORACLE存儲過程并返回結果集
                
                  發表時間：2024-02-02             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]ASP 調用 ORACLE存儲過程并返回結果集看過網上好多ASP調用ORACLE的方法，但是沒有特好特直接的東西，所以總結各家的東西最后得出的一個自己需要的方法，感覺也比較大眾所以特此發布###################################################orac...
      ASP 調用 ORACLE存儲過程并返回結果集
      看過網上好多ASP調用ORACLE的方法，但是沒有特好特直接的東西，所以總結各家的東西最后得出的一個自己需要的方法，感覺也比較大眾所以特此發布
      ###################################################
      oracle的存儲過程
      ###################################################
      --創建包頭
      create or replace package pck_as
      as
        type t_product_id is table of number
        index by binary_integer;
        type t_serial_no is table of varchar(300)
        index by binary_integer;
        type t_buy_date is table of date
        index by binary_integer;
        
        procedure allsfc
        (
         product_id out t_product_id,
         serial_no out t_serial_no,
         buy_date out t_buy_date
        );
        
        --procedure allsfc1;
      end pck_as;

      --創建包體
      create or replace package body pck_as
      as
        procedure allsfc
        (
         product_id out t_product_id,
         serial_no out t_serial_no,
         buy_date out t_buy_date
        )
        is
          cursor cur_sfc_tbl_product_reg is 
          select product_id,serial_no,buy_date from sfc_tbl_product_reg;
          
          i number default 1;
          
        begin
             for onrecord in cur_sfc_tbl_product_reg
             loop 
                  product_id(i) := onrecord.product_id;
                  serial_no(i) := onrecord.serial_no;
                  buy_date(i) := onrecord.buy_date;
                  i := i + 1;
             end loop;
        end;
      end;
       

      ###################################################
      ASP的調用
      ###################################################
      <html>
      <head>
      <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
      <title>無標題文檔</title>
      </head>
      <body>
      <%
      dim str_ora
      dim objconn_ora
      str_ora = "Driver={Microsoft ODBC for Oracle};Server=ora192;uid=dwuser;pwd=family.samsung.com.cn"
      set objconn_ora = server.CreateObject("adodb.connection")
      objconn_ora.connectionstring = str_ora
      objconn_ora.CursorLocation = 3
      objconn_ora.open
      dim strsql
      set rs1 = server.CreateObject("ADODB.RecordSet")
      strsql = "{call pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"
      set objcomm1 = server.CreateObject("adodb.command")
      objcomm1.activeconnection = objconn_ora
      objcomm1.commandtype = 1
      objcomm1.commandtext = strsql
      set rs1 = objcomm1.execute

      while not rs1.eof
       response.Write(rs1(0) & " " & rs1(1) & " " & rs1(2) & " <BR>")
       rs1.movenext
      wend 
      %>
      </body>
      </html>



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清