Tratamento De Erros

[Guest Ronaldo]

Ola galera queria saber se alguém de vocês sabe fazer um tratamento de erro em ado para que não haja duplicaçao. tipo por exemplo se eu tentar gravar um registro com um numero de codigo já existente, a vai aparecer uma msg do tipo codigo já cadastrado. alguém poderia me ajudar por favor

[PiGmEu]

Ronaldo,

O que voce poderia fazer é o seguinte..

Faco uma busca pelo codigo que vai ser inserido. ex

sql = "Select * from tabela where codigo = '" & txt_codigo & "'"
if tbl.state = 1 then tbl.close
tbl.open sql, conexao


if tbl.eof = true then
   msgbox ("Registro já existente")
else
   'coloca o codigo aki
endif

Abracos

[Graymalkin]

Isso aí, só que a seguinte linha deve ser modificada...

if tbl.eof = true then

... para:

if tbl.eof = false then

Isso porque só será EOF quando o registro não for encontrado.

ok?

Graymalkin

[slipknot]

vocês poderia me dar uma explicação do tabl.state?? tp ..

1- O q é??

2 - Descrição

3 - porque usar???

hehehe......abraços..evlw..

[Graymalkin]

A propriedade State retorna o estado do objeto Recordset, podendo retornar os seguintes valores (segue os nomes das constantes e valores, e uma breve explicação de cada uma):

adStateClosed = 0

Retornado quando o objeto está fechado, ou seja, quando não existe uma tabela vinculada ou criada.

adStateOpen = 1

Retornado quando o objeto está aberto, ou seja, quando existe uma tabela vinculada ou criada.

adStateConnecting = 2

Retornado quando o objeto ainda está conectando.

adStateExecuting = 4

Retornado quando o objeto ainda está executando uma operação.

adStateFetching = 8

Retornado quando o objeto ainda está sendo preenchido com os dados.

No exemplo do PiGmEu, ele colocou a seguinte linha:

if tbl.state = 1 then tbl.close

Que também poderia ser:

if tbl.state = adStateOpen then tbl.close

O motivo disso é que ao tentar abrir um recordset que já está aberto, ocorre um erro, portanto primeiro ele verifica se a tabela está aberta e se estiver ele a fecha, antes de tentar abrir novamente o recordset (na linha seguinte).

Abraços,

Graymalkin

[slipknot]

otima explicação graymalkin!!!!!

eae cara já mandu a MP pro dezinh0 dizendo q aceita ser moderador;??/? eu já te indiquei!!! hehehee

abraços..obrigado!!!

[Guest - PIGMEU -]

Isso aí, só que a seguinte linha deve ser modificada...

if tbl.eof = true then

... para:

if tbl.eof = false then

Isso porque só será EOF quando o registro não for encontrado.

ok?

Graymalkin

Ops.. disfarca.. eheh

mal o erro :(

:P

[Guest Ronaldo]

obrigado pela atençao de vocês, só que eu tipo to usan o controle adodc ai eu coloquei no botao gravar assim:

SQL = "SELECT * FROM cliente WHERE codigo='" & txtBairro & "'"

If Adodc1.Recordset.State = 1 Then

Adodc1.Recordset.Close

Adodc1.Recordset.Open SQL

End If

If Adodc1.Recordset.EOF = False Then

MsgBox "codigo já existe"

Else

Adodc1.Recordset.Update

End If

só que deu erro:r-time 3219 "operaçao solicitada pelo aplicativo não permitida neste contexto". alguém sabe o que eu devo fazer?

[PiGmEu]

Ronaldo.. esse Adodc1 seria a sua tabela certo? então vamos la:

SQL = "SELECT * FROM cliente WHERE codigo='" & txtBairro & "'"


If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
Adodc1.Recordset.Open sql, cnn, adOpenKeyset 

If Adodc1.Recordset.EOF = False Then
   MsgBox "codigo já existe"
Else
   sql = "UPDATE TABELA SET campo = '" & txt_campo & "' ....... where campo = '" valor & "'"
   conexao.execute sql   
End If

veja se funciona.

abracos

[Guest Ronaldo]

coloquei assim o codigo e tambem nem funcionou veio de o mesmo erro que te falei

SQL = "SELECT * FROM cliente WHERE codigo='" & txtBairro & "'"

If Adodc1.Recordset.State = 1 Then

Adodc1.Recordset.Close

Adodc1.Recordset.Open SQL, cnn, adOpenKeyset

End If

If Adodc1.Recordset.EOF = False Then

MsgBox "codigo já existe"

Else

SQL = "UPDATE Clientes SET bairro = '" & txtBairro & "' where cliente = '" & txtCliente & "'"

conexao.Execute SQL

End If