Visual Basic

	Private Sub RefreshData()<br />
<br />
		While bRun<br />
<br />
			Dim SqlConn As New SqlConnection(ModDb.ConnStr)<br />
			Try<br />
				SqlConn.Open()<br />
<br />
				GetCourseList(SqlConn)<br />
				If SelectedCourse Is Nothing = False Then<br />
					GetFileList(SqlConn)<br />
				End If<br />
<br />
				SqlConn.Close()<br />
			Catch ex As Exception<br />
				If SqlConn.State = ConnectionState.Open Then<br />
					SqlConn.Close()<br />
				End If<br />
			End Try<br />
<br />
			Try<br />
				trdQueryThread.Sleep(REFRESH_PERIOD)<br />
			Catch ex As ThreadInterruptedException<br />
				'do nothing<br />
			Catch ex As Exception<br />
				MessageBox.Show(ex.Message)<br />
			End Try<br />
<br />
		End While<br />
	End Sub

	Private Sub GetCourseList(ByRef sqlConn As SqlConnection)<br />
<br />
		Try<br />
			Dim sqlCmd As New SqlCommand("dbo.LookupErrByCourseCode_npr", sqlConn)<br />
			sqlCmd.CommandType = CommandType.StoredProcedure<br />
<br />
			LstCourseCode.Items.Clear()<br />
			LstCourseCode.Refresh()<br />
<br />
			Dim sqlDR As SqlDataReader = sqlCmd.ExecuteReader<br />
<br />
			While sqlDR.Read<br />
				Dim course As New CourseDetails<br />
				course.CourseCode = sqlDR.Item("Course Code")<br />
				course.BoxNumber = sqlDR.Item("Box Number")<br />
				course.ErrorCount = sqlDR.Item("Errors")<br />
				LstCourseCode.Items.Add(course)<br />
			End While<br />
<br />
		Catch ex As Exception<br />
			Dim myE As New MyException(ex, MyException.SeverityLevel.High)<br />
			myE.WhatHappened = "GetCourseList: Error when obtaining Course Details"<br />
			Throw myE<br />
		End Try<br />
<br />
	End Sub

	Private Sub GetFileList(ByRef sqlConn As SqlConnection)<br />
<br />
		lstTests.Items.Clear()<br />
<br />
		Dim sqlCmd As New SqlCommand("dbo.CourseImage_npr", sqlConn)<br />
		sqlCmd.CommandType = CommandType.StoredProcedure<br />
<br />
		'reset the params due to selection of new course<br />
		sqlCmd.Parameters.Add("@coursecode", SelectedCourse.CourseCode)<br />
		sqlCmd.Parameters.Add("@boxnumber", SelectedCourse.BoxNumber)<br />
		Try<br />
                        '====Right here is where it crashes when using the same connection<br />
			Dim sqlDR As SqlDataReader = sqlCmd.ExecuteReader<br />
<br />
			While sqlDR.Read<br />
				'validate that the image exists<br />
				Dim fileName As String = sqlDR.Item("image_path") & sqlDR.Item("image_name") & EXTENSION<br />
				If IO.File.Exists(fileName) Then<br />
					Dim image As New ImageDetails<br />
					image.countSRE = sqlDR.Item("countSRE")<br />
					image.imageId = sqlDR.Item("image_id")<br />
					image.imageName = sqlDR.Item("image_name")<br />
					image.imagePath = sqlDR.Item("image_path")<br />
					lstTests.Items.Add(image)<br />
				End If<br />
			End While<br />
<br />
			lstTests.Refresh()<br />
		Catch ex As Exception<br />
			Dim myE As New MyException(ex, MyException.SeverityLevel.High)<br />
			myE.WhatHappened = "GetFileList: Error after sleeping"<br />
			MessageBox.Show(myE.Message)<br />
			'Throw myE<br />
		End Try<br />
		'End While<br />
<br />
	End Sub

        Private Sub RefreshData()
            While bRun
                Dim SqlConn As New SqlConnection(ModDb.ConnStr)
                Try
                    SqlConn.Open()
                    GetCourseList(SqlConn)
                    If SelectedCourse Is Nothing = False Then
                        GetFileList(SqlConn)
                    End If
                Catch ex As Exception
                    ' You might want to do something to report the error here.
                Finally
                    If Not SqlConn.State = ConnectionState.Closed Then
                        SqlConn.Close()
                    End If
                    SqlConn.Dispose()    ' Saves the GC a step in collecting this object.
                    SqlConn = Nothing    ' Drop the reference so the GC collects it on the next pass.
                End Try
 
                Try
                    trdQueryThread.Sleep(REFRESH_PERIOD)
                Catch ex As ThreadInterruptedException
                    'do nothing
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End While
        End Sub

m_ConnectOptions.Locale = "MS_409";
m_ConnectOptions.Timeout = new TimeSpan (0,0,0,0,5);
 
string strConnection = "\\\\"+ "192.168.0.88" + "\\root\\cimv2";
 
m_ManScope = new ManagementScope(strConnection, m_ConnectOptions);
 
m_ManScope.Connect();
 
ObjectQuery Temp = new ObjectQuery("SELECT " + "Size" + " FROM Win32_" + "DiskDrive");
m_MOSearcher = new ManagementObjectSearcher (m_ManScope, Temp);

ObjectQuery Temp = new ObjectQuery("SELECT Size, Model FROM Win32_DiskDrive");
m_MOSearcher = new ManagementObjectSearcher (m_ManScope, Temp);

foreach(ManagementObject mo in m_MOSearcher.Get())
{
    Console.WriteLine("Size: " +mo["Size"].ToString ());
    Console.WriteLine("Model: " +mo["Model"].ToString ());
}

public Class1()
{
    for (int i=0; i< 250; i++)
    {
        Thread a = new Thread(new ThreadStart(this.connect));
        a.Start();
        Thread.Sleep(150);
        //this.connect();
    }
}

public Class2()
{
	for (int i=0; i< 25000; i++)
	{
		//Thread a = new Thread(new ThreadStart(this.connect));
		//a.Start();
		//Thread.Sleep(150);
		this.connect();
	}
}

public Class2()
{
	for (int i=0; i< 2500; i++)
	{
		Thread a = new Thread(new ThreadStart(this.connect));
		a.Start();
		Thread.Sleep(500);
		//this.connect();
	}
}

<br />
dim imagethumb as image<br />
imagethumb.fromfile=path.getfilename(strFiles(x))<br />
dim index as integer=lstphotos.largeimagelist.images.add(imagethumb.getThumbNailImage)<br />
lstphotos.items.add(path.getfilename(strFiles(x),index)<br />

<br />
Imagethumb.fromfile(path.getfilename(strFiles(x))<br />

<br />
public sub overloads Add(icon)<br />
public sub overloads Add(Image) 'We are using this<br />
public function overloads Add(Image,Color) as integer 'When we should be using this<br />