Visual Basic - Funcion que ejecute un command con parametros

Hola a Todos!

Me gustaria saber como hacer una funcion que ejecute una sentecia SQL desde un objeto command con un numero indefinido de parametros para asi no volver a escribir ese codigo. He tratado de hacerlo pero mi problema son los parametros tendria que declarar tantos objetos Parameter como parametros pasads en la funcion. Digamos si en param array le paso 2 parametros tendria que crear 2 objetos parameters e intanciarlos y añadirlos al objeto command en el metodo parameters.add del mismo.

Public Function f_ejecutar(ParamArray VarParm()) As Integer
Set RstConsulta = New ADODB.Recordset
Set CmdEjecuta = New ADODB.Command
CmdEjecuta.ActiveConnection = cn
CmdEjecuta.CommandType = adCmdStoredProc
CmdEjecuta.CommandText = "productos"
'faltarian los parametros que quiero pasar
Set f_RstConsulta = CmdEjecuta.Execute
End Function

Les agradeceria mucho si alguien me pudiese ayudar.
Ya que quiero implementar esto en una clase y asi tener una libreria y no estar escribiendo varios command ya que solo lo instanciaria.

Si no me han entendido haganmelo saber para explicarme mejor o escriban a mi correo [email protected]

De antemano gracias a todos por su colaboración

Saludos a todos!!

No entendi bien tu pregunta, pero tal vez esto pueda ayudarte en algo

porqué en lugar de pasarle parámetros a la función, no le pasas la cadena SQL a ejecutar, es decir, si vas a utilizar un "Select * from basdat where campo1=param1 and campo2=param2 ...;"

en lugar de pasar param1, param2, etc. a la función, pasale un solo parámetro que sería toda la consulta.

no se si sea lo que preguntabas, y espero te sirva

Y por que no haces una clase, con metodos y propiedades?????????

Supongamos q tu clase se llama myClase

dim x as new myClase

with x
.tablas = "Paises"
.agregarParametro = "Pais = 'Chile' "
.agregarParametro = "Habitantes > ' & txtCantidadHabitantes.Text
.ordenar = True
.OrdenarPor = "Pais, Habitantes"
.ejecutarSelect
end with

if not x.Rs then
msgbox "Sin Resultados"
exit sub
endif

x.irAlPrimero

do while not x.EOF
msgbox x.Campo("Pais")
msgbox x.Campo("Habitantes")
msgbox x.Campo("Presidente")

x.MoverAlSiguiente
loop

ESTA MAS QUE CLARO O NO.... AHORA... LO QUE HACE LA CLASE DEBES DE SABER PROGRAMARLO

Lo primero que hacemos es instanciar la clase

El metodo agregarParametro, es como un addItem
La propiedad ordenar, determina se se ordena el recordset
La propiedad OrdenarPor, indica los campos de orden

El Metodo ejecutarSelect te permitirua ejecutar la instruccion SELECT
"SELECT * FROM Paises WHERE Pais='Chile' AND Habitantes>1500000 ORDER BY Pais, Habitantes"

Ademas, creas metodos al estilo de los RS para recorrer los registros
y propiedades para determinar si hubieron registros, o se esta en EOF o BOF, puedes hacer lo que quieras.

Espero te sirva la idea

adios