Adodb Recordset函数.MoveNext导致异常“ UPDATE权限被拒绝”

Question

我今天遇到一个困扰我的问题。

这是一些示例代码：

                Dim objRec As ADODB.Recordset 
                Dim oRec As ADODB.Recordset 
                Dim oRecBuild As New ADODB.Recordset 
                cmd = New ADODB.Command()
                cmd.ActiveConnection = objConn
                cmd.CommandText = "SelectAll_PhoneNumbers_ById"
                cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
                cmd.NamedParameters = True

                cmd.Parameters.Append(cmd.CreateParameter("@ObjId", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 20, objRec.Fields("PK_ProgramID").Value))

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

                If oRec.EOF = False Then
                    Do Until oRec.EOF
                        If IsDBNull(oRec.Fields("PhoneType").Value) = False Then
                            sName = PhoneNumberEdit(oRec.Fields("Phone").Value)
                            If IsDBNull(oRec.Fields("Extension").Value) = False And Len(oRec.Fields("Extension").Value) > 0 Then
                                sName = PhoneNumberEdit(oRec.Fields("Phone").Value) & " " & oRec.Fields("Extension").Value
                            End If
                            oRecBuild.AddNew(New Object() {"TextPrint", "TextType"}, New Object() {sName, oRec.Fields("PhoneType")})
                        End If
                        oRec.MoveNext()
                    Loop
                End If

当我到达.MoveNext（）函数时，应用程序将引发如下错误：对象“ PhoneNumbers”，数据库“ MyDb”，模式“ dbo”的UPDATE权限被拒绝。

此代码块中没有什么调用更新（循环中的函数调用仅格式化数据），有人对导致这种情况的原因有任何想法吗？

我还应该补充一点，我可以在本地使用SSPI运行此代码，但是代码必须能够在使用SQL用户名和PW的服务器上运行； 我已经在其他页面上使用该应用程序测试了更新，并且工作正常。

Answer 1

这只是一种预感，但是我确实在该代码中看到一个地方， 可能会引起UPDATE命令： oRecBuild.AddNew() 。 我不知道如何实现，但是我想知道调用oRec.MoveNext()是否以某种方式强制了oRecBuild的提交。 否则，我将仔细研究SelectAll_PhoneNumbers_ById过程以及可能附加到它使用的表或视图的任何可能的触发器。

如果失败了，我会这样做：

Public Class PhoneNumber
    Public Number As String
    Public PhoneType As String
End Public
'...

Dim result As New List(Of PhoneNumber)
Using cn As New SqlConnection("connection string"), _
      cmd As New SqlCommand("SelectAll_PhoneNumbers_ById", cn)

    cmd.CommandType = CommandType.StoredProcedure
    'Is this really an integer?
    cmd.Parameters.Add("@ObjId", SqlDbType.NVarChar, 20).Value = objRec.Fields("PK_ProgramID").Value
    cn.Open()

    Using rdr As SqlDataReader = cmd.ExecuteReader()
       While rdr.Read()
          Dim phone As String = ""
          If Not IsDbNull(rdr("PhoneType"))
              phone = PhoneNumberEdit(rdr("Phone"))
          End If
          If Not IsDbNull(rdr("Extension"))
              phone = phone & " " & PhoneNumberEdit(rdr("Extension"))
          End If
          result.Add(New PhoneNumber With {.Number = phone, .PhoneType = rdr("PhoneType")})
       End While
    End Using      
End Using

当我在这里时……只要您将数据从一个记录集读取到另一个记录集，那么很有可能整个过程可以完全在数据库中完成，而根本没有客户端代码。

Answer 2

为了解决这个问题，我想继续说，我终于能够解决这个问题。 问题是使用sp_executesql执行的动态sql明确检查SQL用户的选择，插入或更新特权。 执行privs还不够。

因此，要么必须取消动态SQL，要么必须授予select / update / insert / delete privs。

谢谢大家的帮助和时间。