通过 ADO/VBA 指示 SQL Server 存储过程更新成功/失败的返回值

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
conn.Open

Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = 4 'adCmdStoredProc，表示执行存储过程
cmd.CommandText = "存储过程名称"

Dim returnValue As Integer
cmd.Execute , , 128 '将返回值存储在returnValue变量中
returnValue = cmd.Parameters(0).Value '获取返回值

If returnValue = 0 Then
    ' 存储过程更新成功的处理逻辑
Else
    ' 存储过程更新失败的处理逻辑
End If