ADODB Conn和记录集错误

Question

我收到此错误：“无法更改具有Command对象作为其源的Recordset对象的ActiveConnection属性。” 尝试打开记录集时。 我应该注意的一件事：此过程以内联SQL编写时有效，但是由于明显的原因而被删除。

我读过在我正在使用的存储过程上设置'nocount on'可以解决此问题，但事实并非如此。 因此，希望你们能帮助我。

这是初始化的连接：

Dim objConn As ADODB.Connection
sConn = System.Configuration.ConfigurationManager.ConnectionStrings("ConnString").ConnectionString()
    objConn = CreateObject("ADODB.Connection")
    objConn.ConnectionString = sConn
    objConn.CursorLocation = ADODB.CursorLocationEnum.adUseServer
    objConn.Open(sConn)

然后：

cmd = New ADODB.Command()
cmd.ActiveConnection = objConn

cmd.CommandText = "someProc"
cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd.NamedParameters = True

cmd.Parameters.Append(cmd.CreateParameter("SomeID", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 20, params("SomeID")))

objRec = New ADODB.Recordset()
objRec.Open(cmd, objConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

有人以前经历过吗？ 提前致谢。

Answer 1

我已经有一段时间没有使用ADO了（肯定在.NET中从未使用过ADO），所以这是一个猜测，但是来自Open 的文档 ：

如果您在Source参数中传递Command对象，并且还传递ActiveConnection参数，则会发生错误。 Command对象的ActiveConnection属性必须已经设置为有效的Connection对象或连接字符串。

因此，听起来您的问题是您正在将连接传递给objRec.Open调用。 由于该参数是可选的，请尝试不传递它。 我不确定是否通过Nothing或只是忽略了参数，所以请尝试：

objRec.Open(cmd, , ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

如果不喜欢，请尝试：

objRec.Open(cmd, Nothing, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)