Redirect quando o BD MySql estiver OFF

[BrunoHP 0]

Fala amigos do F.I. beles?

 

Seguite existe algum comando que redirecione para ma página HTML quando o BD estiver off?

 

Sendo possível como eu deveria fazer?

 

 

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open = "Driver={MySQL ODBC 5.1 Driver}; SERVER="&BRserver&"; DATABASE="&BRdatabase&"; UID="&BRuserdata&"; PWD="&BRpass&";" 

 

 

Abraços!

[P@trique 0]

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open = "Driver={MySQL ODBC 5.1 Driver}; SERVER="&BRserver&"; DATABASE="&BRdatabase&"; UID="&BRuserdata&"; PWD="&BRpass&";"

if conn.errors.count <> 0 then
   Response.Redirect("http://www.site.com/erro")
   Response.End
end if

 

tente isso

[BrunoHP 0]

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open = "Driver={MySQL ODBC 5.1 Driver}; SERVER="&BRserver&"; DATABASE="&BRdatabase&"; UID="&BRuserdata&"; PWD="&BRpass&";"

if conn.errors.count <> 0 then
   Response.Redirect("http://www.site.com/erro")
   Response.End
end if

 

tente isso

 

Testei porém não estou conseguindo simular erro de conexao com o BD

 

Obrigado

[P@trique 0]

coloque a senha errada, por exemplo.

[xanburzum 169]

olha este exemplo

 

on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open MSCSSite.DefaultConnectionString
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = adCmdText
Set cmdTemp.ActiveConnection = conn

' Se a conexão ADO acima falhar, então check 
'O número de erro, caso não seja igual a 0, e depois nós mudar 
'O MSCSSite.DefaultConnectionString a um dos 
'Conexão string no mscssite.connectionstringmap. 
'Para os fins deste exemplo, a base de dados é o padrão 
'SSCommerce e de backup é SSCommerce2

If Err.Number <> 0 Then
err.clear 
mscssite.defaultconnectionstring = mcssite.connectionstringmap("SSCommerce2")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open MSCSSite.DefaultConnectionString
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = adCmdText
Set cmdTemp.ActiveConnection = conn
End if

[BrunoHP 0]

Meus amigos está certo isso?

 

 

Fiz teste fiz o seguiente MySQL ODBC 5.1 Driver para MySQL ODBC 6.1 Driver logo redireciono para o link desejado no redirect! Então funfo mais está certo?

 

on error resume next

'-------------- server ----------------
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open = "Driver={MySQL ODBC 5.1 Driver}; SERVER="&BRserver&"; DATABASE="&BRdatabase&"; UID="&BRuserdata&"; PWD="&BRpass&";" 

IF conn.errors.count> 0 then
   Response.Redirect("http://www.blablalba.com.br/erro")
   Response.End
end if

 

Obrigado mesmo!

[P@trique 0]

kkkkk porque esta achando que esta errado cara??? :upset: kkkk

[marcusIII 0]

É isso mesmo, cara. tá certo

[xanburzum 169]

eu sempre uso aquele code que postei é tá normal

[P@trique 0]

Porque complicar se tem como descomplicar. :wacko:

[xanburzum 169]

um código mais estruturado, não questão de complicar, heheheee

[P@trique 0]

kkkkkk ta errado cara, se liga no que o cara pediu, deixa eu escrever:

 

Redirect quando o BD MySql estiver OFF

 

Ou seja... um erro especifico no bd e não na execução da página, minha sugestão foi na base do que o usuário precisava e para aquilo existia aquela função que sugeri.

 

A sua sugestão é bastante utilizada em erros de execução de página e não é um processo focado no erro do mysql e é para aquilo que minha sugestão serve, é um tratamento próprio para erros no bd.

 

:grin:

[xanburzum 169]

se conexão falhar = quando o BD MySql estiver OFF

 

:grin:

[P@trique 0]

Cara... uma coisa é erro de pagina, outra é erro com mysql, através do code que eu postei da pra identificar o numero do erro no mysql, através do seu da para identificar apenas que encontrou um erro no mysql, ou seja, o seu exemplo é para mostrar erros de script, mais não foi feito para exibir erros numerados do mysql.

 

Aquele exemplo que eu postei é próprio para erros do mysql, muito mais confiável do que utilizar tratador de erro ao seu estilo, pois não sei se tu sabe, mais deve-se moderar tratamento de erros naquele estilo que você postou, uma vez que ele sobrecarrega o sistema... imagina toda pagina que tiver mysql executar o seu exemplo para verificação... isso não contribui em nada com o desempenho.

[BrunoHP 0]

Galerianha já está ok!!! Consegui!

Obrigado a todos!!!!! :thumbsup:

 

 

on error resume next

'-------------- server ----------------
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open = "Driver={MySQL ODBC 5.1 Driver}; SERVER="&BRserver&"; DATABASE="&BRdatabase&"; UID="&BRuserdata&"; PWD="&BRpass&";" 

IF conn.errors.count> 0 then
   Response.Redirect("http://www.site.com.br/erro")
   Response.End
end if
%>

[P@trique 0]

:grin: :thumbsup: