● ASP调用SQL SERVER存储程序 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: tiny (Tiny && Caiddy), 信区: Homepage
标题: ASP调用SQL SERVER存储程序
发信站: 荔园晨风BBS站 (Fri Nov 9 09:47:43 2001), 转信

调用数据库存储过程
　　＜%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)
%＞

--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.158]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店