fabio_br 0 Denunciar post Postado Dezembro 17, 2008 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 Compartilhar este post Link para o post Compartilhar em outros sites
fabio_br 0 Denunciar post Postado Dezembro 18, 2008 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 Compartilhar este post Link para o post Compartilhar em outros sites
alebae 0 Denunciar post Postado Dezembro 19, 2008 Talvez isto possa te ajudar CLIQUE AQUI Compartilhar este post Link para o post Compartilhar em outros sites