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:
Ver original'
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:
Ver original'
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