不行啊,仍然出现上面的错误提示,不过,这次提示出现在第15行啊,而不是第14行。第15行是:
cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
'注意赋值@type
cmdupdate("@type")=="abcdefghijkl"
cmdupdate.execute
给你个例子
一个输入的参数的存储过程
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn
set cmd.ActiveConnection=conn cmd.CommandText="{call oneinput(?)}"
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger ,adParamInput )
cmd("@aaa")=100 cmd.Execute() %> 一个输入参数和一个输出的参数
<%
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn
set cmd.ActiveConnection=conn cmd.CommandText = "{call oneinout(?,?)}"
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput)
cmd("@aaa")=10
cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput) cmd.Execute() bbb=cmd("@bbb")
%>
我将@type赋值为strtype,而strtype="business"strtype="business"
cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
set param=cmdupdate.createparameter("@type",200,1,40,strtype)
cmdupdate.Parameters.Append param 'cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
cmdupdate.execute
set conn=server.createobject("adodb.connection")
conn.open"Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=yourpassword;DataBase=pubs"
dim cmdupdate
dim lngrecs
dim strtype
dim curpercent
strtype="business"set cmdupdate=server.createobject("adodb.command")cmdupdate.activeconnection=conn
cmdupdate.commandtext="usp_updateprices"
cmdupdate.commandtype=4
cmdupdate.Parameters.Refresh
cmdupdate.Parameters("@type")=strtype
cmdupdate.executeset cmdupdate=nothing
%>
<html>
<head>
<title>Untitled</title>
</head><body>
</body>
</html>
我想请教几个问题:这里的200、1、40是什么意思???("@type",200,1,40,strtype)
这句话又是什么意思???
cmdupdate.Parameters.Refresh