Eric, a base está na WEB.
________________________________
From: eric_developer <developer.syst...@yahoo.com>
To: delphi-br@yahoogrupos.com.br
Sent: Mon, July 5, 2010 3:24:30 PM
Subject: [delphi-br] Re: MySQL server has gone away
Sua aplicação desktop esta acessando uma base de dados na Web ou rede interna ?
Eric Developer Systems
www.magaldi.eti.br
--- Em delphi-br@yahoogrupos.com.br, Levy Pereira <levypere...@...> escreveu
>
> Prezados amigos,
>
> como um (por enquanto) iniciante com o MySQL estou apanhando, estou usando o
> ZEOS para conexão.
>
> A conexão é instável. Muitas vezes procede normalmente as consultas,
> atualizações ou inserções, em outras o fatal erro acontece e somente volta a
> conectar depois de sair e entrar no aplicativo.
>
> Este erro acontece algumas vezes quando o aplicativo fica ativo sem atividade.
>
> Antes de começar qualquer procedimento checo se há conexão:
>
> if BD.Conexao.Connected = false then BD.Conexao.Reconnect;
>
> Depois o processo:
>
> BD.Query01.Close;
> BD.Query01.SQL.Clear;
> BD.Query01.SQL.Add('start transaction');
> BD.Query01.ExecSQL;
> BD.Query01.Close;
> BD.Query01.SQL.Clear;
> BD.Query01.SQL.Add(
> 'insert into fornecedores ( cnpj, razaosocial, telefone, contato,'+
> 'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
> BD.Query01.ExecSQL;
> BD.Query01.SQL.Clear;
> MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 );
> passou := True;
> BD.Query01.SQL.Add('commit');
> BD.Query01.ExecSQL;
> BD.Query01.SQL.Clear;
> BD.01.Refresh;
>
> Grato pela ajuda!
>
> Levy
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
[As partes desta mensagem que não continham texto foram removidas]
