**************************************************************************
' 存储过程的调用
**************************************************************************
Dim mycommand As ADODB.Command
Dim rstByQuery As RecordsetSet mycommand = New ADODB.Commandmycommand.Parameters.Append mycommand.CreateParameter("tel", adVarChar, adParamInput, 200)
mycommand("tel") = s手机
mycommand.Parameters.Append mycommand.CreateParameter("rq", adDate, adParamInput)
mycommand("rq") = d日期
mycommand.Parameters.Append mycommand.CreateParameter("ss", adVarChar, adParamOutput, 200)mycommand.ActiveConnection = db
mycommand.CommandText = "SearchByTel"
mycommand.CommandType = adCmdStoredProc '表明command 为存储过程Set RsShow = mycommand.Execute()执行时报错: [Microsoft][ODBC SQL Server Driver]没有执行可选特性
请问如何解决?
' 存储过程的调用
**************************************************************************
Dim mycommand As ADODB.Command
Dim rstByQuery As RecordsetSet mycommand = New ADODB.Commandmycommand.Parameters.Append mycommand.CreateParameter("tel", adVarChar, adParamInput, 200)
mycommand("tel") = s手机
mycommand.Parameters.Append mycommand.CreateParameter("rq", adDate, adParamInput)
mycommand("rq") = d日期
mycommand.Parameters.Append mycommand.CreateParameter("ss", adVarChar, adParamOutput, 200)mycommand.ActiveConnection = db
mycommand.CommandText = "SearchByTel"
mycommand.CommandType = adCmdStoredProc '表明command 为存储过程Set RsShow = mycommand.Execute()执行时报错: [Microsoft][ODBC SQL Server Driver]没有执行可选特性
请问如何解决?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货