[Resolvido] Erro BOF e EOF

[gabrieldb 5]

Bom dia pessoal estou com erros no meu sistema quando eu não tenho nenhum registro na tabela e clico em Pesquisar, Próximo e Anterior ou Excluir ele dá esse erro BOF e EOF e diz que não foi encontrado nenhum registro como faço pra quando o usuário clicar em um desses botões (Pesquisar, Próximo e Anterior e Excluir) não aparecer esse erro quando estiver sem registros na tabela ?

[Bruno Augusto 417]

Olha, faz muito tempo que não programo VB, mas EOF, pelo que me lembro é fim de arquivo (ou de registro).

 

Sobre a não exibição desse erro, você pode condicionar com um .enabled (se bem me lembro) a "permissão" de se clicar no botão.

 

Assim, se o número de registros for diferente de zero, o botã estará "clicável", isto é, ativo. Se não, desabilitado.

[gabrieldb 5]

Ele ocorre quando não tem nada no banco...queria saber como tratar ele...

[lcs_sp 0]

Olá Gabriel,

 

posta ai a parte do codigo onde apresenta o erro

[Bruno Augusto 417]

Então, você tentou como eu disse?

 

Recebe os registros e, antes de iterar, verifica se estiver vazio. Se estiver, desabilit os botões de navegação (Próximo, Anterior..), se não estiver vazio, daí sim itera.

[scorpio 7]

Coloque

If Rs.EOF Or Rs.BOF Then
  'Não executa
Else
  'Encontrou, (Ir para proximp, anterior se que sabe)
End If

[gabrieldb 5]

Coloque

If Rs.EOF Or Rs.BOF Then
  'Não executa
Else
  'Encontrou, (Ir para proximp, anterior se que sabe)
End If

Deu certo aki parecido com esse ai scorpio só fiz um pouco diferente...

 

Ficou assim meu botão excluir

 

Private Sub cmdExcluir_Click()
Dim rs As New ADODB.Recordset

Call conexao
Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'")
rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic

  If rs.EOF Then
	 MsgBox "Não existe registros para ser excluído!"
	  Else
txtFantasia.Text = rs("nome")
txtEstab.Text = rs("estab")
txtRazao.Text = rs("razao")
txtEndereco.Text = rs("endereco")
txtBairro.Text = rs("bairro")
txtCidade.Text = rs("cidade")
txtEstado.Text = rs("estado")
txtCep.Text = rs("cep")
txtCnpj.Text = rs("cnpj")
txtInscricao.Text = rs("inscricao")
txtCcm.Text = rs("ccm")
txtFone1.Text = rs("fone1")
txtFone2.Text = rs("fone2")
txtFone3.Text = rs("fone3")
txtFax.Text = rs("fax")
txtResp.Text = rs("resp")
txtCargo.Text = rs("cargo")
txtEmail.Text = rs("email")
txtSite.Text = rs("site")
rs.Close
 End If
End Sub