Visual Basic

Public Class Form1
    Dim dset As New DataSet
    Dim dAdapter As OleDb.OleDbDataAdapter
    Dim ConObject As New OleDb.OleDbConnection
    Dim TotalRows As Integer
    Dim Sel As String
    Private Sub OpenPORT1(ByVal PortNum As Integer)
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        

        SerialPort1.PortName = "COM" + Convert.ToString(PortNum)
        SerialPort1.BaudRate = 38400
        SerialPort1.Parity = System.IO.Ports.Parity.None
        SerialPort1.StopBits = System.IO.Ports.StopBits.One

        SerialPort1.RtsEnable = True
        SerialPort1.Open()
    End Sub

    Private Sub ResetBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetBtn.Click
        Dim cBuilder As New OleDb.OleDbCommandBuilder(dAdapter)
        Dim counter As Integer

        TextBox1.Clear()
        display_box.Clear()
        RS232.Clear()


        TotalRows = dset.Tables("EMSdatabase").Rows.Count
        If TotalRows > 25 Then
            For counter = 25 To TotalRows - 1
                dset.Tables("EMSdatabase").Rows(25).Delete()
                dAdapter.Update(dset, "EMSdatabase")
            Next counter

        End If

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConObject.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Users\pohyingling\Desktop\development of an enviroment monitoring sys\EMS\EMS\EMSdatabase.mdb"

        ConObject.Open()

        Sel = "SELECT*FROM ems"
        dAdapter = New OleDb.OleDbDataAdapter(Sel, ConObject)
        dAdapter.Fill(dset, "EMSdatabase")
        ConObject.Close()

        TotalRows = dset.Tables("EMSdatabase").Rows.Count
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        If InStr(display_box.Text, "") Then
            'dset.Tables("EMSdatabase").Rows("").Item("Data:") = display_box.Text
            dAdapter.Update(dset, "EMSdatabase")


        End If
    End Sub

    Private Sub StartBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBtn.Click
        Timer1.Enabled = True
    End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If IsNumeric(RS232.Text) = False Then
            RS232.Text = InputBox("Enter waspmote COM port no'")
        Else
            Call OpenPORT1(Convert.ToInt16(RS232.Text))
            display_box.Text = SerialPort1.ReadExisting
        End If

    End Sub

    Private Sub DisplayDatabaseBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisplayDatabaseBtn.Click
        Dim Counter As Integer
        Dim Data As String

        TextBox1.Clear()

        TotalRows = dset.Tables("EMSdatabase").Rows.Count

        For Counter = 0 To TotalRows - 1

            Data = dset.Tables("EMSdatabase").Rows(Counter).Item("Data:")

            TextBox1.Text = TextBox1.Text + Data + vbNewLine

        Next Counter
    End Sub

    Private Sub deleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleteBtn.Click
        Dim cBuilder As New OleDb.OleDbCommandBuilder(dAdapter)
    End Sub
End Class

ERROR SUMMARY
	Below is a summary of the errors, details of these errors are listed later in the log.
	* Activation of \\agbvseng14\datas\SOFT\Easy_ECN\Nouveau dossier\EASY ECN.application resulted in exception. Following failure messages were detected:
		+ Downloading http://bue479/EASY ECN/EASY ECN.application did not succeed.
		+ Unable to connect to the remote server
		+ No connection could be made because the target machine actively refused 180.30.4.18:80