Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCriteriaSearch.Click
Dim serialSelect As String = "equipment_serial_number"
Dim cfSelect As String = "equipment_cf_tag"
Dim sqlColumn As String
Dim searchCriteria As String
If cboCriteria.SelectedIndex = 0 Then
sqlColumn = serialSelect
Else
sqlColumn = cfSelect
End If
searchCriteria = txtCriteriaSearch.Text.ToUpper
Dim mySqlConnection As SqlConnection = New SqlConnection(getConnectionString)
Dim mySqlCommand As SqlCommand = New SqlCommand()
Dim mySqlReader As SqlDataReader
mySqlConnection.Open()
mySqlCommand.Connection = mySqlConnection
mySqlCommand.CommandText = ( _
"SELECT EQ_Equipment.equipment_serial_number, " & _
"EQ_Equipment.equipment_cf_tag, " & _
"EQ_Equipment.equipment_description, " & _
"EQ_Equipment.equipment_warranty, " & _
"EQ_Equipment.item_class_id, " & _
"EQ_Equipment.location_id, " & _
"EQ_Equipment.status_id, " & _
"EQ_Equipment.user_id " & _
"FROM EQ_Equipment " & _
"WHERE " & sqlColumn & " = '" & searchCriteria & "'")
mySqlReader = mySqlCommand.ExecuteReader()
While mySqlReader.Read()
txtSerialNumber.Text = mySqlReader.GetString(0)
txtTag.Text = mySqlReader.GetString(1)
txtNotes.Text = mySqlReader.GetString(2)
dtpWarranty.Value = mySqlReader.GetDateTime(3)
cboClassType.SelectedValue = mySqlReader.GetInt32(4)
cboLocation.SelectedValue = mySqlReader.GetInt32(5)
cboItemStatus.SelectedValue = mySqlReader.GetInt32(6)
cboUserList.SelectedValue = mySqlReader.GetInt32(7)
End While
mySqlConnection.Close()
variableUpdate()
End Sub