Pegar retorno de FUNCTION com ADODB.Command

Question

Buenas Galera!

Usando SP é tranquilo, crio um parâmetro Output e pego o valor.
Como pego o valor "return" da Function do SQL?



Public Function MinhaFuncaoVBA(ByVal Valor1 As Long, ByVal Valor2 As Integer) As Boolean
Dim cnADO As ADODB.Connection
Dim cmADO As ADODB.Command

Call modConexaoADO.AbreConexao(cnADO)

Set cmADO= New ADODB.Command
With cmADO
Set .ActiveConnection = cnADO
.CommandText = "dbo.MinhaFuncaoSQL"
.CommandType = adCmdStoredProc
.CommandTimeout = 0

.Parameters.Append .CreateParameter("@numeroProtocolo", adInteger, adParamInput, , Valor1 )
.Parameters.Append .CreateParameter("@anoProtocolo", adSmallInt, adParamInput, , Valor2 )

.Execute

' Como pego o valor return da Function do SQL??
' MinhaFuncaoVBA = ??
End With

Call modConexaoADO.FechaCommand(cmADO)
Call modConexaoADO.FechaConexao(cnADO)

---

Douglas Moura | Cuiabá-MT

Answer 1

Jogue em um recordset.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br