Передача параметров из хранимой процедуры в функции - VB

Формулировка задачи:

Имеется хранимая процедура с выходным параметром. Как можно получить этот параметр в функции Visual Basic?

Решение задачи: «Передача параметров из хранимой процедуры в функции»

textual
                            Листинг программы 
                        

                            Private Function ImportInsertUpdate(sDoc <font color="blue">As</font> String, sDocDate <font color="blue">As</font> String, sIN <font color="blue">As</font> String, _
<br>                                    sOUT <font color="blue">As</font> String, sDEB <font color="blue">As</font> String, sKRED <font color="blue">As</font> String, _
<br>                                    sBAL <font color="blue">As</font> String, sFilePath <font color="blue">As</font> String, sFileText <font color="blue">As</font> String) <font color="blue">As</font> Long
<br>
<br>    Dim cnn <font color="blue">As</font> ADODB.Connection, cmd <font color="blue">As</font> ADODB.Command
<br>
<br>    <font color="blue">Set</font> cnn = New ADODB.Connection
<br>    cnn.<font color="blue">Open</font> m_def_ConnectString
<br>
<br>    <font color="blue">Set</font> cmd = New ADODB.Command
<br>    <font color="blue">With</font> cmd
<br>        .ActiveConnection = cnn
<br>        .CommandText = <b><font color="green">"sp_BNPImport_Insert_Or_Update"</font></b>
<br>        .CommandType = adCmdStoredProc
<br>        .Parameters.Append .CreateParameter(, adTinyInt, , , iBase)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">50</font></b>, sDoc)
<br>        .Parameters.Append .CreateParameter(, adDate, , , sDocDate)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">20</font></b>, sIN)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">20</font></b>, sOUT)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">20</font></b>, sDEB)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">20</font></b>, sKRED)
<br>        .Parameters.Append .CreateParameter(, adVarChar, , <b><font color="darkblue">20</font></b>, sBAL)
<br>        .Parameters.Append .CreateParameter(, adChar, , FileLen(sFilePath), sFileText)
<br>        .Parameters.Append .CreateParameter(, adInteger, adParamOutput)
<br>        .<font color="blue">Execute</font>
<br>    <font color="blue">End</font> <font color="blue">With</font>
<br>    ImportInsertUpdate = cmd(<b><font color="darkblue">9</font></b>)
<br>    <font color="blue">Set</font> cmd = Nothing
<br>
<br>    cnn.Close
<br>    <font color="blue">Set</font> cnn = Nothing
<br>
<br><font color="blue">End</font> Function
<br>
                        