• Viernes 3 de Febrero de 2023, 20:51

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Neli

Páginas: [1]
1
Redes y Comunicaciones / Cargar Access Desde El Puerto Serie
« en: Miércoles 16 de Mayo de 2007, 19:27 »
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

2
Visual Basic 6.0 e inferiores / Cargar Una Matriz Desde El Puerto Serie
« en: Jueves 5 de Abril de 2007, 15:47 »
Hola! necesito cargar una matriz bidimensional, para luego poder hacer con los datos un gráfico, estos datos vienen desde el puerto serie y los recibo en un txt, con el siguiente formato, por ejemplo:    20, 2568 donde 20 es el dato de posición y 2568 de velocidad, de esta forma me tira  hasta 16384 filas, yo necesito poner el dato de posición en una columna y el de velocidad en la otra. El tema es q no se como decirle.....lo de antes de la coma va en la primer columna y lo de despues en la segunda...
este es el pedacito del código donde leeo los datos del puerto, sRecidida es el string donde los recido

' Leer caracteres del puerto
        If LeerCarsPuerto(sRecibida) > 0 Then
            txtRX.Text = txtRX.Text & sRecibida    'aca debería de cargar la matriz
        End If
Por favor si alguien me puede ayudar, de verdad gracias!! Neli  :comp:

Páginas: [1]