如何使用链接表从 Access 执行存储过程

Question

我有一个 Access 2003 数据库，它通过 ODBC 连接到 SQL Server 2008 机器。 SQL Server 中的表在 Access 中作为链接表连接。我在尝试通过 ADO 代码执行的 SQL Server 上有一个存储过程。我遇到的问题是 Access 似乎无法找到该过程。我必须在 Access 中做什么才能执行此存储过程？一些事实...

有问题的存储过程接受一个整数参数。存储过程返回一个记录集，我希望将其用作 ListBox 的数据源。

这是我在 Access 中的 ADO 代码 ...

Private Sub LoadUserCaseList(userID As Integer)

  Dim cmd As ADODB.Command

  Set cmd = New ADODB.Command
  cmd.ActiveConnection = CurrentProject.Connection
  cmd.CommandType = adCmdStoredProc
  cmd.CommandText = "uspGetUserCaseSummaryList"

  Dim par As New ADODB.Parameter
  Set par = cmd.CreateParameter("userID", adInteger)
  cmd.Parameters.Append par
  cmd.Parameters("userID") = userID

  Dim rs As ADODB.Recordset
  Set rs = cmd.Execute()
  lstUserCases.Recordset = rs

End Sub

我得到的错误是“microsoft jet 数据库引擎找不到输入表或查询“uspGetUserCaseSummaryList”。

Answer 1

CurrentProject.Connection 是到您的 Access 数据库的连接。您可以通过在“立即”窗口中执行此操作来验证：

Debug.Print CurrentProject.Connection

您需要使用指向您的 SQL Server 实例的连接字符串创建一个新的 ADODB.Connection 对象。让您的 ADODB.Command 对象使用该连接。

编辑：您可以消除 ADODB.Command 对象，并使用连接的 Execute 方法从存储过程中返回记录。此示例使用需要 3 个参数的存储过程。

Private Sub GetCenterCodes()
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=VM2003\sqlexpress;" _
        & "User ID=foo;Password=bar;Initial Catalog=Inventory"
    cnn.Open
    Set rs = New ADODB.Recordset
    Set rs = cnn.Execute("EXEC uspGetCenterCodes 14, 14, 501")
    Debug.Print rs(0), rs(1), rs(2)
    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub

您可以在ConnectionStrings.com找到符合您需求的连接字符串示例