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

135 - Pasar un Recordset de ADO a un control ListView

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

Recursos vb.net - enlaces relacionados

Cargar un dataset en un listview para visualizar una tabla de sql server

Buscar en Recursos vb