kaiscrin
شنبه 22 تیر 1387, 20:29 عصر
سلام.
من می خوام از طریق ASP یک رویه رو فراخوانی کنم ،ولی همش با این خطا مواجه می شم :
Error Type:
ADODB.Command (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another
این هم کد برنامه ام است ، لازم به ذکره که رویه مورد نظر دو فیلد ورودی داره که اینتجر می گیرن یکی هم خروجی داره که اونم اینتجز میده :
<SCRIPT LANGUAGE="vbscript" RUNAT="server">
Sub Session_OnStart
dim ServerName
ServerName =Request.ServerVariables("Server_Name")
end sub
</script>
<Html>
<Body>
<%
dim objconnect,constring
constring= "driver={sql server};" & _
"server="& serverName &";" & _
"database=QUESTIONNAIRE;UID=Moien;PWD=136527;"
set objconnect=server.createobject("adodb.connection")
objconnect.ConnectionString = constring
objconnect.Open
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = objconnect
' Define the stored procedure's inputs and outputs
' Question marks act as placeholders for each parameter for the
' stored procedure
cmd.CommandText = "{?=call SurplusArea(?,?)}"
' specify parameter info 1 by 1 in the order of the question marks
' specified when we defined the stored procedure
cmd.Parameters.Append cmd.CreateParameter("@Surplus",adinteger, _
adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("@Form" , adInteger, _
adParamInput).Value=1
cmd.Parameters.Append cmd.CreateParameter("@Group", adTinyInt, _
adParamInput).Value=1
cmd.Execute
%>
Calling via method : <br>
ReturnValue = <% Response.Write cmd("@Surplus") %>
</BODY>
</HTML>
من می خوام از طریق ASP یک رویه رو فراخوانی کنم ،ولی همش با این خطا مواجه می شم :
Error Type:
ADODB.Command (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another
این هم کد برنامه ام است ، لازم به ذکره که رویه مورد نظر دو فیلد ورودی داره که اینتجر می گیرن یکی هم خروجی داره که اونم اینتجز میده :
<SCRIPT LANGUAGE="vbscript" RUNAT="server">
Sub Session_OnStart
dim ServerName
ServerName =Request.ServerVariables("Server_Name")
end sub
</script>
<Html>
<Body>
<%
dim objconnect,constring
constring= "driver={sql server};" & _
"server="& serverName &";" & _
"database=QUESTIONNAIRE;UID=Moien;PWD=136527;"
set objconnect=server.createobject("adodb.connection")
objconnect.ConnectionString = constring
objconnect.Open
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = objconnect
' Define the stored procedure's inputs and outputs
' Question marks act as placeholders for each parameter for the
' stored procedure
cmd.CommandText = "{?=call SurplusArea(?,?)}"
' specify parameter info 1 by 1 in the order of the question marks
' specified when we defined the stored procedure
cmd.Parameters.Append cmd.CreateParameter("@Surplus",adinteger, _
adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("@Form" , adInteger, _
adParamInput).Value=1
cmd.Parameters.Append cmd.CreateParameter("@Group", adTinyInt, _
adParamInput).Value=1
cmd.Execute
%>
Calling via method : <br>
ReturnValue = <% Response.Write cmd("@Surplus") %>
</BODY>
</HTML>