none
Carregar recordset com uma Stored Procedure com parâmetros RRS feed

  • Pergunta

  • Estou tentando carregar um recordset com uma Stored Procedure com parâmetros, porém está apresentando erro.

    Public Function FP_MovimentacaoBancaria(idConta As Integer, mes As Integer, ano As Integer) As ADODB.Recordset
    On Error GoTo Erro
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    Dim par As New ADODB.Parameter
    
        Set cn = CurrentProject.Connection
    
        cmd.ActiveConnection = cn
        
        cmd.CommandText = "pa_MovimentacaoBancariaMes"
        cmd.CommandType = adCmdStoredProc
    
        Set par = cmd.CreateParameter("@Mes", adInteger, adParamInput, , mes)
        Set par = cmd.CreateParameter("@Ano", adInteger, adParamInput, , ano)
        Set par = cmd.CreateParameter("@idConta", adInteger, adParamInput, , idConta)
    
        cmd.Parameters.Append par
        Set cmd.ActiveConnection = cn
        Set rs = cmd.Execute
    
        Dim a
        a = rs.RecordCount
    
        Set FP_MovimentacaoBancaria = rs
    
    Sair:
        Set cn = Nothing
        Exit Function
    
    Erro:
        MsgBox Err.Description, vbOK + vbCritical, "Erro - FP_MovimentacaoBancaria"
        Set FP_MovimentacaoBancaria = Nothing
        Resume Sair
    End Function


    Sergio Ivanenko

    sábado, 23 de maio de 2020 15:26