Uso de ParamArray dentro de una clase

[DexterGlue]

Hola a Todos

En esta ocasiion necesito de su colaboracion para resolver el siguiente problemita...

Estoy desarrollando un clase de tipo utilitaria que sirva como capa intermedia entre la interrfaz de usuario y la base de datos. En dicha clase tengo la siguiente funcion

Código:

Public Function SaveRecords(Procedure As String, CommandType As ADODB.CommandTypeEnum, ParamArray Param() As Variant) As ADODB.Recordset
     Set SaveRecords = LoadProcedure(Procedure, CommandType, Param())   
End Function

La funcion manda a llamar a otra funcion que me permite ejecutar una sentencia TSQL cuaquiera, pasandole los parametros que requiere a un objecto ADO Command.

Los parametros son lo siguientes:

• Procedure: contiene la sentencia TSQL a ejecutar (SELECT, INSERT, UPDATE, SP)
• CommandType: Identificador del tipo de sentecia a ejecutar, segun lo indicado por ADODB.CommandTypeEnum
• Param(): listado de parametros a utilizar por la funcion, propiamente dicho para los SP

Ejemplo:

Código:

Objecto.SaveRecords "PA_SaveRecord", adCmdStoredProc, txtSucursal, txtMonto, txtFecha

DOnde
"PA_SaveRecord", es un procedimiento que se encuentra en el servidor,
adCmdStoredProc, es un valor que le indica al command el tipo de TSQL a ejecutar
txtSucursal, txtMonto, txtFecha, son parte de los parametros que recibe "PA_SaveRecord"


La funcion LoadProcedure simplemente le pasa los parametros de la funcion SaveRecords y ejecuta un objeto command.

Código:

Public Function LoadProcedure(Procedure As String, CommandType As ADODB.CommandTypeEnum, ParamArray Param() As Variant) As ADODB.Recordset
On Error GoTo ValidateErr
Dim comMain As ADODB.Command, param2 As Variant

If cn Is Nothing Then Set cn = New ADODB.Connection
If cn.State <> adStateOpen Then cn.Open StrConn
If comMain Is Nothing Then Set comMain = New ADODB.Command

comMain.CommandType = CommandType
comMain.CommandText = Procedure

If UBound(Param(), 1) > 0 Then
    Select Case TypeName(Param(0))
    Case "Integer"
                comMain.Parameters.Append comMain.CreateParameter("IdParam", adInteger, , , Param(0))
    Case "String"
                comMain.Parameters.Append comMain.CreateParameter("IdParam", adBSTR, , Len(CStr(Param(1))), CStr(Param(1)))
    Case "Date"
                comMain.Parameters.Append comMain.CreateParameter("IdParam", adDate, , , Param)    
    End Select
End If
comMain.ActiveConnection = cn

Set LoadProcedure = comMain.Execute

ValidateErr:
          msgbox  MsgBox Err.Description, vbInformation, Err.Source & " - Error Number: " & Err.Number
           Err.clear

ValidateExit:

If comMain.State = adStateOpen Then comMain.Cancel
Set comMain = Nothing

End Function

Ahora el punto esta que al pasar el Param() de la funcion SaveRecords a la funcion LoadProcedure, este se va como un elemento del arreglo que esta dentro de la funcion LoadProcedure y en este punto no se como acceder a los elementos que se pasaron como parametros por la funcion SaveRecords.

Agradeceria la ayuda que me puedan brindar en este tema

[pkj]

No tengo muy claro el asunto, pero creo que el array param() lo deberías pasar como matriz.
Algo así:

Código vb:

Private Sub Command1_Click()
  funcion1 "p1", "p2"
End Sub
 
Private Sub funcion1(ParamArray param() As Variant)
  Dim matriz() As Variant
  ReDim matriz(UBound(param))
  Dim f As Long
  For f = 0 To UBound(param)
    matriz(f) = param(f)
  Next f
  funcion2 matriz()
End Sub
 
Private Sub funcion2(param() As Variant)
  Dim f As Long
  For f = 0 To UBound(param)
    MsgBox param(f)
  Next f
End Sub
 

Saludos

PD: Notarás que he creado una nueva matriz para llenarla con la matriz que llegó con el paramarray. Es necesario, ya que la matriz del paramarray no parece ser válida para ser mandada a otra función, de modo que tuve que crear una nueva matriz para llamar a la funcion2. Al menos a mí no me dejó mandarla directamente.

[DexterGlue]

Hola PKJ

Gracias por la pronta respuesta... verificare lo que me comentas. Aun que el problema que tengo es que al meter la matriz que viene como parametro dentro de la funcion LoadProcedure recive el parametro como un elemento de la matriz, asi que al final tengo dentro de la funcion SaveRecords una matriz con un elemento... y ese elemento es otra matriz.

Al final el proposito de la funcion LoadProcedure, es ejecutar cualquier tipo de T-SQL (SELECT, INSERT, UPDATE, EXECUTE) en la base de datos y traer de regreso los datos, en caso de que asi sea, y poder devolverlos a las funciones que lo llamen..

Asi por ejemplo SaveRecords es solo una funcion que hace uso de LoadProcedure igualmente tengo otra funcion que me permite cargar catalogos, y otros tipos de informacion a controles que ya tengo definidos, y para recuperar la informacion hago uso de la funcion LoadProcedure.

Nuevamente agradezgo tu colaboracion
Saludos

[DexterGlue]

Hola PKJ

Gracias por la pronta respuesta... verificare lo que me comentas. Aun que el problema que tengo es que al meter la matriz que viene como parametro dentro de la funcion LoadProcedure recive el parametro como un elemento de la matriz, asi que al final tengo dentro de la funcion SaveRecords una matriz con un elemento... y ese elemento es otra matriz.

Al final el proposito de la funcion LoadProcedure, es ejecutar cualquier tipo de T-SQL (SELECT, INSERT, UPDATE, EXECUTE) en la base de datos y traer de regreso los datos, en caso de que asi sea, y poder devolverlos a las funciones que lo llamen..

Asi por ejemplo SaveRecords es solo una funcion que hace uso de LoadProcedure igualmente tengo otra funcion que me permite cargar catalogos, y otros tipos de informacion a controles que ya tengo definidos, y para recuperar la informacion hago uso de la funcion LoadProcedure.

Nuevamente agradezgo tu colaboracion
Saludos

[DexterGlue]

Le agradecria si alguien pudiera ayudarme con esta interrogante ya que todabia sigo con el mismo problema...

Saludos

[pkj]

Si lo he entendido bien, y despues de darle vueltas y hacer nuevas pruebas, la solucion más simple es la única que se me ocurre que pueda funcionar.

Si siempre va a entrar la misma cantidad de parámetros solo tendrias que crear una linea que los cargue uno a uno:

Código vb:

Set SaveRecords = LoadProcedure(Procedure, CommandType, Param(0), Param(1), Param(2))
 

Sin embargo, si es un paramarray suele ser porque no se sabe cuantos parametros va a recibir, de modo que la unica solucion que se me ocurre y que debe funcionar es hacer la llamada segun la cantidad de parametros que arrastre param():

Código vb:

if ubound(param)=0 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, Param(0))
 
elseif ubound(param)=1 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1))
 
elseif ubound(param)=2 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1), _
Param(2))
 
'...etc
'...etc
'...debes poner hasta un valor alto por si entra un comando con muchos parametros
 
'p.ej:
elseif ubound(param)=30 then
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1) _
Param(2), Param(3) _
Param(4), Param(5) _
Param(6), Param(7) _
Param(8), Param(9) _
Param(10), Param(11) _
Param(12), Param(13) _
Param(14), Param(15) _
Param(16), Param(17) _
Param(18), Param(19) _
Param(20), Param(21) _
Param(22), Param(23) _
Param(24), Param(25) _
Param(26), Param(27) _
Param(28), Param(29) _
Param(30))
 
' y si son demasiados parametros podemos avisar
Else
  MsgBox "Demasiados parámetros en la llamada a LoadProcedure"
 
End If
 

Yo es que no consigo recibir ni la matriz dentro de otra matriz, porque me da error de tipos diferentes de datos, de modo que no puedo llegar mas lejos que esto. Espero que al menos te saque del paso si no lo habias hecho ya.

Suerte