none
Timer error agregar datos a bd RRS feed

  • Pregunta

  • Buen dia estoy desarrollando un ejercicio el cual es de buscar exenciones y agregarlas a un ListBox, de ahí programo un timer para que seleccione dato por dato de la lista y la agregue a una base de datos, tengo el problema que agregar unos cuantos y en cierto momento se detiene la depuración marcando error en la linea para agregar datos a la base de datos, leS dejo mi ejercicio espero me puedan ayudar.

    mports System.IO
    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim ExtensionBuscada As String = "*.txt"
            Dim dirInfo As New DirectoryInfo(TextBox1.Text)
            Dim dirsInfo() As DirectoryInfo = dirInfo.GetDirectories("*.*", SearchOption.TopDirectoryOnly)

            For Each di As DirectoryInfo In dirsInfo
                Try
                    Dim filesInfo() As FileInfo = di.GetFiles(ExtensionBuscada, SearchOption.AllDirectories)
                    For Each fichero As FileInfo In filesInfo
                        ListBox1.Items.Add(fichero.FullName)
                        Label6.Text = ListBox1.Items.Count
                    Next

                Catch ex As UnauthorizedAccessException
                    ' Controlo el error de acceso no autorizado a carpeta

                End Try
            Next
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Timer1.Start()
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Me.ListBox1.SelectedIndex = 0
            Button2_Click(sender, e)
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

            If ListBox1.Items.Count > 0 Then
                Label6.Text = ListBox1.Items.Count
                Me.ListBox1.SelectedIndex = 0
                Label1.Text = ListBox1.SelectedItem.ToString

                Label7.Text = Val(Label7.Text) + Val("1")
                Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS

                ListBox1.Items.Remove(ListBox1.SelectedItem)



            Else
                Label6.Text = ListBox1.Items.Count
                Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)
                Timer1.Stop()

            End If

        Private Sub DATOSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATOSBindingNavigatorSaveItem.Click
            Me.Validate()
            Me.DATOSBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.CAPTURADataSet)

        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'CAPTURADataSet.DATOS' Puede moverla o quitarla según sea necesario.
            Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)

        End Sub


    End Class



    • Editado Cael1020 miércoles, 24 de enero de 2018 19:43
    • Cambiado Enrique M. Montejo viernes, 26 de enero de 2018 15:35 Pregunta relacionada con el acceso a datos.
    miércoles, 24 de enero de 2018 17:11

Todas las respuestas

  • Convendría que señalases la línea concreta en la que da el error y que aportases cuál es el texto completo y exacto de la excepción, incluso llegando hasta el innerexception si es que resulta relevante.
    • Propuesto como respuesta Pablo Rubio miércoles, 24 de enero de 2018 18:59
    • Votado como útil Enrique M. Montejo viernes, 26 de enero de 2018 15:33
    miércoles, 24 de enero de 2018 18:29
  • Si funciona, agrega bien pero en cierto tiempo de que agrego algunos detiene la depuración marca error en la linea de agregar a la bd
     Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS
    miércoles, 24 de enero de 2018 19:43
  • marca error
    Nunca digas "marca error" cuando pongas una pregunta en los foros. Escribe siempre el mensaje de error completo, exacto y detallado. De lo contrario es dificilísimo que pueda ayudarte alguien que no tiene acceso a ver tu máquina para analizar lo que está pasando.
    miércoles, 24 de enero de 2018 22:27