Tengo un problema con el pasaje de recordset entre una clase y un form.
La idea es que tengo una clase articulo, y desde el formulario le puedo pedir dameElArt (id as integer) o dameElArt(codigoBarras as double) y asi.
pero cuando la clase tiene que devolver el recordset me tira un error:
"Invalid use of property" y no se que hacer!
Esta es la funcion de la clase:
Public Function dameEsteID(ByVal id As Integer) As ADODB.Recordset
Dim sql_id As String
sql_id = "Select * from articulos where id = " & id
Rs_Articulo.Open sql_id, Con.Conexion, adOpenDynamic, adLockOptimistic
dameEsteID = Rs_Articulo.Clone ' devuelvo el recordset
Rs_Articulo.Close
End Function
Y desde este procedimiento llamo a esta funcion de la clase:
Private Sub cmdId_Click()
On Error GoTo errBusq
id = CInt(txtId.Text)
'Set regis =
completarCampos art.dameEsteID(id)
'llenarcampos CInt(txtid.Text), "", 0, ""
Exit Sub
errBusq:
MsgBox "Ingrese un id válido"
End Sub
Obviamente el objeto articulo ya lo cree en el form_load:
Set art = New Articulo
y lo declare al inicio :
Private art As Articulo
Cualquier ayuda será bienvenida!!!
