none
error en insert into para guardar un listview RRS feed

  • Debate general

  • saludos, estoy diseñando un programa en visual basic 6.0 y access

    y tengo unos datos cargados en un listview que cuando ejecuto me dice error en insert into y no entiendo porq, si en otros modulos el insert into me funciona muy bien , en el listview cargado con datos no me lo guarda.

    este es el codigo

    Sub guardarlistado()
    Dim AUX, aux1, aux2, aux3, aux4, aux5 As String
    Dim A, B As Integer
    For A = 1 To ListView1.ListItems.Count
       AUX = ListView1.ListItems(A)
       For B = 1 To 5
             If B = 1 Then: aux1 = ListView1.ListItems(A).SubItems(B)
             If B = 2 Then: aux2 = ListView1.ListItems(A).SubItems(B)
             If B = 3 Then: aux3 = ListView1.ListItems(A).SubItems(B)
             If B = 4 Then: aux4 = ListView1.ListItems(A).SubItems(B)
             If B = 5 Then: aux5 = ListView1.ListItems(A).SubItems(B)
            
       Next B
       Conexion
       abc.Execute "insert into registro(fecha,calibre,perfil,tamano,precio,cantidad,monto,global,n,num)VALUES('" & DTPicker1 & "','" & AUX & "','" & aux1 & "','" & aux2 & "','" & aux3 & "','" & aux4 & "','" & aux5 & "','" & txtn.Text & "','" & txtnum.Text & "') "
    abc.Close
    Next A
    End Sub

    • Cambiado Enrique M. Montejo miércoles, 22 de junio de 2016 6:56 Desarrollo con Visual Basic 6.0.
    martes, 21 de junio de 2016 17:55

Todas las respuestas

  • Hola:
    2 Precisiones:
    1.- Este foro es para VB NET no para VB 6.0
    2.- Con ese codigo que expones, salvo que tengas la "bolita" de crystal en "forma", es imposible saber que esta haciendo; solo se puede intuir

    Un saludo desde Bilbo
    Carlos

    martes, 21 de junio de 2016 21:26