[SOLUCIONADO] Ayuda con esta clase en Visual Basic 6.0 (solucionado)

[Tik3r]

Hola, me baje esta clase (http://anonym.to/?http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/268-ado-paginar-listview.htm) para integrarla en mi programa, pero incluso cuando pongo en el formulario lo que el autor pone, me da error 91 "Variable de tipo object o la variable de bloque with no esta establecida" en esta parte del codigo:

Código vb:

'
Para la Conexión ADO
Public Property Get Connection() As ADODB.Connection
Connection = m_Connection
End Property
 
'Establece
Public Property Set Connection(Conexion_ADODB As ADODB.Connection)
Set m_Connection = Conexion_ADODB
End Property
 

Les pongo parte del codigo del formulario donde intento conectar y utilizar la clase:

Código vb:

'
Propiedades de la conexión ADO
    cnn.CursorLocation = adUseClient
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & frmInicio.RUTA_BD
 
'Configuro el objeto obj para crear la listview
With obj
    'Le doy la conexión
    .Connection = cnn
    'Ejecuto la sentencia:
    .sql = "SELECT * FROM ARTICULOS"
    'Le paso la listviw
    .ListView = lvRegistros
    .Registros_Por_Pagina = frmInicio.NUM_REG
    .AutoSizeColumnHeader = AJUSTAR_POR_COLUMNA
    'Voy a la primera pagina y cargo los datos en la listview
    .GoToPage (1)
End With
 

Gracias por adelantado :)

PD: Si no se pueden poner enlaces decidmelo y lo modifico y subo la clase a un txt

[pkj]

Debe ser que no has creado una variable obj o no es accesible desde esa sub.
Pon al comienzo del código:

Option Explicit
Dim WithEvents obj As Class1


Después en el load pones lo que dice el autor:
Set obj = New Class1

Y quizá se arregle tu problema.

Suerte

[Tik3r]

Pues probe eso... y nada de nada... grax igualmente pero ske nose porque no funciona si lo hice todo igual que como el autor lo tiene puesto... alguien puede probar si le funciona? tengo instalado los parches para el vb6 asi ke sta actualizado... si alguien me puede ayudar se lo agradeceria muchisimo ya que me es urgente

Por cierto, esto no me pasa solo en sta clase, si no en todas, al tratar de pasarle objetos (recordset, etc.) siempre me da el mismo problema... a lo mejor tengo que añadir algo mas aparte del activex o nose...

Gracias de nuevo!

[Tik3r]

Weno ya encontre el error, staba en las propiedades de la clase. Quedarian así:

Código vb:

'********************************************
'Propiedades
'********************************************
 
' Para la Conexión ADO
Public Property Get Connection() As ADODB.Connection
Connection = m_Connection
End Property
 
'Establece
Public Property Set Connection(Conexion_ADODB As ADODB.Connection)
Set m_Connection = Conexion_ADODB
End Property
 
Public Property Let Connection(Conexion_ADODB As ADODB.Connection)
Set m_Connection = Conexion_ADODB
End Property
 
' Propiedad para el ListView
Public Property Get ListView() As ListView
    Set ListView = m_ListView
End Property
 
Public Property Set ListView(v_ListView As ListView)
    Set m_ListView = v_ListView
End Property
 
Public Property Let ListView(v_ListView As ListView)
    Set m_ListView = v_ListView
End Property
 

Lo pongo x si a alguien le pasa lo mismo :D

[McNel]

Buenas,
pues no esta alli donde dices el error.
El error esta en usar Set en la clase y no asignar la propiedad con Set:

.Connection = cnn

deberia ser

Set .Connection = cnn

si quieres usarlo sin Set, la declaracion en la clase para la asignacion de valor entonces debe ser Let aunque para pasar objetos se debiera usar Set.

Usar Set y Let a la vez en la declaracion de asignacion es a mi modo de ver; sin animo de ofender; que no tienes no pajolera del tema y te has limitado a copiar y pegar un codigo que no entiendes.

Saludos.