(Resolvido) Erro BOF e EOF

[gabrieldb]

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 ?

Editado Julho 13, 2009 por gabrieldb

[raphael_suporte]

coloque um if depois do seu recordSet

if rs.eof then
     messageBox "Não há registros"
else
 ' TAREFA
end if

mas o mais elegante para o seu sistema seriam que se não houvesse nenhum registro, não fosse permitido pesquisar, avançar, retornar, etc...

é a minha opinão

[gabrieldb]

mas o mais elegante para o seu sistema seriam que se não houvesse nenhum registro, não fosse permitido pesquisar, avançar, retornar, etc...

é a minha opinão

Como eu iria fazer isso ?

[raphael_suporte]

no seu form Load, você faz a consulta e verifica se tiver algum retorno você coloca lá o primeiro registro, por exemplo, caso não tenha registros você bloqueia os botões.

[gabrieldb]

Fiz aki mais continuou o erro....

[raphael_suporte]

coloca seu código aqui para tentar ver o que pode estar errado.

[gabrieldb]

Ai vai o código do botão pesquisar, que ficou assim

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

Call conexao
Conex.CursorLocation = adUseClient

rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
If rs.EOF Then
     MsgBox "Não há registros"
End If

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.Update
preenche_grid
End Sub

[raphael_suporte]

o que está errado é que mesmo com o IF você tenta preencher, o certo seria colocar a parte de preencher no Else...

If rs.EOF Then
     MsgBox "Não há registros"
End If

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.Update  ' Para quê um UPDATE se você só está consultando?
preenche_grid

[gabrieldb]

o que está errado é que mesmo com o IF você tenta preencher, o certo seria colocar a parte de preencher no Else...

If rs.EOF Then
     MsgBox "Não há registros"
End If

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.Update  ' Para quê um UPDATE se você só está consultando?
preenche_grid

rsrs viajei no UPDATE ficou assim e deu certo

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

Call conexao
Conex.CursorLocation = adUseClient

rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
If rs.EOF Then
     MsgBox "Não há registros"
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.Update
preenche_grid
End If
End Sub

Só falta agora o PROXIMO, ANTERIOR e EXCLUIR vou tentar

[gabrieldb]

Deu certo com todos aki raphael_suporte tudo resolvido...

valeu cara

abraço!