EVITANDO ERROS CASO VALOR NAO EXISTA NO BD

MARIOANDRADE 03/08/2014 23:22:09
#440151
Meus amigos, estou tentando alterar um valor caso ele exista no BD, o problema é que se o MesRef ou Ano_Ref não constarem no BD eu queria
que não fizesse nada, ao invés disso o programa apresenta um erro:

    ConexaoBD
        rs.Open [Ô]select * from TBMesRef where Ano_Ref=[Ô] & Ano & [Ô] And MesRef= [Ô] & Mes & [Ô] And Codigo= [Ô] & Cod_cli & [Ô] [Ô], db, 3, 3
            rs(1) = [Ô][Ô] & txtAnome.Text
            rs(2) = [Ô][Ô] & txtAdiaVenci.Text
            rs(3) = [Ô][Ô] & cmbApago.Text
            If cmbApago.Text = [Ô]SIM[Ô] Then rs(6) = dtpPagamento.Value
        rs.Update
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
NILSONTRES 03/08/2014 23:49:39
#440153 Resposta escolhida
if not rs.Eof then [ô]encontoru
rs(1) = [Ô][Ô] & txtAnome.Text
rs(2) = [Ô][Ô] & txtAdiaVenci.Text
rs(3) = [Ô][Ô] & cmbApago.Text
end if

vc tem que fazer a seleção e em seguida verificar se o ponteiro chegou ao final, se chegou é porque não encontrou, se não chegou então encontrou.
MARIOANDRADE 04/08/2014 00:28:29
#440156
Citação:

:
if not rs.Eof then [ô]encontoru
rs(1) = [Ô][Ô] & txtAnome.Text
rs(2) = [Ô][Ô] & txtAdiaVenci.Text
rs(3) = [Ô][Ô] & cmbApago.Text
end if

vc tem que fazer a seleção e em seguida verificar se o ponteiro chegou ao final, se chegou é porque não encontrou, se não chegou então encontrou.




Valeu mesmo amigão Nilson......RESOLVIDO
Tópico encerrado , respostas não são mais permitidas
Voltar