I have an issue with some new code that I am trying to thread,

I am using the code below to start my thred

Dim t As Thread
        t = New Thread(AddressOf Me.Main)

        Panel2.Visible = False

in my me.main I have a counter using a var, if this is taken out then my application works fine but when I use my counter (which I plan to use for a progress bar) i get the error seen attatched,
if anyone can help, that would be alot of help

Public Sub Main()

        Dim strSql As String = ""
        strSql = "INSERT INTO data (Date, Time, Gauge, Product, Length, M1, M2, M3, M4, M5) VALUES (@Date, @Time, @Gauge, @Product, @Length, @M1, @M2, @M3, @M4, @M5)"

        'SQL Server Connection String   
        Dim cn As New SqlClient.SqlConnection
        cn.ConnectionString = connectionstring '"Data Source=MyDB;Initial Catalog=DB123;Integrated Security=True"

        'Dim cmd As New SqlClient.SqlCommand
        ' cmd.Connection = cn
        'cmd.CommandType = CommandType.Text
        'cmd.CommandText = strSql


        'Connection String to Excel Workbook   
        Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelFileV & ";Extended Properties=""Excel 12.0;HDR=YES;"""

        ' Create Connection to Excel Workbook   
        Using connection As New System.Data.OleDb.OleDbConnection(excelConnectionString)

            'List columns you need from the Excel file   
            Dim command As New System.Data.OleDb.OleDbCommand("Select [Date],[Time],[Gauge],[Product],[Length],[M1],[M2],[M3],[M4],[M5]  FROM [" & ExcelSheetV & "]", connection)

            ' Create DbDataReader to Data Worksheet   
            Using dr As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()

                If dr.HasRows() Then
                    While dr.Read()
                        Dim cmd As New SqlClient.SqlCommand
                        cmd.Connection = cn
                        cmd.CommandType = CommandType.Text
                        cmd.CommandText = strSql

                        cmd.Parameters.Add("@Date", SqlDbType.VarChar).Value = Convert.ToString(dr.Item("Date"))
                        cmd.Parameters.Add("@Time", SqlDbType.DateTime).Value = (dr.Item("Time"))
                        cmd.Parameters.Add("@Gauge", SqlDbType.VarChar).Value = Convert.ToString(dr.Item("Gauge"))
                        cmd.Parameters.Add("@Product", SqlDbType.VarChar).Value = Convert.ToString(dr.Item("Product"))
                        cmd.Parameters.Add("@Length", SqlDbType.VarChar).Value = Convert.ToString(dr.Item("Length"))
                        cmd.Parameters.Add("@M1", SqlDbType.Decimal).Value = (dr.Item("M1"))
                        cmd.Parameters.Add("@M2", SqlDbType.Decimal).Value = (dr.Item("M2"))
                        cmd.Parameters.Add("@M3", SqlDbType.Decimal).Value = (dr.Item("M3"))
                        cmd.Parameters.Add("@M4", SqlDbType.Decimal).Value = (dr.Item("M4"))
                        cmd.Parameters.Add("@M5", SqlDbType.Decimal).Value = (dr.Item("M5"))
                        _sqlcount = _sqlcount + 1
                       Me.LBrecCount.Text = _sqlcount
                   End While
                End If
            End Using
        End Using
        cn = Nothing
    End Sub
5 Years
Discussion Span
Last Post by adam_k
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.