Добрый день. По кнопке запускаю в MS SQL процедуру. необходимо получить обратную реакцию от сервера об окончании выполнения или ошибке. Подскажите каким образом это можно реализовать? Соединение с SQL организовано следующим образом:
Код
Private Sub avt_insert_Monthdata_1_Click()
Dim cn As ADODB.Connection
Dim str As String 'данные для передачи в sql
Dim Datetime As String ' переменная даты
Datetime = "01." & TextBox4m.Text & "." & TextBox4y.Text & " 00:00"
Set cn = CreateObject("ADODB.Connection")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "user id = sa; Password=;Data source = 192.168.1.1; initial catalog = se"
cn.Open
str = "exec sp_avt_insert_Monthdata " & "'" & Datetime & "'"
cn.Execute (str)
End Sub