中国站长下载-为中国站长提供最好最全的建站资源! 首 页发布资源有事留言繁體中文
设为首页
加入收藏
联系我们
 
您当前的位置:中国站长下载 -> 文章中心 -> 数据库区 -> MSSQL -> 文章内容  虚拟主机 域名注册 退出登录 用户管理
栏目导航
· ACCESS · MSSQL
· Mysql · DB2
· ORACLE · SYBASE
· 其他相关
热门文章
· sndvol32 - sndvol3...
· [组图] FLASH:《大话李白》...
· 个人网站到底能赚多...
· [图文] Rundll.exe是病毒吗...
· [组图] Flash:制作MV
· 价值12万元的网站SE...
· 网站创业者,你需要...
· 一个成功的网站设计...
· [图文] FLASH:韩国导航条解...
· 中国网站的赚钱模式...
相关文章
· 一些不长见的ASP调用...
· asp调用数据库存储过...
· ASP调用oracle存储过...
· ASP调用带参数存储过...
· ASP调用WEBSERVICE文...
· C#调用ORACLE存储过...
ASP调用ORACLE存储过程并返回结果集
作者:佚名  来源:不详  发布时间:2006-5-9 16:47:52  发布人:chinazhan

 减小字体 增大字体



看过网上好多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>    asp">oracleasp">存储过程
 
[] [返回上一页] [打 印] [收 藏]
∷相关文章评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
中国站长下载
中国站长下载

本页只接受PR>=4 IT类站点连接,申请连接,谢谢您们的支持!希望我们的下载站能够真正帮到中国的站长们!
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图
Copyright © 2005-2006 ChinaZhan.Net. All Rights Reserved .