Ejecutar SP

[bakanzipp]

hhmmm...

si quieres parametrizar la cantidad de parametros segun la consulta por lo menos yo nunca lo he hecho...

las veces que he tenido que llamar a un sp con diferentes cantidad de parametros he realizado una nueva funcion...

si no te sirva pucha lamentable...pero no he probado lo que tu quieres hacer

Código:

  
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim params As ADODB.Parameters
Dim param As ADODB.Parameter

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command

cn.ConnectionString = strConnectionString
cn.Open


With cmd
    Set .ActiveConnection = cn
    .CommandText = "sp"
    .CommandType = adCmdStoredProc
    Set params = .Parameters
End With
    params.Append cmd.CreateParameter("@strvar1", adVarChar, adParamInput, 4)
    params.Append cmd.CreateParameter("@strvar2", adVarChar, adParamInput, 5)
    params.Append cmd.CreateParameter("@strvar3", adVarChar, adParamInput, 5)
    params.Append cmd.CreateParameter("@intvar4", adInteger, adParamInput, 1)
    params.Append cmd.CreateParameter("@strsalida", adVarChar, adParamOutput, 3)

    params("@strvar1") = var1
    params("@strvar2") = var2
    params("@strvar3") = var3
    params("@intvar4") = var4

    cmd.Execute , , adExecuteNoRecords
    
    Funcion = params("@strsalida")