传递参数到存储过程中经典的asp

Question

我以前曾问过类似的问题，虽然我试图解决我以前的代码，但现在我得到了一个错误“参数是错误的类型，超出了可接受的范围，或相互冲突“。我想传递一个字符作为参数来查询数据库，然后使用记录集打印出一个网页。我的经典ASP代码低于

Set objCon = CreateObject("ADODB.Connection") 
Set objRS = CreateObject("ADODB.Recordset") 
set objComm = CreateObject("ADODB.Command") 

objCon.ConnectionString = "Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True;User ID=xxxx;Initial Catalog=Movies;Data Source=xxxx-PC" 
objCon.open objCon.ConnectionString 

objComm.ActiveConnection = objCon.ConnectionString 
objComm.CommandText = "Paging_Movies" 
objComm.CommandType = adCmdStoredProc 

Set objParameter = objComm.CreateParameter 
objParameter.Name = "alphaChar" 
objParameter.Type = adChar 
objParameter.Direction = adParamInput 
objParameter.Value = "a" 

objComm.Parameters.Append objParameter 

set objRs = objComm.Execute 

而且我的存储过程是如下 -

CREATE PROCEDURE Paging_Movies 
@alphaChar char(1) 
AS 
if @alphaChar = '#' 
    select * from Movies where movies like '[^a-z]%' 
else 
    select * from Movies where movies like @alphaChar + '%' 

Answer 1

也许你要添加的参数两次。尝试更换：

objComm.ActiveConnection = objCon.ConnectionString 
objComm.CommandText = "Paging_Movies" 
objComm.CommandType = adCmdStoredProc 

Set objParameter = objComm.CreateParameter 
objParameter.Name = "alphaChar" 
objParameter.Type = adChar 
objParameter.Direction = adParamInput 
objParameter.Value = "a" 

Set objParameter = objCommand.CreateParameter ("alphaChar", adChar, _ 
    adParamInput, "a") 

objComm.Parameters.Append objParameter 

只：

objCommand.CreateParameter ("alphaChar", 129, 1, 1, "a") 

编辑为您的意见建议（1）从W3Schools CreateParameter page使用的数值为adChar（129）和adParamInput。