Erro com conexao

[fabio_br 0]

Boa tarde

 

Recentemente começei a ter problemas de conexão com meu banco de dados, do nada aparece MySQL server has gone away , e quando isso aparece "BAM"

meu site fica fora do ar, problema muito ruim para site de vendas. Então venho aqui para pedir ajuda a montar uma trap para redirecionar minha página quando esse erro acontecer ao invés de ficar aparecendo uma página de erro, que permanece por 3 a 4 minutos.

Detalhe interessante, o mysql server está normal mesmo na hora que este erro está acontecendo.

Gostaria de saber como poderia trapear esse erro. Tipo, quando esse problema aparecesse a página seria automaticamente redirecionada a uma página explicativa da instabilidade do servidor.

 

o erro é:

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.41--log]MySQL server has gone away

Foi me sugerido pelo pessoal aqui do forum em asp o seguinte:

 

tenta isso se a conexão falhar:

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

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

Como poderia usar isso no DX.

 

Gratos pela ajuda

Fábio

[fabio_br 0]

Bom dia

 

Gostaria de saber se o código abaixo que acabei misturando do que foi passado pelo pessoal do forum em asp, com a conexao do Dream e ficou o seguinte:

 

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_mysqlcatvi_STRING, MM_mysqlcatvi1_STRING
MM_mysqlcatvi_STRING = "Driver={MySQL ODBC 3.51 Driver}; SERVER=mysql01.catvi.com.br; DATABASE=catvi; UID=catvi; PWD=emu193catmi;"
MM_mysqlcatvi1_STRING = "Driver={MySQL ODBC 3.51 Driver}; SERVER=mysql01.catvi.com.br; DATABASE=catvi; UID=catvi; PWD=emu193catmi;"

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

If Err.Number <> 0 Then
	err.clear 
	MM_mysqlcatvi_STRING = MM_mysqlcatvi1_STRING
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open MM_mysqlcatvi_STRING
	Set cmdTemp = Server.CreateObject("ADODB.Command")
	cmdTemp.CommandType = adCmdText
	Set cmdTemp.ActiveConnection = conn
End if
%>

Será que funcionará ?? Estaria faltando algo??

 

Aguardo uma resposta

Fabio

[alebae 0]

Talvez isto possa te ajudar

CLIQUE AQUI