SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: JHON SANCHEZ en Viernes 3 de Julio de 2015, 08:29

Título: error no se controlo oledbexceptionno se controlo oledbexception vb2008+access
Publicado por: JHON SANCHEZ en Viernes 3 de Julio de 2015, 08:29
buenos dias

Amigos soy nuevo en el tema, tengo una aplicación que me permite escribir en una tabla de access algunos datos, pero cada vez que intento ingresar una fila mas me sale dicho error, no se si es por le tema de los datos duplicados.

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Label4.Text = TimeOfDay     '  se visualiza fecha y hora en el panel principal
        Label5.Text = DateString

        Label22.Text = k14
        Label24.Text = k9

        Label20.Text = k5
        Label21.Text = k4
        '---------------------------visualizacion de datos

        If k4 <> k5 Then

            If JASOMATRIZ3(k5, 0) = "@" Then
                If JASOMATRIZ3(k5, 16) = "#" Then

                    a0 = JASOMATRIZ3(k5, 0) '  INICIADOR DE TRAMA
                    a1 = JASOMATRIZ3(k5, 1) '  DECENA # DE LA BUSETA
                    a2 = JASOMATRIZ3(k5, 2) '  UNIDAD # DE LA BUSETA
                    a3 = JASOMATRIZ3(k5, 3) '  LIBRE********************
                    a4 = JASOMATRIZ3(k5, 4) '  SITIO DEL MARCAJE
                    a5 = JASOMATRIZ3(k5, 5) '  MODO ACTUAL DE OPERACION DE LA ESTACION DE MARCAJE ACTUAL(transmisor RESET O LOCAL)   
                    a6 = JASOMATRIZ3(k5, 6) '  DIA DEL MARCAJE
                    a7 = JASOMATRIZ3(k5, 7) '  MES DEL MARCAJE
                    a8 = JASOMATRIZ3(k5, 8) '  AÑO DEL MARCAJE
                    a9 = JASOMATRIZ3(k5, 9) '  HORAS DEL MARCAJE
                    a10 = JASOMATRIZ3(k5, 10) 'MINUTOS DEL MARCAJE
                    a11 = JASOMATRIZ3(k5, 11) 'SEGUNDOS DEL MARCAJE 
                    a12 = JASOMATRIZ3(k5, 12) 'ESTADO DEL MODULO (NORMAL/EMERGENTE)
                    a13 = JASOMATRIZ3(k5, 13) '% USO DE LA BATERIA
                    a14 = JASOMATRIZ3(k5, 14) 'MODO DEL MARCAJE(1XSITIO!=,2X3MINOFF,3XRETARDOenSITIO,4X!=DIA)
                    a15 = JASOMATRIZ3(k5, 15) '# DE TRAMAS DE DATOS POR ENVIAR
                    a16 = JASOMATRIZ3(k5, 16)  'FINALIZADOR DE TRAMA

                    IN1 = Asc(a1) - 48
                    IN2 = Asc(a2) - 48
                    IN1 = (IN1 * 10) + IN2 ' numero del vehiculo en formato int
                    Label27.Text = IN1 'visualizo

                    IN2 = Asc(a6) - 48 'dia en formato entero
                    b6 = IN2.ToString
                    IN2 = Asc(a7) - 48 'mes en formato entero
                    b7 = IN2.ToString
                    IN2 = Asc(a8) - 48 'año en formato entero
                    b8 = IN2.ToString

                    IN2 = Asc(a9) - 48 'hora en formato entero
                    b9 = IN2.ToString
                    IN3 = IN2 * 3600
                    IN2 = Asc(a10) - 48 'min en formato entero
                    b10 = IN2.ToString
                    IN4 = IN2 * 60
                    IN2 = Asc(a11) - 48 'segundo en formato entero
                    b11 = IN2.ToString
                    IN2 = IN3 + IN4 + IN2

                    j2 = IN2 / 10000
                    j8 = Int(j2)         'se extrae la diezmilesima
                    b12 = j8.ToString
                    IN2 = IN2 - (j8 * 10000)
                    j2 = IN2 / 1000
                    j8 = Int(j2)         'se extrae la milesima
                    b13 = j8.ToString
                    IN2 = IN2 - (j8 * 1000)
                    j2 = IN2 / 100
                    j8 = Int(j2)         'se extrae la centesima
                    b14 = j8.ToString
                    IN2 = IN2 - (j8 * 100)
                    j2 = IN2 / 10
                    j8 = Int(j2)         'se extrae la decima
                    b15 = j8.ToString
                    j8 = IN2 - (j8 * 10) 'se extrae la unidad
                    b16 = j8.ToString

                    IN2 = Asc(a14) - 48
                    b17 = IN2.ToString   'modo de marcaje

                    IN2 = Asc(a13) - 48
                    b18 = IN2.ToString   '% uso bateria

                    IN2 = Asc(a15) - 48
                    b19 = IN2.ToString   '#  de la trama

                    Select Case a12 ' SITO DEL MARCAJE
                        Case "1"
                            ESTADO = "EMERGENTE"
                        Case "0"
                            ESTADO = "NORMAL"
                        Case Else
                            ESTADO = "NO DATA"
                    End Select

                    Select Case a4 ' SITO DEL MARCAJE
                        Case ":"
                            SITIO = "SITIO1"
                        Case ";"
                            SITIO = "ZARZALITO"
                        Case "<"
                            SITIO = "ZARZAL"
                        Case "="
                            SITIO = "SITIO2"
                        Case ">"
                            SITIO = "LA PAILA"
                        Case "?"
                            SITIO = "SITIO3"
                        Case "@"
                            SITIO = "SITIO4"
                        Case "A"
                            SITIO = "SITIO5"
                        Case "B"
                            SITIO = "SITIO6"
                        Case "C"
                            SITIO = "SITIO7"
                        Case "D"
                            SITIO = "SITIO8"
                        Case "E"
                            SITIO = "SITIO9"
                        Case "F"
                            SITIO = "SITIO10"
                        Case "G"
                            SITIO = "SITIO11"
                        Case Else
                            SITIO = "NO SITIO"
                    End Select

                    Select Case a5 ' SITO DEL MARCAJE
                        Case "/"
                            MODO = "LOCAL"
                        Case "-"
                            MODO = "REMOTO"
                        Case Else
                            MODO = "NO MODO"
                    End Select

                    Select Case IN1 ' SITO DEL MARCAJE
                        Case 1
                            'DataGridView1.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                            'Me.VehiculounoTableAdapter.vh1(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text)
                            Me.VehiculounoTableAdapter.vh1(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                            Me.VehiculounoTableAdapter.Fill(Me.Database1DataSet.vehiculouno)
                        Case 2
                            'DataGridView2.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                            'Me.VehiculodosTableAdapter.vh2(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text)
                            Me.VehiculodosTableAdapter.vh2(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                            Me.VehiculodosTableAdapter.Fill(Me.Database1DataSet.vehiculodos)
                        Case 3
                            'DataGridView3.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 4
                            'DataGridView4.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 5
                            'DataGridView5.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 6
                            'DataGridView6.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 7
                            'DataGridView7.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 8
                            'DataGridView8.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 9
                            'DataGridView9.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 10
                            'DataGridView10.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 11
                            'DataGridView11.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 12
                            'DataGridView12.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 13
                            'DataGridView13.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 14
                            'DataGridView14.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 15
                            'DataGridView15.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 16
                            'DataGridView16.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 17
                            'DataGridView17.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 18
                            'DataGridView18.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 19
                            'DataGridView19.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case 20
                            'DataGridView20.Rows.Add(SITIO, MODO, b6 + "/" + b7 + "/" + b8, b9 + ":" + b10 + ":" + b11, b12 + b13 + b14 + b15 + b16, b17, ESTADO, b18 + "%", b19)
                        Case Else
                            MessageBox.Show("DATOS NO REGISTRADOS")
                    End Select

                    TabControl1.SelectedIndex = IN1 ' visualizo el furmulario con la tabla de los datos entrantes

                    For i = 0 To 17
                        JASOMATRIZ(k5, i) = ""
                    Next i

                    If k5 >= 900 Then
                        k5 = 0
                    End If

                    If K10 > 38 Then ' borrar cada 38 registros los textbox de visualizacion de datos
                        K10 = 0
                        TXTSINCRO.Clear()
                    End If

                    TXTSINCRO.Text += a0 + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 & vbCrLf

                    SITIO = " "
                    MODO = " "
                    ESTADO = " "
                    b6 = " "
                    b7 = " "
                    b8 = " "
                    b9 = " "
                    b10 = " "
                    b11 = " "
                    b12 = " "
                    b13 = " "
                    b14 = " "
                    b15 = " "
                    b16 = " "
                    b17 = " "
                    b18 = " "
                    b19 = " "


                    a0 = " "
                    a1 = " "
                    a2 = " "
                    a3 = " "
                    a4 = " "
                    a5 = " "
                    a6 = " "
                    a7 = " "
                    a8 = " "
                    a9 = " "
                    a10 = " "
                    a11 = " "
                    a12 = " "
                    a13 = " "
                    a14 = " "
                    a15 = " "
                    a16 = " "

                    K10 += 1
                    k5 += 1

                End If
            End If
        End If


    End Sub

    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        jaso1 = ComboBox1.Text
        k1 = Convert.ToInt16(jaso1)
        TIMER1.Interval = k1

        jaso1 = ComboBox2.Text        'se seleccional el modo de operacion

        Select Case jaso1 ' SITO DEL MARCAJE
            Case "LOCAL"
                jaso2 = "/"
            Case "REMOTO"
                jaso2 = "-"
        End Select

        JASOMATRIZ2(4) = jaso2

        jaso1 = ComboBox3.Text        'se seleccional el sitio del marcaje

        Select Case jaso1 ' SITO DEL MARCAJE
            Case "SITIO1"
                jaso2 = ":"
            Case "ZARZALITO"
                jaso2 = ";"
            Case "ZARZAL"
                jaso2 = "<"
            Case "SITIO2"
                jaso2 = "="
            Case "LA PAILA"
                jaso2 = ">"
            Case "SITIO3"
                jaso2 = "?"
            Case "SITIO4"
                jaso2 = "@"
            Case "SITIO5"
                jaso2 = "A"
            Case "SITIO6"
                jaso2 = "B"
            Case "SITIO7"
                jaso2 = "C"
            Case "SITIO8"
                jaso2 = "D"
            Case "SITIO9"
                jaso2 = "E"
            Case "SITIO10"
                jaso2 = "F"
            Case "SITIO11"
                jaso2 = "G"
        End Select

        JASOMATRIZ2(3) = jaso2

        jaso2 = ComboBox4.Text        'se seleccional el numero de buses
        j3 = Convert.ToInt16(jaso2)

    End Sub