Cargar datos de una tabla en un listview

[KingColt]

Bueno hacerlo en una datagrid es sencillo

Código:

Set rsProd = New Recordset
rsProd.Open "SELECT * FROM producto", dbConex, adOpenStatic, adLockOptimistic
'cargamos el datagrid
Set DataGrid1.DataSource = rsProd

pero no tengo idea como hacerlo en un listview?

[culd]

Iniciado por KingColt

Bueno hacerlo en una datagrid es sencillo

Código:

Set rsProd = New Recordset
rsProd.Open "SELECT * FROM producto", dbConex, adOpenStatic, adLockOptimistic
'cargamos el datagrid
Set DataGrid1.DataSource = rsProd

pero no tengo idea como hacerlo en un listview?

tenes que recorrer secuencialmente el recorset y vas cargando uno por uno los registros en el listview

[fesero]

usando ADO podria ser asi.-. asi lo uso yo y me funciona
tambien tenes que poner en las propiedades del listview en "VIEW" como: 3-lvwReport ;asi te aparece como un listado.

Dim ObjItem As ListItem
Set rsProd = New ADODB.Recordset
sBus = "SELECT * FROM producto "

ListView1.ListItems.Clear
If rsProd .RecordCount > 0 Then
While Not rsProd .EOF
Set ObjItem = ListView1.ListItems.Add(, , rsProd (1))
ObjItem.SubItems(1) = rsProd .Fields(2)
ObjItem.SubItems(2) = rsProd .Fields(3)
ObjItem.SubItems(3) = rsProd .Fields(4)
ObjItem.SubItems(4) = rsProd .Fields(5)
ObjItem.SubItems(5) = rsProd .Fields(6)
ObjItem.SubItems(6) = rsProd .Fields(7)
ObjItem.SubItems(7) = rsProd .Fields(8)
ObjItem.SubItems(8) = rsProd .Fields(9)
ObjItem.SubItems(9) = rsProd .Fields(10)
ObjItem.SubItems(10) = rsProd .Fields(11)
ObjItem.SubItems(11) = rsProd .Fields(12)

' siguiente registro
rsProd .MoveNext
Wend
rsProd .Close
End If
------------

eso lo podes colocar hasta en un sub solito para que se ejecute cuando se carga el form.
para que te funione el recorcount deberias hacerlo asi, antes de abrir el recordset. Yo a esto lo tengo para que se realize antes de cargar el listview con el recordset.

With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & sFichero & "';"
.Open
.CursorLocation = adUseClient
End With

[moradazo]

Código PHP:

   With Listview1 
            .Items.Add(variable1) 
            .Items(.Items.Count - 1).SubItems.Add(variable2) 
            .Items(.Items.Count - 1).SubItems.Add(variable3) 
            .Items(.Items.Count - 1).SubItems.Add(variable4) 
        End With  
   

Puedes declarar un For o un While para que se agreguen los datos según la condición que pongas, o bien si quieres agregar nombres de archivos de alguna carpeta:

Código PHP:

        Try 
                For variable As String In _ 
                My.Computer.FileSystem.GetFiles("C:/Carpeta/") 
                    Listview1.Items.Add(variable) 
                Next 
            Catch oe As Exception 
                MsgBox(oe.Message, MsgBoxStyle.Critical) 
            End Try