ms-access - 将存储过程分配给 Microsoft Access 中的 report.recordset

Question

我听说你只能这样做是 adp，我直接连接到 SQL Server，并且想将存储过程分配给记录，我得到只能在 adp 文件中完成的错误？

我没有链接到 SQL Server，我使用 ODBC 驱动程序直接连接到它。

有什么办法可以将此存储过程分配给报告？

谢谢..

Answer 1

您所要做的就是在 Access 中创建一个查询，但将其标记（更改）为一个 pass-thougthh 查询。

所以，pt查询可以是

Exec MyStoredProcedure

保存查询。现在只需将此查询用作报告的来源。你真的不需要在这里写任何代码。当然，如果您需要传递一个值或某种参数？

好吧，那么您可以使用以下代码：

假设存储过程返回给定发票编号的数据。

因此，您的代码将如下所示：

dim strInvoiceNumber   as string
strInvoiceNumber = InputBox("Enter invoice number")

currentdb.QueryDefs("MyPass").sql = "EXEC StorProc " & strInvoiceNumber

' code here follows to open report
 docmd.OpenReport "MyInoice",acViewPreview

因此，您可以创建一个直通查询，并在查询中键入任何将运行/调用存储过程的 exec 或命令。如前所述，如果没有参数，那么您根本不需要编写任何代码 - 只需创建传递查询，并将其用作报告的源。

Answer 2

应该在任何 accdb / accde 中使用正确的连接。尝试以下操作，看看是否可以使用 fittin strconnADO 进行连接。之后，您可以将本地 rst 分配给报告或表格等。

Public Function fctGetData(intReportNummer As Integer) As Boolean




Dim cnn As New adodb.Connection
Dim cmd As New adodb.Command
Dim rst As New adodb.Recordset   'PDO: Enthält die Empfaenger, die abzuarbeiten sind.






'PDO: Start
cnn.Open strconnADO
cmd.ActiveConnection = cnn
cmd.CommandTimeout = 180


cmd.CommandText = "dbo.q_YOUR_QUERY_sp"
cmd.CommandType = adCmdStoredProc
'cmd.CommandType = adCmdText   ' PDO: Version for PassThrough, use a SQL-Statement for CommandText


cmd.Parameters.Append cmd.CreateParameter("@Return_Value", adInteger, adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("@Report_Nummer", adSmallInt, , , intReportNummer)


rst.CursorType = adOpenStatic
rst.CursorLocation = adUseClient
rst.LockType = adLockReadOnly



Set rst = cmd.Execute()

If Err.Number <> 0 Then

    ' Do something

        GoTo Err_Handler
End If

If cmd.Parameters("@Return_Value") <> 0 Then

    ' Do something

        GoTo Err_Handler
End If

DoEvents



'PDO: Work with your recordset

If rst.EOF Then


    ' Do something

    GoTo Err_Handler
End If




        Do While Not rst.EOF

                ' Do something

        Loop '






'Cleanup


Err_Handler:
On Error Resume Next


rst.Close

Set rst = Nothing


Set cmd = Nothing
cnn.Close
Set cnn = Nothing




End Function