vba - 返回值指示通过 ADO/VBA 更新 SQL Server 存储过程的成功/失败

Question

我有一个 SQL Server 2008 存储过程可以更新表中的值。我想让存储过程返回一个整数值，指示更新成功(返回 0)或不成功(返回错误号)。通过 ADO 和 VBA 实现此目的的最佳方法是什么？这里有一些我的代码以简化形式执行更新......我只是不确定如何取回存储过程的返回值

Public Function DoUpdate(employeeID as integer, firstName as string, lastname as string) as integer

  Dim cnn As ADODB.Connection
  Dim cmd As ADODB.Command
  Dim activeConnectionString As String

  activeConnectionString = GetActiveConnectionString()

  Set cnn = New ADODB.Connection
  cnn.ConnectionString = activeConnectionString
  cnn.CursorLocation = adUseClient
  cnn.Open

  Set cmd = New ADODB.Command
  cmd.ActiveConnection = cnn
  cmd.CommandType = adCmdStoredProc
  cmd.CommandText = "uspUpdateEmployeeName"
  cmd.NamedParameters = True

  cmd.Parameters("@EmployeeID").Value = employeeID 
  cmd.Parameters("@FirstName").Value = firstName
  cmd.Parameters("@LastName").Value = lastName

  cmd.Execute

  'Unsure of how to get back return value here
  'DoUpdate = returnValue

  Set cnn = Nothing

End Function

Answer 1

注意:return_value 必须是第一个参数!

订单很重要。

当我在最后而不是第一个指定我的 return_value 参数时，我收到错误提示我的查询 “有太多参数”。

参数的顺序是我出错的原因。