ACESSO AO BANCO DE DADOS VIA CODIGO
Olá amigos do VBmania...
Estou há alguns meses tentando migrar de VB6 para Vb.net 2008 e estou tendo inúmeras dificuldades. A minha dificuldade é:
Eu tenho uma tela de login e quando o usuário dá o OK ele executa o seguinte código:
Dim strsql As String = [Ô]select * from usuario where username=[ô][Ô] & txtUsuario.Text & [Ô][ô] and password=[ô][Ô] & txtSenha.Text & [Ô][ô][Ô]
Dim command As New OleDb.OleDbCommand(strsql, Connection)
[ô]cria um objeto datareader
Dim dr As OleDb.OleDbDataReader
If Connection.State = ConnectionState.Closed Then
Connection.Open()
End If
dr = command.ExecuteReader
O que eu preciso agora é verificar se o campo bloqueado é verdadeiro ou falso. Como eu posso ler essa informação.
Em VB6 eu colocaba if TBUser!bloqueado = true then mas agora em VBnet estou tendo essa dificuldade..
Desde já obrigado aos amigos..!!
Estou há alguns meses tentando migrar de VB6 para Vb.net 2008 e estou tendo inúmeras dificuldades. A minha dificuldade é:
Eu tenho uma tela de login e quando o usuário dá o OK ele executa o seguinte código:
Dim strsql As String = [Ô]select * from usuario where username=[ô][Ô] & txtUsuario.Text & [Ô][ô] and password=[ô][Ô] & txtSenha.Text & [Ô][ô][Ô]
Dim command As New OleDb.OleDbCommand(strsql, Connection)
[ô]cria um objeto datareader
Dim dr As OleDb.OleDbDataReader
If Connection.State = ConnectionState.Closed Then
Connection.Open()
End If
dr = command.ExecuteReader
O que eu preciso agora é verificar se o campo bloqueado é verdadeiro ou falso. Como eu posso ler essa informação.
Em VB6 eu colocaba if TBUser!bloqueado = true then mas agora em VBnet estou tendo essa dificuldade..
Desde já obrigado aos amigos..!!
If dr([Ô]bloqueado[Ô]) Then
[txt-color=#006400][ô]Faça algo[/txt-color]
End If
Obrigado pela resposta..
Mas infelizmente não está dando certo.. coloquei assim...
If dr.HasRows = True Then [ô] Verifica se existe retorno de linhas
If dr([Ô]bloqueado[Ô]) = False Then
End If
frmPrincipal.Show()
Me.Close()
end if
Mas está dando erro [Ô]No data exists for de row/column[Ô]. Se puder me ajudar.. agradeço
Mas infelizmente não está dando certo.. coloquei assim...
If dr.HasRows = True Then [ô] Verifica se existe retorno de linhas
If dr([Ô]bloqueado[Ô]) = False Then
End If
frmPrincipal.Show()
Me.Close()
end if
Mas está dando erro [Ô]No data exists for de row/column[Ô]. Se puder me ajudar.. agradeço
cuidado com injeção sql
O que pode estar ocorrendo é que o valor do campo está nulo.
Faça assim:
If val(dr([Ô]bloqueado[Ô]).Tostring) = False Then
ou
If isDbnull (dr([Ô]bloqueado[Ô])) = False Then
Faça assim:
If val(dr([Ô]bloqueado[Ô]).Tostring) = False Then
ou
If isDbnull (dr([Ô]bloqueado[Ô])) = False Then
Humm.. Descobri a zica... Esqueci de dar Dr.read para ler o 1° registro
Valew amigos
Valew amigos
Tópico encerrado , respostas não são mais permitidas