1
« 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
Mostrar Mensajes
