0

SQL Server ストアド プロシージャから影響を受けるレコードを返し、Access データベースで VBA を使用してメッセージ ボックスに表示する方法が必要です。以下は、Access 内のすべてのストアド プロシージャを実行するために使用する手順です...

Public Sub SP(exec As String)
    Dim qdf As DAO.QueryDef
    Dim strConn As String

    strConn = "ODBC;DRIVER=SQL Server;SERVER=;DATABASE=;Trusted_Connection=Yes"

    Set qdf = CurrentDb.CreateQueryDef("")
    With qdf
        .Connect = strConn
        .ReturnsRecords = False
        .SQL = exec
        .Execute
        .Close
    End With
    Set qdf = Nothing
End Sub
4

1 に答える 1

1

Connection、DatabaseそしてQueryDefすべてが.RecordsAffectedプロパティを持っています。

次のことを試してください。

Public Sub SP(exec As String)
    Dim qdf As DAO.QueryDef
    Dim strConn As String

    strConn = "ODBC;DRIVER=SQL Server;SERVER=;DATABASE=;Trusted_Connection=Yes"

    Set qdf = CurrentDb.CreateQueryDef("")
    With qdf
        .Connect = strConn
        .ReturnsRecords = False
        .SQL = exec
        .Execute
        MsgBox Exec & vbCrLf & vbCrLf & .RecordsAffected & " Record(s) Affected."
        .Close
    End With
    Set qdf = Nothing
End Sub
于 2013-09-09T22:19:07.660 に答える