29/11/2007, 04:58
|
| | | Fecha de Ingreso: abril-2006
Mensajes: 131
Antigüedad: 19 años Puntos: 1 | |
| Pasar objeto en un parámetro de una función
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!!! |