Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal.Estou com dificuldade para realizar o tratamento de um erro com o SQL, quando o mesmo se encontra fora do ar.Coloquei no inicio da pg <% On Error Resume Next %>,informei o include do adovbs.inc <!--#include file="../includes/adovbs.inc" -->entre a string de conexao com o banco e o primeiro SELECT informei if Err.Number <> 0 thenelseSELECT......End ifmas mesmo assim retorna mensagem de Cannot open database requested in login 'xxxxx'. Login fails.Alguem poderia me dar uma ideia de como contornar esta mensagem.Minha necessidade seria caso o banco esteja fora, nao apareca nenhuma mensagem ou aviso.Grato.
<% Response.Buffer = "true" %><% On Error Resume Next %><% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog="%><!--#include file="../includes/funcoes.asp" --><!--#include file="../includes/adovbs.inc" --><%' *********************************************************************' ********************** INCLUDES NECESSÁRIOS *******************' *********************************************************************class IMPORTACAO private reg_INSERIDOS private reg_NAOINSERIDOS private reg_ATUALIZADOS private reg_LIDOS private reg_ERRO private reg_RETORNO private reg_TIPO private Sub Class_Initialize() end Sub private Sub Class_Terminate() end Sub public property Get LIDOS() LIDOS = reg_LIDOS............................................................................ Set Conexao2 = Server.CreateObject("ADODB.Connection") Conexao2.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog=" if Err.Number <> 0 thenelse sqlRegistros = "SELECT .............................." & _.........................................
Tenta assim
...................................... Set Conexao2 = Server.CreateObject("ADODB.Connection") Conexao2.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog=" if Err <> 0 then Response.Write Err.Number & ": " & Err.Description Response.EndElse sqlRegistros = "SELECT .............................." & _.........................................
Qual seria a funcao do Response.End...Pois pelo que notei, ele para a execucao de onde gerou a falha...
Poste o início do código completo.