locked
Pegar retorno de FUNCTION com ADODB.Command RRS feed

  • Pergunta

  • 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
    terça-feira, 29 de setembro de 2009 18:45

Todas as Respostas

  • Jogue em um recordset.
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 3 de outubro de 2009 03:12
    Moderador