Hola!! estoy cargando unos datos desde el puerto serie, a traves de un txt y luego los mando a una pequeña base de datos el problema que tengo es que me los almacena de forma duplicada, por Ej:
...si recibo
5001,RTC,07,12,3,6 (esto es un string q tira le principio)
01,34
02,45
03,55
fin de lectura
en el txt los recibo bien, pero en la base de datos me carga
5001,RTC,07,12,3,6
01,34
5001,RTC,07,12,3,6
01,34
02,45
5001,RTC,07,12,3,6
01,34
02,45
03,55
fin de lectura
y la verdad q no se donde esta el error, mando el pedacito de codigo q uso en la carga, por favor si alguien me puede ayudar, desde ya muchas gracias!!! Neli
Dim sEvento As String, sError As String
Dim sRecibida As String
Dim astrTempText() As String
Dim astrMatrix(16384, 1) As String
Dim lngCount As Long
Dim LngPos As Long
Dim cod As String
If LeerCarsPuerto(sRecibida) > 0 Then
txtRX.Text = txtRX.Text & sRecibida
sRecibidas = Me.txtRX.Text
astrTempText = Split(sRecibidas, vbNewLine)
For lngCount = 0 To UBound(astrTempText) - 1
LngPos = InStr(astrTempText(lngCount), ",")
astrMatrix(lngCount, 0) = Mid$(astrTempText(lngCount), 1, LngPos - 1)
astrMatrix(lngCount, 1) = Mid$(astrTempText(lngCount), LngPos + 1, Len(astrTempText(lngCount)) - (LngPos - 1))
If rst.EOF Then
rst.AddNew
Else
rst.AddNew
rst.MovePrevious
cod = rq.Fields("ID")
rst.MoveNext
End If
rst.Fields("POSICION") = astrMatrix(lngCount, 0)
rst.Fields("VELOCIDAD") = astrMatrix(lngCount, 1)
rst.Update
Next lngCount
End If
