Leer un ListView y luego guardar los datos en un tabla sql........Ayuda Urgente

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Leer un ListView y luego guardar los datos en un tabla sql........Ayuda Urgente

    Buenas compañeros: tengo el siguiente problema, ingreso datos en un listview desde 3 combobox y 1 txt, en totoal son 5 columnas (# Reporte, Identificador, Codigo, interpretacion, Posicion)

    diag.jpg

    en el boton agregar es donde ingreso los datos al listview de esta manera y debo poder condicionar que el maximo de diagnosticos que debo meter al listview es de 5 me falta esta parte:

    Código:
    Private Sub cmdagregar_Click()
    
    Dim item As Object
    
    COLUMNAS
    
    Set item = lstListado.ListItems.Add(, , txtnum_repo.Text)
                            item.SubItems(1) = CED_UNIDA
                            item.SubItems(2) = Me.cbo101.Text
                            item.SubItems(3) = Me.txtdiag1.Text
                            item.SubItems(4) = Me.cbonumero.Text
     
    Me.cbo101.Text = ""
    Me.cbodiag1.Text = ""
    Me.cbonumero.Text = ""
    
    Me.cbo101.ListIndex = -1
    Me.cbodiag1.ListIndex = -1
    Me.cbonumero.ListIndex = -1
    
    Me.txtdiag1.Text = ""
    
    End Sub
    Aqui es donde esta el problema lo que ven en la imagen debo poder recorrerlo para luego insertar en una tabla sql, al momento de poder guardar todos los datos del formulario, trate de hacer una prueba mostrando en un mensaje pero solo me muestra 4 canpos menos el numero de reporte, esta prueba la hice en el boton borrar......

    Código:
    Private Sub cmdborrar_Click()
    
    Dim i As Integer
    Dim linea As Integer
    
    linea = lstListado.ListItems.Count
    
    For i = 1 To linea
    
    MsgBox lstListado.ListItems(i).ListSubItems(1).Text
    MsgBox lstListado.ListItems(i).ListSubItems(2).Text
    MsgBox lstListado.ListItems(i).ListSubItems(3).Text
    MsgBox lstListado.ListItems(i).ListSubItems(4).Text
    MsgBox lstListado.ListItems(i).ListSubItems(5).Text
                            
    Next i
    
    End sub
    Cualquier ayuda la voy agradecer ya que me tiene trancado el proyecto que debia entregar hace una semana atras. Ayuda Ayuda Ayuda Ayuda Ayuda Ayuda Ayuda.......





  • #2
    Siento decirte que no entiendo tu mensaje...
    Y, como no lo entiendo, no sé si mi respuesta tiene sentido: Por si acaso, te aconsejo que pruebes a cambiar la línea

    For i = 1 To linea

    por esta otra

    For i = 0 To linea - 1

    Ya nos dirás. Y sobre todo intenta explicar tu problema de forma más inteligible.

    José María Movilla Cuadrado
    ______________________
    Normas del foro
    www.foro.vb-mundo.com
    www.vb-mundo.com

    Comentario


    • #3
      Quizás puedas limitar el máximo de líneas del listview poniendo detrás de

      Linea = lstListado.ListItem.Count

      If linea > 4 Then
      MsgBox ("No se admiten más de 5 Diagnósticos...")
      Exit Sub
      End If
      José María Movilla Cuadrado
      ______________________
      Normas del foro
      www.foro.vb-mundo.com
      www.vb-mundo.com

      Comentario

      Trabajando...
      X