Выбор случая не работает При извлечении данных с сервера sql

Question

Простите, что я спрашиваю, я застрял там, где мой if else и select case statement будет только перейти к опции ELSE. Ниже мой код

lblStudentName.Text = CStr(studentInfo.stuFullName) 
lblStudentBirthCert.Text = CStr(studentInfo.birthCert) 

Dim conn As New SqlConnection 
Dim cmd As New SqlCommand 

conn.ConnectionString = ("server = A-PC\SQLEXPRESS;database=studentManagement;integrated security=true") 
conn.Open() 

cmd.Connection = conn 
cmd.Parameters.AddWithValue("@id", lblStudentBirthCert.Text) 
cmd.CommandText = ("SELECT paymentType From payment Where birthcert=@id") 

Dim reader As SqlDataReader = cmd.ExecuteReader() 
Dim tempPaymentType As String 

While reader.Read() 
    Dim tempPaymentType = reader.GetString(0) 
    Select Case tempPaymentType 
     Case "a" 
      txtFeeA.Text = tempPaymentType 
     Case "b" 
      txtFeeB.Text = tempPaymentType 
     Case "c" 
      txtFeeC.Text = tempPaymentType 
     Case "d" 
      txtFeeD.Text = tempPaymentType 
     Case "e" 
      txtFeeE.Text = tempPaymentType 
     Case Else 
      txtFeeF.Text = tempPaymentType 
    End Select 
End While 
reader.Close() 

По какой-то причине, он будет идти только еще и распечатать его в txtFeeF.text. Запрос вернет 6 результат btw, a в f. То же самое с выражением if else. Без каких-либо команд else и select выход будет f, который является последним в считывателе. Любая помощь очень ценится.

If tempPaymentType.Equals("a") Then 
      txtFeeA.Text = tempPaymentType.ToString 
     End If 

Answer 1

Try Добавление

Trim().ToLower() 

после

GetString(0) 

, чтобы увидеть, если есть случай, вопрос или лишние пробелы. Если поле базы данных является полем символов, оно добавит дополнительные пробелы, но если VARCHAR(), он должен обрезать его.

Answer 2

Добавить строку для отладки:

Dim tempPaymentType = reader.GetString(0) 
    Debug.Print (String.Format("tempPaymentType: {0}", tempPaymentType)) 
    Select Case tempPaymentType 

Там может быть много причин, но вы не дали достаточно информации. Например, буквы разных случаев? («А» против «А»)

Это может помочь изменить этот код:

Dim tempPaymentType As String 

While reader.Read() 
    tempPaymentType = reader.GetString(0) 

Я удивлен, что он даже строит с дополнительным Dim заявления.