Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

187 - Cargar un Recordset ADO en un ListView

Ejemplo que utiliza Microsoft Activex Data Object para cargar los datos de un recordset de tipo ADO en un control ListView en vista de reporte

El ejemplo es como muestra la imagen

vista del formulario de ejemplo que muestra los datos del Recordset cargados en el control ListView

El ejemplo tiene una SubRutina llamada Cargar_ListView que tiene como parámetro:

El control Listview a llenar
La consulta Sql
El path de la Base de datos

Nota: Los encabezados de columna del ListView no es necesario agregarlos ya que se añaden mediante un bucle en tiempo de ejecución.

Colocar

un control ListView
un Text1 para especificar la ruta de la base de datos
un Text2 para especificar la consulta SQL
un Command1 para cargar el control ListView.
Por último asegurarse que se añadió la referencia para poder utilizar Ado desde el menú Proyecto - Referencias

Código fuente en un formulario

'Variables para la base de _ datos y para el REcordset Dim Rst As Recordset Dim cnn As Connection Private Sub Command1_Click() 'Le pasa a la rutina el Path de la base de datos, el _ control Listview a utilizar y la consulta SQL Call Cargar_ListView(ListView1, _ Trim$(Text2), _ Trim$(Text1)) End Sub Sub Cargar_ListView( _ ListView As ListView, _ sql As String, _ PathBd As String) Dim Campo As Integer On Error GoTo ErrSub 'Variable para los SubItem del LV Dim Item As ListItem Dim i As Long 'Nuevo objeto Connection y objeto Recordset Set cnn = New Connection Set Rst = New Recordset 'Abre la base de datos cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBd) 'Llena el Recordset Rst.Open sql, cnn, adOpenDynamic, adLockOptimistic With ListView 'Vista de reporte .View = lvwReport ' Elimina los item y los encabezado de columna .ListItems.Clear .ColumnHeaders.Clear End With Me.MousePointer = vbHourglass 'Agrega los nombres campo junto con los encabezados de columna para el ListView For Campo = 0 To Rst.Fields.Count - 1 ListView.ColumnHeaders.Add , , Rst.Fields(Campo).Name Next ' Recorre todos los registros del Recordset While Not Rst.EOF 'Agrega el Item Set Item = ListView.ListItems.Add(, , Rst.Fields(0)) i = 1 'Agrega los SubItem al ListView mediante la variable ITEM For Campo = 1 To Rst.Fields.Count - 1 'si el dato no es de tipo Null lo agrega If Not IsNull(Rst.Fields(Campo)) Then Item.SubItems(i) = Rst.Fields(Campo) End If i = i + 1 Next 'Siguiente registro Rst.MoveNext Wend Me.MousePointer = vbDefault Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical, "Error" Me.MousePointer = vbDefault End Sub Private Sub Form_Load() Me.Caption = " Ejemplo para cargar una BD en un ListView mediante ADO " Command1.Caption = " Cargar ListView " End Sub

Otro ejemplo

Proyecto enviado por Miguel Nuñez Flores, para conectar un ListView a una base de datos sin el control ADODC o DATACONTROL, usando ADODB

Vista previa del form

Descargar

Desarrollado por T.S.U. Miguel Núñez - Analista en Sistemas
Correo: ssccaann43@hotmail.com
Dudas o comentarios, hacerlas llegar via email.
Caracas-Venezuela

Recursos vb 6.0 - Enlaces relacionados

Recursos Vb.Net - Enlaces relacioandos

Cargar tabla sql server en ListView

Buscar en Recursos vb