ITPub博客

首页 > 数据库 > 数据库开发技术 > 技术教程网 -- 实用技术参考 (转)

技术教程网 -- 实用技术参考 (转)

原创 数据库开发技术 作者:worldblog 时间:2007-12-02 16:33:11 0 删除 编辑
技术教程网 -- 实用技术参考 (转)[@more@]调用数据库存储过程
<%Set Dataconn = Server.Createobject("ADOdb.Connection")
'建立连接对象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
Set cmdTemp = Server.CreateObject("ADODB.Command")
'建立命令对象
Set rst = Server.CreateObject("ADODB.Recordset")
'建立记录集对象
cmdTemp.CommandText = "dbo.pd_test" '存储过程名称
cmdTemp.CommandType = 4
'命令类别为4,表示为存储过程
Set cmdTemp.ActiveConnection = Dataconn
Set tmpParam = cmdTemp.CreateParameter("Return Value", 3, 4, 4)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi)
'创建输入参数对象
cmdTemp.Parameters.Append tmpParam
rst.Open cmdTemp, , 1, 3 
'生成查询结果
 %>
这里调用的存储过程为pd_test,这种是ADO中提供的标准方法,但存在一个问题,就是当在存储过程中有两个以上的select语句,但从逻辑上又不可能同时执行的时候,ADO会提示你存储过程中SELECT语句太多,解决方法是直接用ADO的CONNECTION对象的EXECUTE方法直接执行存储过程,如下:
 <%
Set Dataconn = Server.CreateObject("ADODB.Connection")
'建立连接对象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'"
Set rs = dataconn.Execute(ss)
 %> 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-987478/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2405660