Ayuda Mostrar datos en Listview

[DaGatox]

Estoy haciendo un proyecto desde cero pero quiero mostrar lso datos de una tabla de access en el listview pero no encuentro ejemplos para guiarme bueno esta el loq tengo solo llegue a poner las cabeceras ahora quiero carga lso datos de un tabla de access ojala puedana ayudarme sigo investigando por inter ...hasta luego

Código:

Imports System.Data.OleDb
Imports System.Windows.Forms

Public Class SoporteTeleoperadores

    Dim cn2 As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "DBCallCenter.accdb")
    Dim daemp As New OleDbDataAdapter
    Dim dsemp As New DataSet
    Dim v As Integer



    Private Sub SoporteTeleoperadores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ListView1

            .View = View.Details
            .FullRowSelect = True
            .GridLines = True
            .LabelEdit = False
            .HideSelection = False
            .Columns.Clear()
            .Columns.Add("Id", 100, HorizontalAlignment.Left)
            .Columns.Add("Nombre", 60, HorizontalAlignment.Left)
            .Columns.Add("Apellidos", 130, HorizontalAlignment.Left)
            .Columns.Add("Grupo", 90, HorizontalAlignment.Left)
            .Columns.Add("Coordinador", 90, HorizontalAlignment.Left)

            'hasta aca  cree las cabeceras me falta llenar con lso datos dela tabla

        End With
    End Sub
End Class

[ncmaster]

Lo primero es darle formato al ListView (Revisa el tuyo me parece que tiene algun error)

Código vb:

Dim iteme As ListViewItem
Sub CreaLV02()
        Lv_reporte.Clear() 'Limpiamos el ListView
        Lv_reporte.View = View.Details 'Tipo de vista
        Lv_reporte.FullRowSelect = True 'Al seleccionar un elemento, seleccionar la línea completa
        Lv_reporte.GridLines = True 'Mostrar las líneas de la cuadrícula
        Lv_reporte.LabelEdit = False 'No permitir la edición automática del texto
        Lv_reporte.MultiSelect = False 'Permitir múltiple selección
        Lv_reporte.HideSelection = False 'Para que al perder el foco, se siga viendo el que está seleccionado
        Lv_reporte.ShowGroups = False 'Listado NO Agrupado
 
        'Ahora agregamos las columnas nuevas - Indicando el nombre de la columna, el ancho y la aliniacion
 
        Lv_reporte.Columns.Add("Id", 100, HorizontalAlignment.Left)
        Lv_reporte.Columns.Add("Nombre", 60, HorizontalAlignment.Left)
        Lv_reporte.Columns.Add("Apellidos", 130, HorizontalAlignment.Left)
        Lv_reporte.Columns.Add("Grupo", 90, HorizontalAlignment.Left)
        Lv_reporte.Columns.Add("Coordinador", 90, HorizontalAlignment.Left)
        Lv_reporte.View = View.Details
 
    End Sub
 

Con esto agregamos los datos al ListView.

Código vb:

iteme = New ListViewItem(CStr(Id))
                iteme.SubItems.Add(CStr(Nombre))
                iteme.SubItems.Add(CStr(Apellidos))
                iteme.SubItems.Add(CStr(Grupo))
                iteme.SubItems.Add(CStr(Coordinador))
                Lv_reporte.Items.Add(iteme)
                Lv_reporte.View = View.Details
 

Ojala te sirva y si no, a alguien mas.

[seduch]

Hola, me encontré de casualidad con esta pregunta hoy 25-09-2012 y quisiera agregar algo más, tal vez le sirva a alguien:
Para cargar datos a un ListView, colocar en el evento Load del Form o bien en un Botón de comando lo siguiente. En mi caso uso VBA Access 2003

Código para cargar datos desde una tabla de Access 2003, en un ListView (Microsoft Windows Common Controls 6.0 (SP6))

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rbad As String 'Ruta de BD

Private Sub Comando16_Click() 'botón para cargar datos
On Local Error Resume Next

Texto6.SetFocus 'cuadro de búsqueda de datos
Me!ListView1.ListItems.Clear
Me!ListView1.ColumnHeaders.Clear

Me!ListView1.FullRowSelect = True
Me!ListView1.GridLines = True
Me!ListView1.Sorted = True
Me!ListView1.Checkboxes = False
Me!ListView1.View = lvwReport

'Establece Conexión y Apertura Recordset
rbad = ruta base de datos
sqldatos = "SELECT a, b, c, FROM........;"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rbad & ";Persist Security Info=False"
rs.Open sqldatos, cnn, adOpenDynamic, adLockOptimistic

'Creación de las columnas
With ListView1.ColumnHeaders
.Add , , "Nº FOLIO"
.Add , , "EMISIÓN", , lvwColumnCenter
.Add , , "TIPO DOCUMENTO"
.Add , , "CLIENTE"
.Add , , "TOTAL", , lvwColumnRight
.Add , , "VENCIMIENTO", , lvwColumnCenter
.Add , , "ESTADO DE PAGO"
End With

'Agregar Ítemes y subítemes al listview
rs.MoveFirst
While Not rs.EOF
With ListView1.ListItems.Add
.text = Format(rs!NDCV, "#####0000000000")
.SubItems(1) = rs!Fecha_Venta
.SubItems(2) = rs!Tipo_Documento
.SubItems(3) = rs!Nombre_Cliente
.SubItems(4) = Nz(Format(rs!Total_Venta, "$ 0"), "")
.SubItems(5) = Nz(rs!Fecha_Vencimiento, "")
.SubItems(6) = Nz(rs!Estado_Factura, "")
End With
rs.MoveNext
Wend

'Cierra Conexión y recordset. Descarga de memoria
rs.Close
Set rs = Nothing
If cnn.State = 1 Then cnn.Close
Set cnn = Nothing

End Sub

Saludos desde Concepción Chile
http://www.bio-soft.cl/

[Dradi7]

Porque la gente no entiende que los temas de hace años no se reviven si quieres comentar crea tu propio tema

[cristiantorres]

Tampoco entiendo el afán de revivir viejos temas si quieres comentar algo create uno nuevo.
Ademas la forma que cargas los datos en el listview tampoco es la mejor ya que podes definirte las columnas en tiempo de diseño como un datagrid y luego solo ir llenandolas.

[ilu7ionHD]

Vamos a revivir de nuevo el tema, hoy --> 11/10/2014 me encuentro con el mismo problema, pero ningún código me sirve porque trabajo con SQL Server 2008 y ASP.NET C# :( me ayudan?