• Sábado 25 de Junio de 2022, 18:15

Autor Tema:  Cargar Access Desde El Puerto Serie  (Leído 2589 veces)

Neli

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Cargar Access Desde El Puerto Serie
« en: Miércoles 16 de Mayo de 2007, 19:27 »
0
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