Avisar Quando Tiver Duplo Registro

[|Alucard|]

seguinte, eu coloquei no meu programa um banco de dados, e nele eu coloquei p/ não permitir entradas duplicadas... beleza, eu testei e está tudo funcionando como deveria... só que quando dá erro, dá uma mensagem enorme (a msg é essa oh: "As alteracoes solicitadas p/ a tabela não foram satisfatorias já que criaram valores duplicados no indice, chave primaria ou relacao. Altere os dados no campo ou campos que contem os dados dulpicados, remova o indice ou redefina o indice p/ possibilitar entradas duplicadas e tente novamente."). teria como eu por uma msg personalizada, tipo: o dado tal já existe no banco de dados..??

valeu =]

[Graymalkin]

Você não captura o erro com um Try... Catch? Então, é só colocar ali a sua mensagem.

Abraços,

Graymalkin

[|Alucard|]

ah sim... eu tentei aqui... mas todo erro que dá, aparece a minha msg personalizada...não tem como cara erro ter uma msg diferente???

valeu =]

[Graymalkin]

Já tentou olhar a propriedade ErrorCode do objeto do Catch? Acredito que ela deva ter valores diferentes para diferentes erros. Daí você pode utilizar a cláusula When no Catch para diferenciar.

Abraços,

Graymalkin

[|Alucard|]

errr... =/ procurei alguns exemplos... mas não consegui entender... sera que voc^não poderia postar o codigo de como eu uso o ErrorCode???

valeu =]

[Graymalkin]

Bom, ErrorCode não tem utilidade já que sempre retorna o mesmo código para qualquer erro. Então decidi olhar as outras propriedades e encontrei em Errors(0).SQLState uma maneira de diferenciar os erros. O código seria algo assim:

        Try
            'aqui entra o seu código para adicionar o registro
        Catch ex As OleDb.OleDbException When ex.Errors(0).SQLState = 3022
            MessageBox.Show("Chave-primária duplicada!")
        Catch ex As OleDb.OleDbException When ex.Errors(0).SQLState = 3200
            MessageBox.Show("Registro relacionado em outra tabela! Não é possível excluí-lo sem primeiro remover a relação!")
        Catch ex As OleDb.OleDbException When ex.Errors(0).SQLState = 3201
            MessageBox.Show("Não é possível inserir este registro porque existe uma relação entre as tabelas (e um valor informado não tem correspondente na outra tabela)!")
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Errors(0).SQLState)
            MessageBox.Show("Ocorreu outro erro qualquer: " & ex.Message)
        End Try

Coloquei alguns exemplos, mas para você ver os outros códigos basta forçar o erro que o último Catch vai mostrar o código para você.

Certo? ;)

Graymalkin

[|Alucard|]

aaah agora sim eu entendi... pow... obrigado Graymalkin, eu vou testar aqui agora e já já eu posto o resultado =]

obrigado mais uma vez =]

*** EDIT: funcionou perfeitamente... muito obrigado Graymalkyn =]