END goal:
Read in the value of DETENTION_OVERRIDE_01 from database, if Det01 = "True" then place a check in the appropriate checkbox.
Using the following code, even though Det01 comes back properly (shows as being True), the Case Select shows it as false and no check is entered. What am I missing?
Code:Private Sub Detention01() Dim cmd As New SqlCommand Dim reader As SqlDataReader Try cmd.CommandText = "SELECT DETENTION_OVERRIDE_01 FROM LOAD_INFO_TABLE WHERE PETS_LOAD_NUMBER= '" & tbPETSLoadNumber.Text & "'" cmd.CommandType = CommandType.Text cmd.Connection = New SqlConnection() cmd.Connection.ConnectionString = My.MySettings.Default.PETS_DatabaseConnectionString cmd.Connection.Open() Try reader = cmd.ExecuteReader() Dim Det01 As String With reader .Read() Det01 = .GetString(0) Select Case True Case Det01 = "True" ccb01DetOverride.Checked = True Case Else ccb01DetOverride.Checked = False End Select Return End With reader.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try Catch ex As Exception MessageBox.Show(ex.Message) End Try cmd.Connection.Close() Detention90() End Sub




Reply With Quote
