hej.. håller på att bli knäpp. Har du deklarerat konstanterna, har du inkluderat fil med deklarationer eller har du angivit i vilket typlib det finns? Arguments are of the wrong type.. i h-vete heller!!
jag får följande fel :
Error Type:
ADODB.Command (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
verify.asp, line 13
problem på line 13 CommandType = adCmdStoredProc
Min kod ser ur:
set conn = Server.CreateObject("ADODB.Command")
strConnect = "Driver={SQL Server};Server=Viking;DATABASE=Community;UID=kalle;password=kalle"
With conn
.ActiveConnection = strConnect
.CommandText = "pr_verify"
.CommandType = adCmdStoredProc <---här är det som genererar felet på line 13
.parameters.Append .CreateParameter("@user", adVarWChar, adParamInput,10)
.parameters.Append .CreateParameter("@pswd", adVarWChar, adParamInput,10)
.parameters ("@user")= request.form("user")
.Parameters ("@pswd")= request.form("pswd")
set rs = conn.execute
end With
Vad sjutton är det jag gör för fel!??!
ursäkta för svårdommen i rubriken.Sv: Arguments are of the wrong type.. i h-vete heller!!
Annars kommer det inte vara deklarerade. Detta skulle du fått fram om du angivit Option Explicit överst på din sida.
Du skall inte dirket användar connectionsträngar. Eftersom du inte frigör anslutninge som commandobjektet internt skapar.
Testa med:
<code>
Dim cmd
Dim conn
Const adVarWChar = 202
Const adParamInput = 1
Const adCmdStoredProc = 4
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};" & _
"Server=Viking;" & _
"DATABASE=Community;" & _
"UID=kalle;" & _
"password=kalle"
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = strConnect
cmd.CommandText = "pr_verify"
cmd.CommandType = adCmdStoredProc
cmd.parameters.Append cmd.CreateParameter("@user", adVarWChar, adParamInput,10,request.form("user"))
cmd.parameters.Append cmd.CreateParameter("@pswd", adVarWChar, adParamInput,10,request.form("pswd"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open cmd
rs.Close
Set rs = Nothing
Set cmd = Nothing
cmd.Close
Set cmd = Nothing
</code>