Popular TextBox ou Apresentar MsgBox

[Alexandre Fernandes Fadul 0]

Galera,

 

Tenho um textbox no qual digito um Cód, caso o código exista no banco de dados, preenche os campos do formulário. Caso não exista os campos, exibe uma mensagem de erro informando que não existem dados.

 

Consegui fazer funcionar até a parte de popular os campos, porém na hora de validar se existe ou não os registros no BD, nada está acontecendo.

 

Segue abaixo todo o código que estou utilizando:

 

   Private Sub txtId_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtId.Leave
       Dim objConexao As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DataBase\Database.accdb;Jet OLEDB:Database Password=woobainfra")
       Dim ConexaoBD As OleDbCommand = New OleDbCommand() 'Comando em SQL
       Dim Leitor As OleDbDataReader 'Leitor, que carregará os dados
       Dim Senhadoleitor As String = "" 'Inicialização do leitor, evitar erros
       Dim Imagemdoleitor As String = "" 'Inicialização do campo imagem

       ConexaoBD.Connection = objConexao 'Conecta o comando ao BD
       'Instrução SQL
       ConexaoBD.CommandText = "SELECT * FROM Login WHERE Cod = '" & txtId.Text & "'"
       objConexao.Open() 'Abre a conexão
       Leitor = ConexaoBD.ExecuteReader() 'Executa o comando no leitor

       While Leitor.Read
           If txtId.Text = Leitor("Cod") Then
               txtId.Text = Leitor("Cod")
               txtUsuario.Text = Leitor("Usuario")
               txtSenha.Text = Leitor("Senha")
               txtImagem.Text = Leitor("Imagem")
               cmbStatus.Text = Leitor("Status")
               cmbNivel.Text = Leitor("Nivel")
               Imagemdoleitor = Leitor("Imagem").ToString()
               pctFotologin.Image = System.Drawing.Image.FromFile(Imagemdoleitor)
           Else
               MsgBox("Nenhum Registro Encontrado!", MsgBoxStyle.Information, "Atencao!")
               objConexao.Close() 'Fecha a conexão
           End If
       End While
   End Sub

[quintelab 91]

Ele entra no While?

 

Abraços...

[Alexandre Fernandes Fadul 0]

Bom... Acho que sim! Porque o while que está fazendo a leitura dos dados através do Leitor.Read.

 

Existe outra forma de fazer isso? Estou meio(muito) perdido!

[quintelab 91]

Acha que sim? Faça um Debug, veja onde ele entra, o que ele esta fazendo, onde para.

 

Abraços...

[Alexandre Fernandes Fadul 0]

quintelab, me desculpe! Agora que eu fui entender a sua primeira pergunta!

 

Pensei que estava perguntando se o lugar do If era realmente dentro do While.

 

Sobre o sistema funcionar até o While, sim, o código funciona e o If também.

 

 

Se eu digitar o valor de Código 1 existente no banco de dados, o sistema popula os textboxs normalmente conforme condição do If, porém se eu digitar um código que não exista no banco de dados, não exibe nenhuma mensagem dizendo que não há registros no banco, conforme deveria ser feito segundo a lógica do código.

 

Rodando o sistema pelo Debug, ele roda normal e não há nenhum erro sendo exibido.

 

Obrigado!

[quintelab 91]

Agora entendi!! :thumbsup:

 

Ele não vai entrar no ELSE, por que quando o código não existe, ele nem entra no While. Seu Leitor não atenderá a condição de read.

 

Abraços...

[Alexandre Fernandes Fadul 0]

Hum!!

 

E oq eu devo fazer para realizar um tratamento de não existencia de dados? Se não existir esse valor no banco, retornar uma mensagem.

[quintelab 91]

Crie uma variável que tem como padrão o valor false. Se entrar no while alimenta para true.

 

Fora do seu while verifique qual o valor dela para saber o que fazer.

 

Abraços...