Error al pasar un objeto de mi Clase en una función
Seguramente te resulta fácil, pero, yo
Estoy un poco confundido y segado.
Estoy haciendo una aplicación en VB6 y estoy trabajando con clases, a pesar
de que VB6 no es un lenguaje POO.
Tengo una clase Pago, otra de Negocio y otra ConexionBD...
La Clase Pago tiene sus propiedades como fecha, monto, etc.
Y se llama DTO_Pago
La Clase Negocio "NEG_Pago" tiene un método llamado "GrabarRegistro" y
debería recibir un objeto de la clase "Pago" para luego recorrerlo e
insertarlo en la BD, en el fondo la ocupo para formar la sentencia SQL que
me insertará el registro
algo así:
Sub GrabarRegistro(pAuxPago() As DTO_Pago)
...
Set pAuxPago = New DTO_Pago
...
End sub
en el botón "Ingresar" de un formulario tengo:
Private Sub Ingresar_Click()
Dim auxNegPago As NEG_Pago
Dim auxPago As DTO_Pago
Set auxNegPago = New NEG_Pago
Set auxPago = New DTO_Pago
En auxPago ingreso los datos recuperados del formulario...
Luego..
AuxNegPago. GrabarRegistro (auxPago)
Y me arroja el siguiente error:
"Error 438. El objeto no admite esta propiedad o método."
Bueno, eso es... Espero haber sido claro, de lo contrario me comentas para
poder entregarte más datos..
Estoy un poco confundido y segado.
Estoy haciendo una aplicación en VB6 y estoy trabajando con clases, a pesar
de que VB6 no es un lenguaje POO.
Tengo una clase Pago, otra de Negocio y otra ConexionBD...
La Clase Pago tiene sus propiedades como fecha, monto, etc.
Y se llama DTO_Pago
La Clase Negocio "NEG_Pago" tiene un método llamado "GrabarRegistro" y
debería recibir un objeto de la clase "Pago" para luego recorrerlo e
insertarlo en la BD, en el fondo la ocupo para formar la sentencia SQL que
me insertará el registro
algo así:
Sub GrabarRegistro(pAuxPago() As DTO_Pago)
...
Set pAuxPago = New DTO_Pago
...
End sub
en el botón "Ingresar" de un formulario tengo:
Private Sub Ingresar_Click()
Dim auxNegPago As NEG_Pago
Dim auxPago As DTO_Pago
Set auxNegPago = New NEG_Pago
Set auxPago = New DTO_Pago
En auxPago ingreso los datos recuperados del formulario...
Luego..
AuxNegPago. GrabarRegistro (auxPago)
Y me arroja el siguiente error:
"Error 438. El objeto no admite esta propiedad o método."
Bueno, eso es... Espero haber sido claro, de lo contrario me comentas para
poder entregarte más datos..
1 respuesta
Respuesta de Roberto Alvarado
1