MS Access 调用 SQL Server 存储过程

VBA

使用 MS Access 调用 SQL Server 存储过程可以方便地在 Access 中与 SQL Server 进行数据交互和处理。本文将介绍如何使用 MS Access 调用 SQL Server 存储过程，并提供一个案例代码来帮助读者理解。

准备工作

在开始之前，我们需要确保已经正确安装了 MS Access 和 SQL Server，并且两者之间已经建立了连接。如果还没有完成这些准备工作，可以先进行相应的安装和配置。

调用 SQL Server 存储过程

在 MS Access 中调用 SQL Server 存储过程需要使用 VBA 编程语言。首先，我们需要在 Access 中创建一个新的模块，然后使用以下代码来调用存储过程：

Public Sub CallStoredProcedure()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    
    ' 获取当前数据库
    Set db = CurrentDb
    
    ' 创建一个查询定义对象
    Set qdf = db.CreateQueryDef("")
    
    ' 设置查询定义的 SQL 字符串为存储过程调用语句
    qdf.SQL = "EXEC your_stored_procedure_name"
    
    ' 执行查询定义
    qdf.Execute
    
    ' 清除对象引用
    Set qdf = Nothing
    Set db = Nothing
End Sub

在上述代码中，你需要将 your_stored_procedure_name 替换为你要调用的存储过程的名称。这段代码将创建一个查询定义对象，并将其 SQL 字符串设置为存储过程的调用语句，然后执行该查询定义。

案例代码

假设我们有一个 SQL Server 数据库中的存储过程，用于计算某个表中的记录总数。我们可以使用 MS Access 来调用这个存储过程，并将结果显示在 Access 的表单上。

首先，在 SQL Server 数据库中创建一个名为 GetRecordCount 的存储过程，代码如下：

CREATE PROCEDURE GetRecordCount
AS
BEGIN
    SELECT COUNT(*) AS RecordCount
    FROM YourTableName
END

然后，在 MS Access 中创建一个新的表单，命名为 frmRecordCount，并添加一个按钮控件。在按钮的点击事件中，添加以下 VBA 代码：

Private Sub btnGetRecordCount_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rs As DAO.Recordset
    
    ' 获取当前数据库
    Set db = CurrentDb
    
    ' 创建一个查询定义对象
    Set qdf = db.CreateQueryDef("")
    
    ' 设置查询定义的 SQL 字符串为存储过程调用语句
    qdf.SQL = "EXEC GetRecordCount"
    
    ' 执行查询定义并将结果保存到记录集中
    Set rs = qdf.OpenRecordset
    
    ' 将记录集中的记录总数显示在表单上
    Me.txtRecordCount.Value = rs!RecordCount
    
    ' 关闭记录集和查询定义对象
    rs.Close
    qdf.Close
    
    ' 清除对象引用
    Set rs = Nothing
    Set qdf = Nothing
    Set db = Nothing
End Sub

在上述代码中，我们首先创建了一个查询定义对象，然后将其 SQL 字符串设置为存储过程的调用语句。接着，我们执行查询定义，并将结果保存到一个记录集中。最后，我们将记录集中的记录总数显示在表单上的一个文本框中。

通过以上步骤，我们可以很方便地在 MS Access 中调用 SQL Server 存储过程。这使得我们可以在两个平台之间轻松地进行数据交互和处理。希望本文能对读者有所帮助。