Visual Basic - mostrar los datos en listview

Life is soft - evento anual de software empresarial
   
Vista:

mostrar los datos en listview

Publicado por yoselyn (20 intervenciones) el 03/11/2008 13:21:53
hola nuevamente

tengo esta siguiente duda
tengo un listview en donde muestro mis datos
1 los muestro por fecha
2 los muestro por medicamento

pero ahora le quiero agregar un nuevo command en donde me muestre todos
los datos que tenga la Base de datos con una tabla especificada...
pero nose como hacerla...

eso seria
y gracias por la ayuda...

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mostrar los datos en listview

Publicado por Cesar (3 intervenciones) el 03/11/2008 14:48:50
Sub Cargar_ListView(ListView As ListView)

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
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

'Abre la base de datos
cnn.Open ("tu cadena de coneccion")

'Llena el Recordset
rst.Open "select campos from tabla where condicion, cnn, adOpenStatic, addlockoptimistic

With ListView
'Vista de reporte
.View = lvwReport
' Elimina los item y los encabezado de columna
.ListItems.Clear
.ColumnHeaders.Clear
End With

'Cambiamos el puntero del raton, esto es opcional
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

espero te sirva de algo......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mostrar los datos en listview

Publicado por yoselyn (20 intervenciones) el 03/11/2008 18:12:22
se me olvido colocar q estoy utilizando Dao

Disculpen!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar