Мой код VBA предназначен для возврата значения из хранимой процедуры (в SQL) с использованием выходного параметра, но я не могу получить значение для возврата

Question

У меня проблемы с возвратом значения из таблицы SQL в переменную в vba. Я использую динамический SQL с хранимой процедурой, которая принимает 4 входных параметра и один выходной параметр. После выполнения хранимой процедуры должна быть возвращена плотность типа металла, который передается в качестве параметра. В настоящее время я выполняю код с использованием жестко закодированных тестовых значений в качестве параметров, поэтому я могу ожидать вывода. Я не верю, что проблема в моем соединении или в том, как я передаю свои параметры - но я все равно покажу их.

Всякий раз, когда я устанавливаю свою переменную 'output' (String), равную выходному параметру хранимой процедуры, я получаю ОШИБКУ 0.

Если что-то отсутствует в моем коде, дайте мне знать. В противном случае, если есть лучший способ возврата выходного параметра, я тоже могу попробовать это.

Я попытался выполнить хранимую процедуру в SQL с использованием заданных значений.

Приведенный ниже код был сгенерирован автоматически, когда я выполнил хранимую процедуру, щелкнув ее правой кнопкой мыши в SSMS (я хотел посмотреть, как она будет выполняться из vba) - потому что она возвращает неправильное значение Я думаю, что проблема заключается в в моей хранимой процедуре и не обязательно VBA.

USE [AFCD]
GO

DECLARE @return_value int,
        @record_value nvarchar(max)

EXEC    @return_value = [dbo].[GET_ADDITIVE_DATA]
        @user_index = N'Titanium(1)',
        @primary_col_index = N'DENSITY',
        @secondary_col_index = N'WIRE_TYPE',
        @data_table_name = N'WIRE_INDEX',
        @record_value = @record_value OUTPUT

SELECT  @record_value as N'@record_value'

SELECT  'Return Value' = @return_value

GO

Выходные данные этого запроса возвращают параметр @record_value, равный 0,163, который является правильным, но параметр @return_value равен 0, что я не понимаю.

- Хранимая процедура:

USE AFCD
GO

ALTER PROCEDURE dbo.GET_ADDITIVE_DATA (@user_index nvarchar(max),
                                       @primary_col_index nvarchar(max),
                                       @secondary_col_index nvarchar(max), 
                                       @data_table_name nvarchar(max),
                                       @record_value nvarchar(max) output
                                       ) AS
BEGIN

    DECLARE @query nvarchar(max)

    SET @query = 'SELECT @record_value = ' + @primary_col_index  + 
             ' FROM ' + @data_table_name +
                 ' WHERE ' + @secondary_col_index + ' = ''' + @user_index + ''''

    EXEC sp_executesql @query, 
                   N'@record_value nvarchar(max) output', 
                   @record_value = @record_value output
END

'VBA CODE:

Private output As String
'-------------------------------------------------------------------------

' Parameters are passed in that will be used to create a SQL statement
' for a stored procedure.

Public Sub SQL_StoredProcedure(ByVal sql_ui As String, ByVal sql_pci As String, ByVal sql_sci As String, ByVal sql_dtn As String)

'
'
'
'
sqlcmd.ActiveConnection = sqlconxn ' makes the sql connection
    sqlcmd.CommandType = adCmdStoredProc ' sets command to a stored procedure
    sqlcmd.CommandText = "GET_ADDITIVE_DATA" ' name of the stored procedure

    ' Parameters that need to be called and defined whenever the stored procedure is called
    sqlcmd.Parameters.Append sqlcmd.CreateParameter("@user_index", adVarChar, adParamInput, 255)
    sqlcmd.Parameters.Append sqlcmd.CreateParameter("@primary_col_index", adVarChar, adParamInput, 255)
    sqlcmd.Parameters.Append sqlcmd.CreateParameter("@secondary_col_index", adVarChar, adParamInput, 255)
    sqlcmd.Parameters.Append sqlcmd.CreateParameter("@data_table_name", adVarChar, adParamInput, 255)
    sqlcmd.Parameters.Append sqlcmd.CreateParameter("@record_value", adVarChar, adParamOutput, 255)

    ' Parameter values are set equal to the values passed in through excel by the user
    ' The stored procedure in SQL opertaes using dynamic SQL so all inputs are defined as String values
    sqlcmd.Parameters("@user_index").Value = sql_ui
    sqlcmd.Parameters("@primary_col_index").Value = sql_pci
    sqlcmd.Parameters("@secondary_col_index").Value = sql_sci
    sqlcmd.Parameters("@data_table_name").Value = sql_dtn

    Set sqlrs = New ADODB.recordSet ' new recordset
    sqlrs.CursorType = adOpenStatic
    sqlrs.LockType = adLockOptimistic
    sqlrs.Open sqlcmd ' Execute the stored procedure

    output = sqlcmd.Parameters("@record_value").Value
    Debug.Print "OUTPUT: " & output

    sqlconxn.Close

End Sub

Журнал отладки должен просто отображать значение плотности:

Пример:

0,163

Answer 1

Я понял это. Для тех, кому интересно, когда вы хотите вернуть одно значение из базы данных в SQL из vba, не используйте набор записей. (хотя я думаю, что вы можете) Причина в том, что наборы записей предназначены для возврата данных в виде таблицы - что вызвало у меня много проблем.

Чтобы вернуть единственное значение, все, что вам нужно сделать, - это выполнить команду SQL в vba, а затем установить в качестве возвращаемой переменной значение выходного параметра из вашей хранимой процедуры. Если это не имеет смысла, я поместил весь мой рабочий код ниже из vba и мою хранимую процедуру.

TEST SUB - я использовал это, чтобы проверить один пример возможных входных данных из Excel.

Private Sub TestSub()

SQL_StoredProcedure "Stainless Steel", "DENSITY", "WIRE_TYPE", "WIRE_INDEX"

End Sub

МОДУЛЬ VBA

Option Explicit

Private output As String

' Parameters are passed in that will be used to create a SQL statement
' for a stored procedure.
Public Sub SQL_StoredProcedure(ByVal sql_ui As String, _
                                ByVal sql_pci As String, _
                                ByVal sql_sci As String, _
                                ByVal sql_dtn As String)

    On Error GoTo RunTimeError

    Dim sqlconxn As ADODB.connection ' Connection between vba and SQL
    Dim sqlcmd As ADODB.Command ' Operates as a command between SQL and vba
    Dim sqlfld As ADODB.field ' Used to refer to the records or fields in SQL

    Dim output As String ' The output retrieved from the SQL stored procedure
    Dim conxnString As String ' Connection string is used to make the connection between vba and SSMS

    Application.ScreenUpdating = False

    ' String used to establish a connection to the database
    conxnString = '{your connection string}'

    ' Every time the SQL_StoredProcedure function is called a new instance of the
    ' connection, command, and recordset are made and then immediately closed once the function finishes
    Set sqlconxn = New ADODB.connection
    Set sqlcmd = New ADODB.Command

    sqlconxn.ConnectionTimeout = 30
    sqlconxn.Open conxnString ' makes the connection between SQL

    MsgBox "Connection 1 state: " & GetState(sqlconxn.state) ' Checks the status of the connection

    sqlcmd.CommandType = adCmdStoredProc ' sets command to a stored procedure
    sqlcmd.CommandText = "GET_ADDITIVE_DATA" ' name of the stored procedure
    sqlcmd.ActiveConnection = sqlconxn ' makes the sql connection

    ' Parameters that need to be called and defined whenever the stored procedure is called
    sqlcmd.Parameters.Append _
        sqlcmd.CreateParameter("@user_index", adVarChar, adParamInput, 255, sql_ui)
    sqlcmd.Parameters.Append _
        sqlcmd.CreateParameter("@primary_col_index", adVarChar, adParamInput, 255, sql_pci)
    sqlcmd.Parameters.Append _
        sqlcmd.CreateParameter("@secondary_col_index", adVarChar, adParamInput, 255, sql_sci)
    sqlcmd.Parameters.Append _
        sqlcmd.CreateParameter("@data_table_name", adVarChar, adParamInput, 255, sql_dtn)
    sqlcmd.Parameters.Append _
        sqlcmd.CreateParameter("@record_value", adVarChar, adParamOutput, 255)

    ' Executes the sql command with all parameters already passed in
    sqlcmd.Execute

    ' output string is set equal to the output parameter of the stored procedure
    output = sqlcmd.Parameters("@record_value").Value

    Debug.Print "OUTPUT: " & output ' prints whatever was returned from the SP

    sqlconxn.Close ' Closes the sqlconxn

    Exit Sub

RunTimeError: ' Reportd any errors that might occur in the system and

    Dim strError As String
    strError = "ERROR: " & Err.Number & vbCrLf & Err.Description
    MsgBox strError
    Debug.Print strError

Exit Sub

End Sub

ПРОВЕРЬТЕ ФУНКЦИЮ СОСТОЯНИЯ - это было просто подтверждение соединения

Private Function GetState(state As Integer) As String

    Select Case state
        Case adStateClosed
            GetState = "Closed"
        Case adStateOpen
            GetState = "Open"

    End Select

End Function

ПРОЦЕДУРА, ХРАНЕННАЯ НА SQL

USE AFCD
GO

ALTER PROCEDURE dbo.GET_ADDITIVE_DATA (@user_index nvarchar(max),
                                       @primary_col_index nvarchar(max),
                                       @secondary_col_index nvarchar(max), 
                                       @data_table_name nvarchar(max),
                                       @record_value nvarchar(max) output
                                       ) AS
BEGIN

    DECLARE @output_value nvarchar(max)
    DECLARE @query nvarchar(max)

    SET @query = 'SELECT @record_value = ' + @primary_col_index  + 
                 ' FROM ' + @data_table_name +
                 ' WHERE ' + @secondary_col_index + ' = ''' + @user_index + ''''

    EXEC sp_executesql @query, 
                       N'@record_value nvarchar(max) output', 
                       @record_value = @record_value output

END

OUTPUT

OUTPUT: 0.284