psaje de recodset en VB6
 

Hola ,
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!!!:arriba:

Hola,

Prueba con esto:

Tamien podes probar sin el SET, asi:
Saludos :adios:

jc_monty,

Los Recodset son objetos y no se pueden asignar a variables como valores.

Lo que haces es referenciar a los objetos por lo tanto siempre debes usar la instrucción SET para poder referenciarlos.

Saludes. :adios: