[Resolvido] Funções tratar erro.

David Terra · Junho 9, 2009

Boa noite,

adicionarUsuario.asp

<!-- #include file="cUsuario.asp" -->
<!-- #include file="fucoes.asp" -->
<%

	Dim clsUsuario
	Set clsUsuario = New cUsuario

	clsUsuario.PrimeiroNome = Request.Form("pNome")
	clsUsuario.SobreNome = Request.Form("sNome")
	clsUsuario.DataDeNasc = Request.Form("mes") & "/" & Request.Form("dia") & "/" & Request.Form("ano")
	clsUsuario.Sexo = Request.Form("sexo")
	clsUsuario.Email = Request.Form("email")
	clsUsuario.Senha = Request.Form("senha")
	clsUsuario.Gravar

	 
%>

cUsuario.asp

Public Function Gravar()
			If Me.ID < 1 Then
				Dim arr1, arr2
				arr1 = Array("primeiroNome", "sobreNome", "dataDeNasc", "sexo", "email", "senha")
				arr2 = Array(Me.PrimeiroNome, Me.SobreNome, Me.DataDeNasc, Me.Sexo, Me.Email, Me.Senha)
				Inserir "usuarios", "usuarioID", arr1, arr2 
			End if
		End Function

funcoes.asp

Function Inserir(Tabela, Campo, Colunas, Valores)
	Dim strSQL

	Set rstRet = Server.CreateObject ("ADODB.Recordset")

  
	ObjConn.BeginTrans
	rstRet.Open Tabela, ObjConn, 1, 3, 2

	rstRet.AddNew  Colunas, Valores
	rstRet.Update 
	
	Set rstRet = Nothing
	ObjConn.CommitTrans

	  if Err.Number <> 0 then
		cmd.ActiveConnection.RollBackTrans
		echo Err.Number & "<br />" & Err.Description
	end if
End Function

Como faço para tratar o erro que acontece quando vou fazer a inserção (Função Inserir).

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[MySQL][ODBC 3.51 Driver][mysqld-5.0.51a-community-nt]Duplicate entry 'davidterra@provedor.com.br' for key 2

hargon · Junho 9, 2009

O campo email é chave primária?

David Terra · Junho 9, 2009

O campo email é chave primária?

email			  VARCHAR(100)  UNIQUE					NOT NULL,

É UNIQUE, mas o que não estou conseguindo fazer é tratar o erro e acontece na Function Inserir (linha rstRet.AddNew Colunas, Valores).

Quando coloco On Error Resume Next a página fica embranco não entra no If.

if Err.Number <> 0 then
		cmd.ActiveConnection.RollBackTrans
		echo Err.Number & "<br />" & Err.Description
	end if

Mário Monteiro · Junho 11, 2009

mas o melhor é não inserir neste caso

você seleciona para ver se já existe e se existe da o aviso que já tem e evitar este erro

xanburzum · Junho 11, 2009

olha este exemplo, antes de inserir você verfica pelo campo chave primária se xiste dados , se exister você pode até redirecionar o user para o formulario novamente ou outr page,

'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

David Terra · Junho 12, 2009

Achei como amostrar o erro, chamei o ON ERROR RESUME NEXT dentro da função INSERIR. Mas vou fazer como os amigos aconselharam vou verificar antes de inserir.

Obrigado pela atenção. Podem acionar Resolvido ao título.

Mário Monteiro · Junho 12, 2009

otima decisão

Abraços

jrcardozo · Junho 13, 2009

lembrando que você precisa "resetar" o on error para que não ignore outros erros da página.

on error resume next

'bloco a ser testado

if err.number <> 0 then

'se ocorrer erro entra nesse bloco

end if

on error goto 0 'resetando o on error, a partir da proxima linha os erros voltam a aparecer na tela

xanburzum · Junho 13, 2009

você tb pode usar uma esta funçao para tratar o erro

<%
Sub CheckError
	Select Case Err.Number
		Case 3
			Response.Write " Return sem GoSub"
		Case 5
			Response.Write "Chamada de Procedimento Inválida"
		Case 6
			Response.Write "Sobrecarga"
		Case 7
			Response.Write "Sem Memória"
		Case 9
			Response.Write "SubScript fora de área"
		Case 10
			Response.Write "Este Array está fixo ou temporariamente travado"
		Case 11
			Response.Write "Divisão Por Zero"
		Case 13
			Response.Write "Tipos Incompatíveis"
		Case 14
			Response.Write "Fora de Espaço de String"
		Case 16
			Response.Write "Expressão muito Complexa"
		Case 17
			Response.Write "Não pode recuperar a operação"
		Case 18
			Response.Write "Interrupção do usuário ocorrida"
		Case 20
			Response.Write "Resume Without Error"
		Case 28
			Response.Write "Fora de Espaço de Pilha"
		Case 35
			Response.Write "Sub ou Function não Definida"
		Case 47
			Response.Write "Muitas DLL na aplicação cliente"
		Case 48
			Response.Write "Erro carregando DLL"
		Case 49
			Response.Write "DLL com problemas de chamada"
		Case 51
			Response.Write "Erro Interno"
		Case 52
			Response.Write "Nome ou número do arquivo errado"
		Case 53
			Response.Write "Arquivo não Encontrado"
		Case 54
			Response.Write "Modo de arquivo errado"
		Case 55
			Response.Write "Arquivo já está Aberto"
		Case 57
			Response.Write "Device I/O Error"
		Case 58
			Response.Write "Arquivo jé existente"
		Case 59
			Response.Write "Tamanho do registro errado"
		Case 61
			Response.Write "Disco Cheio"
		Case 62
			Response.Write "Entrada passa do final do arquivo"
		Case 63
			Response.Write "Número de registros errados"
		Case 67
			Response.Write "Muitos arquivos"
		Case 68
			Response.Write "Ferramenta não disponível"
		Case 70
			Response.Write "Permissão Negada"
		Case 71
			Response.Write "Disco não Preparado"
		Case 74
			Response.Write "Não posso renomear com discos diferentes"
		Case 75
			Response.Write "Caminho/Arquivos Erro de acesso"
		Case 76
			Response.Write "Caminho não encontrado"
		Case 91
			Response.Write "Variável de objeto não definida"
		Case 92
			Response.Write "Loop For não foi inicializado"
		Case 94
			Response.Write "Uso inválido de Null"
		Case 322
			Response.Write "Não posso criar Arquivos temporários nescessários"
		Case 325
			Response.Write "Formato inválido no arquivo"
		Case 380
			Response.Write "Valor da propriedade inválida"
		Case 400
			Response.Write "ERRO HTTP 1.1 --- pedido ruim"
		Case 401.1
			Response.Write "ERRO HTTP 1.1 --- não autorizado: falha no logon"
		Case 401.2
			Response.Write "ERRO HTTP 1.1 --- não autorizado: falha no logon devido a configuração do servidor"
		Case 401.3
			Response.Write "ERRO HTTP 1.1 --- não autorizado: não autorizado devido a ACL no recurso"
		Case 401.4
			Response.Write "ERRO HTTP 1.1 --- não autorizado: falha na autorização pelo filtro"
		Case 401.5
			Response.Write "ERRO HTTP 1.1 --- não autorizado: falha na autorização por ISAPI/CGI App"
		Case 403.1
			Response.Write "ERRO HTTP 1.1 --- proibido: acesso a execução proibido"
		Case 403.2
			Response.Write "ERRO HTTP 1.1 --- proibido: acesso de leitura proibido"
		Case 403.3
			Response.Write "ERRO HTTP 1.1 --- proibido: acesso de escrever proibido"
		Case 403.4
			Response.Write "ERRO HTTP 1.1 --- proibido: requer SSL"
		Case 403.5
			Response.Write "ERRO HTTP 1.1 --- proibido: requer SSL 128"
		Case 403.6
			Response.Write "ERRO HTTP 1.1 --- proibido: endereço de IP rejeitado"
		Case 403.7
			Response.Write "ERRO HTTP 1.1 --- proibido: requer certificação do cliente"
		Case 403.8
			Response.Write "ERRO HTTP 1.1 --- proibido: acesso ao site negado"
		Case 403.9
			Response.Write "ERRO HTTP 1.1 --- acesso proibido: Muitos usuários estão conectados"
		Case 403.10
			Response.Write "ERRO HTTP 1.1 --- acesso proibido: configuração inválida"
		Case 403.11
			Response.Write "ERRO HTTP 1.1 --- acesso proibido: senha alterada"
		Case 403.12
			Response.Write "ERRO HTTP 1.1 --- acesso proibido: negado acesso ao mapa"
		Case 404
			Response.Write "ERRO HTTP 1.1 --- não encontrado"
		Case 405
			Response.Write "ERRO HTTP 1.1 --- método não permitido"
		Case 406
			Response.Write "ERRO HTTP 1.1 --- não aceitável"
		Case 407
			Response.Write "ERRO HTTP 1.1 --- requer autenticação do Proxy"
		Case 412
			Response.Write "ERRO HTTP 1.1 --- falha em pré condições"
		Case 414
			Response.Write "ERRO HTTP 1.1 --- pedido - URI muito grande"
		Case 423
			Response.Write "Propriedade ou metodo não encontrado"
		Case 424
			Response.Write "Objeto Requerido"
		Case 429
			Response.Write "OLE Automation não pode ser criado no servidor"
		Case 430
			Response.Write "Classe não suportada pelo OLE Automation"
		Case 432
			Response.Write "Nome do arquivo ou de classe nõ encontrado durante a operação OLE Automation"
		Case 438
			Response.Write "Objeto não suporta esta propriedade ou método"
		Case 440
			Response.Write "Erro na OLE Automation"
		Case 442
			Response.Write "Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference"
		Case 443
			Response.Write "Objeto OLE Automation não contém um valor padrão"
		Case 445
			Response.Write "Objeto não suporta esta ação"
		Case 446
			Response.Write "Objeto não suporta o nome do argumento"
		Case 447
			Response.Write "Objeto não suporta a definição do local atual"
		Case 448
			Response.Write "Nome de argumentos não encontrados"
		Case 449
			Response.Write "Este argumento não é opcional"
		Case 450
			Response.Write "Número de argumentos errado ou definição de propriedade inválida"
		Case 451
			Response.Write "Objeto não é uma coleção"
		Case 452
			Response.Write "Número ordinal inválido"
		Case 453
			Response.Write "Função DLL especificada não foi encontrada"
		Case 454
			Response.Write "código de origem não encontrado"
		Case 455
			Response.Write "Erro de trava no código"
		Case 457
			Response.Write "Esta chave já está associada a um elemento desta coleção"
		Case 458
			Response.Write "Tipos de variáveis usadas na OLE Automation não são suportadas pelo Visual Basic"
		Case 462
			Response.Write "A máquina do servidor remoto não existe ou não está disponível"
		Case 481
			Response.Write "Figura Inválida"
		Case 500
			Response.Write "Variável não definida"
		Case 501
			Response.Write "Variável não pode ser atribuída"
		Case 502
			Response.Write "Objeto não é seguro para script"
		Case 503
			Response.Write "Objeto não é seguro para inicialização"
		Case 504
			Response.Write "Objeto não é seguro para criação"
		Case 505
			Response.Write "Referência inválida ou não qualificada"
		Case 506
			Response.Write "Classe não definida"
		Case 1001
			Response.Write "Sem memória"
		Case 1002
			Response.Write "Erro de Sintaxe"
		Case 1003
			Response.Write "Esperado ':'"
		Case 1004
			Response.Write "Esperado ';'"
		Case 1005
			Response.Write "Esperado '('"
		Case 1006
			Response.Write "Esperado ')'"
		Case 1007
			Response.Write "Esperado ']'"
		Case 1008
			Response.Write "Esperado '{'"
		Case 1009
			Response.Write "Esperado '}'"
		Case 1010
			Response.Write "Esperado Identificador"
		Case 1011
			Response.Write "Esperado '='"
		Case 1012
			Response.Write "Esperado 'If'"
		Case 1013
			Response.Write "Esperado 'To'"
		Case 1014
			Response.Write "Esperado 'End'"
		Case 1015
			Response.Write "Esperado 'Function'"
		Case 1016
			Response.Write "Esperado 'Sub'"
		Case 1017
			Response.Write "Esperado 'Then'"
		Case 1018
			Response.Write "Esperado 'Wend'"
		Case 1019
			Response.Write "Esperado 'Loop'"
		Case 1020
			Response.Write "Esperado 'Next'"
		Case 1021
			Response.Write "Esperado 'Case'"
		Case 1022
			Response.Write "Esperado 'Select'"
		Case 1023
			Response.Write "Esperado expressão"
		Case 1024
			Response.Write "Esperado declaração"
		Case 1025
			Response.Write "Esperado final da declaração"
		Case 1026
			Response.Write "Esperado inteiro constante"
		Case 1027
			Response.Write "Esperado 'While' , 'Until'"
		Case 1028
			Response.Write "Esperado 'While' , 'Until' ou final de declaração"
		Case 1029
			Response.Write "Esperado 'With'"
		Case 1030
			Response.Write "Identificador Muito Longo"
		Case 1031
			Response.Write "Número Inválido"
		Case 1032
			Response.Write "Caracter Inválido"
		Case 1033
			Response.Write "Constante de String não Terminada"
		Case 1034
			Response.Write "Comentário não Terminado"
		Case 1035
			Response.Write "Nested Comment"
		Case 1036
			Response.Write "'Me' não pode ser usado como saída de rotina"
		Case 1037
			Response.Write "Uso Inválido da Palavra Chave 'Me'"
		Case 1038
			Response.Write "'Loop' sem 'Do'"
		Case 1039
			Response.Write "Declaração 'Exit' Inválida"
		Case 1040
			Response.Write "Variável de Controle de Loop 'for' Inválida"
		Case 1041
			Response.Write "Variável Redefinida"
		Case 1042
			Response.Write "Tem que ser a primeira declaração da linha"
		Case 1043
			Response.Write "Não pode atribuir non-By Val para um argumento"
		Case 1044
			Response.Write "Não pode usar parêntesis para chamar uma sub"
		Case 1045
			Response.Write "Esperada Constante Literal"
		Case 1046
			Response.Write "Esperado 'In'"
		Case 1047
			Response.Write "Esperado 'Class'"
		Case 1048
			Response.Write "Tem que ser definido dentro de uma Classe"
		Case 1049
			Response.Write "Esperado Let ou Set ou Get na declaração de propriedade"
		Case 1050
			Response.Write "Esperado 'Property'"
		Case 1051
			Response.Write "Número de argumentos tem que ser consistente em especificações de propriedades"
		Case 1052
			Response.Write "Não pode haver método/ propriedade padrão múltiplo em uma Classe"
		Case 1053
			Response.Write "Class initialize ou terminate não tem argumentos"
		Case 1054
			Response.Write "Propriedade Set ou Let tem que ter pelo menos um argumento"
		Case 1055
			Response.Write "'Next' inesperado"
		Case 1056
			Response.Write "'Default' pode ser especificado somente em 'Property' ou 'Function' ou 'Sub'"
		Case 1057
			Response.Write "Especificação 'Default' precisa especificar também 'Public'"
		Case 1058
			Response.Write "Especificação 'Default' só pode estar em Property Get"

		Case 3000
			Response.Write "O provedor não concluiu a ação pedida"
		Case 3001
			Response.Write "A aplicação está usando argumentos do tipo errado, estão fora do âmbito aceitável ou em conflito com alguma outra aplicação"
		Case 3002
			Response.Write "Ocorreu um erro durante a abertura do arquivo pedido"
		Case 3003
			Response.Write "Erro na leitura do arquivo especificado"
		Case 3004
			Response.Write "Erro ao escrever no arquivo"
		Case 3021
			Response.Write "BOF ou EOF é True ou o registro atual foi deletado. A operação pedido pela aplicação requer um registro atual"
		Case 3219
			Response.Write "A operação pedida pela aplicação não é permitida neste contexto"
		Case 3246
			Response.Write "A aplicação não pode fechar explicitamente um objeto connection no meio de uma transação"
		Case 3251
			Response.Write "O provedor não oferece suporte a operação pedida pela aplicação"
		Case 3265
			Response.Write "ADO não pode achar o objeto na coleção"
		Case 3367
			Response.Write "Não é anexar, objeto já está na coleção"
		Case 3420
			Response.Write "O objeto referenciado pela aplicação não aponta mais para um objeto válido"
		Case 3421
			Response.Write "A aplicação está usando um valor do tipo errado para a aplicação atual"
		Case 3704
			Response.Write "A operação pedida pela aplicação não é permitida se o objeto estiver fechado"
		Case 3705
			Response.Write "A operação pedida pela aplicação não é permitida se o objeto estiver aberto"
		Case 3706
			Response.Write "ADO não pode achar o provedor especificado"
		Case 3707
			Response.Write "A aplicação não pode alterar a propriedade ActiveConnect de um objeto Recordset com um objeto Command como fonte"
		Case 3708
			Response.Write "A aplicação definiu de modo impróprio um objeto Parameter"
		Case 3709
			Response.Write "A aplicação pediu uma operação em um objeto com uma referência a um objeto Connection inválido ou fechado"
		Case 3710
			Response.Write "A operação não é reentrante"
		Case 3711
			Response.Write "A operação ainda está executando"
		Case 3712
			Response.Write "Operação cancelada"
		Case 3713
			Response.Write "A operação ainda está conectando"
		Case 3714
			Response.Write "A transação é inválida"
		Case 3715
			Response.Write "A operação não está sendo executada"
		Case 3716
			Response.Write "A operação não é segura sob estas circunstâncias"
		Case 3717
			Response.Write "A operação fez com que aparecesse uma caixa de diálogo"
		Case 3718
			Response.Write "A operação fez com que aparecesse um cabeçalho de caixa de diálogo"
		Case 3719
			Response.Write "A ação falhou devido a uma violação na integridade dos dados"
		Case 3720
			Response.Write "O provedor não pode ser modificado"
		Case 3721
			Response.Write "Dados longos demais para o tipo de dados apresentados"
		Case 3722
			Response.Write "Ação causou uma violação do esquema"
		Case 3723
			Response.Write "A expressão continha sinais não coincidentes"
		Case 3724
			Response.Write "O valor não pode ser convertido"
		Case 3725
			Response.Write "O recurso não pode ser criado"
		Case 3726
			Response.Write "A coluna especificada não existe nesta fileira"
		Case 3727
			Response.Write "O URL não existe"
		Case 3728
			Response.Write "Você não tem permissão para ver a árvore do diretório"
		Case 3729
			Response.Write "O URL apresentado é inválido"
		Case 3730
			Response.Write "Recurso travado"
		Case 3731
			Response.Write "Recurso já existente"
		Case 3732
			Response.Write "A ação não pode ser concluída"
		Case 3733
			Response.Write "O volume de arquivo não foi encontrado"
		Case 3734
			Response.Write "Falha na operação porque o servidor não pode obter espaço suficiente para completar a operação"
		Case 3735
			Response.Write "Recurso fora de âmbito"
		Case 3736
			Response.Write "Comando não está disponível"
		Case 3737
			Response.Write "O URL na fileira identificada não existe"
		Case 3738
			Response.Write "O recurso não pode ser deletado porque está fora do escopo permitido"
		Case 3739
			Response.Write "Esta propriedade é inválida para a coluna selecionada"
		Case 3740
			Response.Write "Você apresentou uma opção inválida para esta propriedade"
		Case 3741
			Response.Write "Você apresentou um valor inválido para esta propriedade"
		Case 3742
			Response.Write "A definição desta propriedade causou um conflito com outras propriedades"
		Case 3743
			Response.Write "Nem todas as propriedades podem ser definidas"
		Case 3744
			Response.Write "A propriedade não foi definida"
		Case 3745
			Response.Write "A propriedade não pode ser definida"
		Case 3746
			Response.Write "A propriedade não tem suporte"
		Case 3747
			Response.Write "A ação não pode ser concluída porque o catálogo não está definido"
		Case 3748
			Response.Write "A conexão não pode ser alterada"
		Case 3749
			Response.Write "O método Update da coleção Fields falhou"
		Case 3750
			Response.Write "Não é possível definir permissão Deny porque o provedor não oferece suporte para tanto"
		Case 3751
			Response.Write "o provedor não oferece suporte ao tipo de pedido Deny"
	End Select
End Sub
%>

Arquivado

[Resolvido] Funções tratar erro.

Recommended Posts

David Terra 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Terra 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

David Terra 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

Fóruns

Tempo Real

Informação importante