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

135 - Pasar un Recordset de ADO a un control ListView

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este ejemplo muestra una forma de pasar el contenido de un Recordset de tipo ADO a un control ListView.

A La función que añade los elementos se le debe enviar como parámetro el Recordset y el control ListView donde se agregarán los registros

( No es necesario especifcar las columnas del ListView ya que se hace mediante código )

Nota: En el Form Load especificar la Ruta de la base de Datos y la consulta SQL en el método Open del Recordset

Controles:

Colocar un control Command1
Un control ListView llamado ListView1
la Referencia de Ado ( Microsoft Activex Data Objects )

Código fuente en un formulario

Option Explicit 'Variables para la Base de datos y el Recordset de ADO Dim rst As ADODB.Recordset Dim db As ADODB.Connection Public Sub Recordset_a_ListView( _ ByRef rst As ADODB.Recordset, _ ByRef ListView As ListView) On Error GoTo errSub Dim i As Integer, k As Integer, iColumna As Integer, vt() As Long Dim st() As Single, w() As Long, t As Long, LVitem As ListItem ListView.ListItems.Clear If rst.State = adStateOpen Then If Not (rst.BOF And rst.EOF) Then ListView.View = lvwReport iColumna = rst.Fields.Count - 1 ReDim w(0 To iColumna) ReDim st(0 To iColumna) ReDim vt(0 To iColumna) For i = 0 To iColumna If rst(i).DefinedSize > 9 Then w(i) = rst(i).DefinedSize Else w(i) = 10 End If t = t + w(i) Next For i = 0 To iColumna st(i) = w(i) / t vt(i) = rst.Fields(i).Type Next If ListView.ColumnHeaders.Count = 0 Then For i = 0 To iColumna ListView.ColumnHeaders.Add , , rst.Fields(i).Name, _ ListView.width * st(i) Next Else For i = 0 To iColumna ListView.ColumnHeaders(i + 1).width = ListView.width * st(i) Next End If rst.MoveFirst While Not rst.EOF If vt(0) = adBoolean Then If rst.Fields(0).Value = vbFalse Then Set LVitem = ListView.ListItems.Add(, , "NO") Else Set LVitem = ListView.ListItems.Add(, , "YES") End If Else Set LVitem = ListView.ListItems.Add(, , rst.Fields(0).Value) End If If iColumna > 0 Then For k = 1 To iColumna If vt(k) = adBoolean Then If rst.Fields(k).Value = vbFalse Then LVitem.ListSubItems.Add , , "NO" Else LVitem.ListSubItems.Add , , "YES" End If Else If IsNull(rst.Fields(k).Value) Then LVitem.ListSubItems.Add , , "" Else LVitem.ListSubItems.Add , , rst.Fields(k).Value End If End If Next End If rst.MoveNext Wend ListView.Sorted = True ListView.SortKey = 0 End If End If db.Close Set rst = Nothing Exit Sub errSub: MsgBox Err.Number & " " & Err.Description, vbCritical db.Close Set rst = Nothing End Sub 'Enviar en esta función el Recordset y el Control ListView Private Sub Command1_Click() Call Recordset_a_ListView(rst, ListView1) End Sub Private Sub Form_Load() Dim ruta As String Set db = New ADODB.Connection db.CursorLocation = adUseClient 'IMPORTANTE: 'Especificar la Ruta de la base de datos y la cadena de conexión necesaria db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" _ & ruta & ";" Set rst = New Recordset 'IMPORTANTE: 'Especificar la Consulta rst.Open "SELECT * FROM Tabla", db, adOpenStatic, adLockOptimistic Command1.Caption = " Pasar Recordset Ado a ListView " Me.Caption = " Ejemplo de como importar un Recordset a un control ListView " End Sub

Ejemplo 2

Este código fuente es el mismo que el anterior, pero permite además de importar una tabla o consulta SQL, remarcar de color ciertos items, y puede ser útil si en algún caso se quiere facilitar la visualización de ciertos registros.

En el ejemplo, que se conecta a la base de datos de visual basic Nwind.mdb, se carga la tabla Clientes, y todos los clientes que tengan como valor "Representante de ventas" en el campo "Cargo de contacto", se resaltará el registro en color Azul.

Nota. El ejemplo remarca en este caso datos de tipo String, pero podría también utilizarse para remarcar otros tipos, por ejemplo:

En un campo Boolean todos los que tengan como valor False
En campos tipo moneda todos los que sean inferiores, iguales o mayores a un cierto precio
En un campo de tipo fecha los que pertenezcan a un rango determinado, etc ...

Descargar

Vista previa del formulario

Recursos vb - Enlaces relacionados

Buscar en Recursos vb