Pasar objeto en un parámetro de una función

[miguel867]

Buenas tengo definida esta funcion en una clase de VB6:

Public Sub insertarSocio(ByRef soc As cSocio) // funcion que tengo en una clase BDatos

Me.consulta = "INSERT INTO socio ... "
Me.bdatos.Execute (Me.consulta)

End Sub

Al invocar esta funcion de la siguiente manera:

Set miSocio = New cSocio
dbCon.insertarSocio (miSocio)

Da el siguiente error: "Error 438. El objeto no admite esta propiedad o método.
Creo que la causa es el objeto miSocio al pasarlo como parámetro. Al ser un objeto este parámetro igual no lo hago bien. He probado a definir esta parámetro como ByVal y ByRef pero no funciona.

¿Alguien me puede ayudar? No sé que puede ser.

Saludos y Gracias!!!

[Kruzado]

lo ke se me ocurre es que los procedimientos son codigos que se ejecutan cuando los invocan, NO SON PROPIEDADES propiedades de un ojbjeto, entonces para poder utilizar tu procedimiento solo debes llamarlo ejemplo: insertarSocio (miSocio)


dbcon es un objeto ke lo mas probable es ke lo tengas definido como base de datos o como una conexin a base de datos, entonces este tipo de objeto no tiene como propiedad tu procedimiento insertarsocio, entonces se cae cuando lo colocas como propiedad de dbcon (dbcon.insertarsocio), revisa tu odigo y lo ke kieres hacer

[miguel867]

Te explico:

El primer procedimiento (insertarSocio) está en una clase llamada cBD y algunos de los atributos que tiene son "Consulta" y "bdatos". Por eso los referencio como "Me" dentro de ese procedimiento.

El problema es que el argumento de este procedimiento es una instancia de la clase "Socio", en lugar de haber pasado todos los atributos de la clase "Socio" en el procedimiento de insertar (ya que son muchisimos).

¿Sabes si se pueden pasar como argumento una instancia de una clase?¿Y cómo?

saludos y Gracias.

[culd]

Hermano, no se entiendo nada de lo que pedis... Explicalo todo de nuevo con detalles.

Algunas correcciones pelotudas que hago... Public Sub es una SUB ACCION, una funcion devuelve un valor osea Public Function.

Segun lo poco que entendi, es que con esta subaccion vos queres es utilizar el objeto cSocio seria algo asi mira...

Public Sub insertarSocio(TuObjeto as Object)

Ahi recien podes manejar un objeto, pero con Me no vas a hacer nada, tenes que usar el nombre del objeto es decir

TuObjeto.consulta = blablabla

Explica todo devuelta

[GeoAvila]

Iniciado por miguel867

Buenas tengo definida esta funcion en una clase de VB6:

Public Sub insertarSocio(ByRef soc As cSocio) // funcion que tengo en una clase BDatos

Me.consulta = "INSERT INTO socio ... "
Me.bdatos.Execute (Me.consulta)

End Sub

Al invocar esta funcion de la siguiente manera:

Set miSocio = New cSocio
dbCon.insertarSocio (miSocio)

Da el siguiente error: "Error 438. El objeto no admite esta propiedad o método.
Creo que la causa es el objeto miSocio al pasarlo como parámetro. Al ser un objeto este parámetro igual no lo hago bien. He probado a definir esta parámetro como ByVal y ByRef pero no funciona.

¿Alguien me puede ayudar? No sé que puede ser.

Saludos y Gracias!!!

que hace tu funcion, coloca el codigo y creo que deberia ser asi


Me.bdatos.Execute ( Me.consulta ("INSERT INTO socio ... " ))

nos vemos..