使用 MS Access 执行 SQL 存储过程

Question

我需要在 MS Access 2013 中执行一个存储过程。我使用 Access 作为连接到两个数据库的前端界面。一个数据库有几个存储过程。我需要在 Access 中按下按钮来执行这些操作。

数据库已通过 SQL 服务器身份验证连接。我在 Access 中启动了一个按钮，这是此按钮后面的 VBA 代码。它是空的，只需要更多的代码来获取它运行:

Private Sub UpdateItems_Click()     
End Sub

这里是建立连接的参数和存储过程名称：

服务器名称：BOX\SQL2014
用户名：sa
密码：123456PS
数据库：SixBit
存储过程名称：spRefreshItems

请不要向我推荐类似的问题。我不使用 VBA 代码，我无法从略有不同但相似的示例中模仿某些东西。

Answer 1

试试这个：

Sub ExecSP()
    Dim connection As Object: Set connection = CreateObject("ADODB.Connection")
    Dim rs As Object: Set rs = CreateObject("ADODB.Recordset")
    With connection
        .ConnectionString = "DRIVER=SQL Server;SERVER=BOX\SQL2014;Trusted_Connection=Yes;APP=2007 Microsoft Office system;DATABASE=SixBit;User ID=sa;Password=123456PS"
        .CommandTimeout = 0
        .Open
    End With
    '<<Replace SchemeName by Scheme name of the SP>>'
    Set rs = connection.Execute("EXEC SchemeName.spRefreshItems") 
    connection.Close: Set rs = Nothing: Set connection = Nothing
    MsgBox "Done!"
End Sub

使用 MS Access 执行 SQL 存储过程

Execute SQL Stored procedure using MS Access

vba

sql-server-2012

ms-access-2013