Recuperando uma coluna de bit do banco de dados sql no VB NET
Eu encontrei um problema em que, no meu banco de dados, tenho uma coluna que é um pouco 0 ou 1, especificando se um usuário é administrador ou se a conta está suspensa ou não. E no meu código VB eu estou tentando recuperar esse bit. Código de exemplo:
Dim dtRequests As DataTable
dtRequests = New DataTable("Users")
dtRequests.Columns.Add("SESLoginID", System.Type.GetType("System.Int32"))
dtRequests.Columns.Add("fullname", System.Type.GetType("System.String"))
dtRequests.Columns.Add("SESSuspended", System.Type.GetType("System.Byte"))
dtRequests.Columns.Add("SESAdmin", System.Type.GetType("System.Byte"))
dtRequests.Columns.Add("OfficeName", System.Type.GetType("System.String"))
cmdoledb = New SqlCommand("SELECT SESLoginID, SESFirstName + ' ' + SESLastName As fullname , SESSuspended, SESAdmin, OfficeID from SESLogin where (SESEmail Like '%" & keyword & "%' or SESFirstName + ' ' + SESLastName like '%" & keyword & "%' or SESLastName like '%" & keyword & "%') order by SESFirstName;", objConnect)
cmdoledb.Parameters.AddWithValue("@pid", pid)
objConnect.Open()
Dim rdr As SqlDataReader
Dim myItem As ListItem = New ListItem()
rdr = cmdoledb.ExecuteReader()
While rdr.Read()
Dim newrow As DataRow
newrow = dtRequests.NewRow
newrow.Item("SESLoginID") = rdr.GetInt32(0)
newrow.Item("fullname") = rdr.GetString(1)
newrow.Item("SESSuspended") = rdr.GetByte(2) // Specified cast is not valid.
newrow.Item("SESAdmin") = rdr.GetByte(3) // Specified cast is not valid.
Dim officeid As Integer = rdr.GetInt32(4)
Dim officename As String = ""
cmdldb = New SqlCommand("SELECT OfficeName from Office where OfficeID = @offid", objConnected)
cmdldb.Parameters.AddWithValue("@offid", officeid)
objConnected.Open()
officename = cmdldb.ExecuteScalar()
newrow.Item("OfficeName") = officeid
objConnected.Close()
dtRequests.Rows.Add(newrow)
End While
Eu tentei obter rdr.GetByte (3), isso me diz que o elenco não é válido, mas não há nenhuma função que diga GetBit, e se isso existir, não o encontrei. Portanto, estou esperando uma resposta rápid