Autor Tema: Como cargar datos en un listview mas no en la base de datos-  (Leído 4280 veces)

0 Usuarios y 1 Visitante están viendo este tema.

FreddyJ

  • Kilobyte
  • **
  • Mensajes: 51
  • Reputación: +0/-2
    • Ver Perfil
Como cargar datos en un listview mas no en la base de datos-
« en: Noviembre 05, 2009, 08:29:06 pm »
el problema es que no se como hacer para que los datos de un texto se muestren en el listview y luego en en una tabla.

 :-\

ssccaann43

  • Terabyte
  • *****
  • Mensajes: 970
  • Reputación: +97/-58
    • Ver Perfil
    • Sistemas Nuñez, Consultores y Soporte, C.A.
Re:Como cargar datos en un listview mas no en la base de datos-
« Respuesta #1 en: Noviembre 06, 2009, 09:45:31 am »
Quieres cargar la información desde un texto? Cuando dices Texto a que te refieres? Un archivo plano?

Respecto a Luego en una tabla, hablas de hacer el ingreso despues en una tabla?
Miguel Núñez.

seba123neo

  • Terabyte
  • *****
  • Mensajes: 763
  • Reputación: +88/-5
    • Ver Perfil
Re:Como cargar datos en un listview mas no en la base de datos-
« Respuesta #2 en: Noviembre 07, 2009, 12:53:36 pm »
no entendi, si podes dar un ejemplo, porque adivinos todavia no somos.

FreddyJ

  • Kilobyte
  • **
  • Mensajes: 51
  • Reputación: +0/-2
    • Ver Perfil
Re:Como cargar datos en un listview mas no en la base de datos-
« Respuesta #3 en: Noviembre 07, 2009, 02:25:08 pm »
Aqui la solución a al problema. Despues de tantos intentos lo he logrado. De todos modos gracias por el aporte. Realmente esto es lo que necesitaba, guardar o muestrar en el ListView los datos que estan en textos y label. Simplemente eso, al mismo tiempo guardo en la base de datos con un  procedimiento.
 
Código: [Seleccionar]
Private Sub agregar_venta()
    Dim iCol As Long
    Dim iItem As Long
        With lv
            iItem = lv.ListItems.Count + 1
                .ListItems.Add , , lbCodigo
                .ListItems(iItem).SubItems(1) = lbNombre.Caption
                .ListItems(iItem).SubItems(2) = lbTelefono.Caption
                .ListItems(iItem).SubItems(3) = lbDireccion.Caption
                .ListItems(iItem).SubItems(4) = lbDescripcion
                .ListItems(iItem).SubItems(5) = txtCantidad
                .ListItems(iItem).SubItems(6) = lbPrecio
                .ListItems(iItem).SubItems(7) = txtDescuento
                .ListItems(iItem).SubItems(8) = lbIva.Caption
                .ListItems(iItem).SubItems(9) = lbFecha
                .ListItems(iItem).SubItems(10) = lbSub
                .ListItems(iItem).SubItems(11) = lbTotal
                .ListItems(iItem).Tag = Format(CLng(lbCodigo.Caption), "00#") & ";" & _
                                        (lbNombre.Caption) & ";" & _
                                        (lbTelefono) & ";" & _
                                        (lbDireccion) & ";" & _
                                        (lbDescripcion) & ";" & _
                                        (txtCantidad) & ";" & _
                                        (lbPrecio) & ";" & _
                                        (txtDescuento) & ";" & _
                                        (lbIva) & ";" & _
                                        (lbFecha) & ";" & _
                                        (lbSub) & ";" & _
                                        (lbTotal)
End With
 End Sub