C#

arkiboys wrote:

Should I use xmlDocument?

The I/O operation has been aborted because of either a thread exit or an application request.

Public Class clComPort
  Private WithEvents comPort As System.IO.Ports.SerialPort
  Private write As Boolean = True
  Private bAllowSndRcv As Boolean = False
  Private thRec As System.Threading.Thread

  Public Event WroteData(ByVal msg As String)
  Public Event DataRecieved(ByVal msg As String)
  Public Event COMError(ByVal msg As String)


  Public Function OpenPort(ByVal ComNum As Integer, ByVal baudRate As Integer, ByVal dataBits As Integer, _
                 ByVal parity As IO.Ports.Parity, ByVal stpBits As IO.Ports.StopBits) As Boolean
    bAllowSndRcv = False
    Try
      'first check if the port is already open
      'if its open then close it
      If Not IsNothing(comPort) Then
        Me.ClosePort()
      End If
      comPort = New System.IO.Ports.SerialPort()
      'set the properties of our SerialPort Object
      comPort.BaudRate = Integer.Parse(baudRate)
      comPort.DataBits = Integer.Parse(dataBits)
      comPort.StopBits = stpBits
      comPort.Parity = parity
      comPort.PortName = "COM" & ComNum
      comPort.ReadTimeout = 500
      comPort.WriteTimeout = 500

      'now open the port
      Dim b As Boolean = comPort.IsOpen
      comPort.Open()
      bAllowSndRcv = True
      'return true
      Return True
    Catch ex As Exception
      bAllowSndRcv = False
      RaiseEvent COMError(ex.Message)
      Return False
    End Try
  End Function
  Public Sub ClosePort()
    bAllowSndRcv = False
    If IsNothing(comPort) Then Exit Sub
    If comPort.IsOpen Then
      RemoveHandler comPort.DataReceived, AddressOf comPort_DataReceived
      comPort.Close()
    End If
    comPort.Dispose()
  End Sub
  Private Sub comPort_DataReceived(ByVal sender As Object, _
                                       ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles comPort.DataReceived
    'This event will Receive the data from the selected COM port..
    If Not bAllowSndRcv Then Exit Sub
    If e.EventType = System.IO.Ports.SerialData.Chars Then
      thRec = New System.Threading.Thread(AddressOf ReceiveData)
      thRec.IsBackground = True
      thRec.Priority = System.Threading.ThreadPriority.Highest
      thRec.Start()
      thRec.Sleep(10)
    End If

  End Sub
  Private Sub ReceiveData()
    If Not bAllowSndRcv Then Exit Sub
    'Sub to Receive Data from the Serial Port, Will Run in a Thread
    Dim bRead, nRead As Integer
    ' Dim returnStr As String = ""
    Dim ascStr As String = ""

    bRead = comPort.BytesToRead 'Number of Bytes to read
    Dim cData(bRead - 1) As Byte

    comPort.Encoding = System.Text.Encoding.GetEncoding(65001)

    nRead = comPort.Read(cData, 0, bRead)  'Reading the Data
    For Each b As Byte In cData
      ascStr += Chr(b)        'Ascii String
      '  returnStr += Hex(b).PadLeft(2, "0")     'Hex String (Modified Padding, to intake compulsory 2 chars, mainly in case of 0)
    Next
    RaiseEvent DataRecieved(ascStr)
  End Sub
  Private Sub comPort_ErrorReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialErrorReceivedEventArgs) Handles comPort.ErrorReceived
    RaiseEvent COMError(e.EventType.ToString)
  End Sub
End Class

at System.IO.Ports.InternalResources.WinIOError(Int32 errorCode, String str)    
at System.IO.Ports.InternalResources.WinIOError()    
at System.IO.Ports.SerialStream.InitializeDCB(Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Boolean discardNull)    
at System.IO.Ports.SerialStream..ctor(String portName, Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Int32 readTimeout, Int32 writeTimeout, Handshake handshake, Boolean dtrEnable, Boolean rtsEnable, Boolean discardNull, Byte parityReplace)    
at System.IO.Ports.SerialPort.Open()    
at COMPort.clComPort.OpenPort(Int32 ComNum, Int32 baudRate, Int32 dataBits, Parity parity, StopBits stpBits) in D:\Source\MiscVB.Net\COMPort\clComPort.vb:line 33"	String

ERROR The I/O operation has been aborted because of either a thread exit or an application request.
Port Open Failed.

Public Sub ClosePort()
  bAllowSndRcv = False
  If IsNothing(comPort) Then Exit Sub
  If comPort.IsOpen Then
    comPort.DiscardOutBuffer()
    RemoveHandler comPort.DataReceived, AddressOf comPort_DataReceived
    Threading.Thread.Sleep(200)
    comPort.Close()
  End If
End Sub

UPDATE tbmain set customername = '' WHERE customername IS NULL