Solucionado, de fato faltava a instrução commit na posição correta. grato,
Levy ________________________________ From: Eduardo Silva dos Santos <eduardo....@gmail.com> To: delphi-br@yahoogrupos.com.br Sent: Sat, July 3, 2010 1:09:37 AM Subject: Re: [delphi-br] Dados não atualizados no MySQL Eu não sei qual suite de componentes você ta usando para conexão, mais creio que ta faltando dar um commit ao final do processo. Att, ....................................................... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo....@gmail.com Site: http://www.drdsistemas.com.br/ ....................................................... Em 2 de julho de 2010 17:38, Levy <levypere...@yahoo.com> escreveu: > > > Prezados amigos, > > tenho algumas tabelas que quando faço inserção ou atualização funcionam > normalmente, contudo depois de encerrar o aplicativo e voltar a ele os dados > estão inalterados no servidor. > > o código está aqui só para quem sabe ver se não tem nenhuma orelha nele. > > Nota: a aplicação acessa uma base de dados num servidor externo, quando > está local funciona normalmente. Acessando a base no servidor com o > Workbench também funciona normalmente. > > Valeu! > > ----- > > bd.conexao.StartTransaction; > Bd.QueryDosFornecedores.Close; > bd.QueryDosFornecedores.SQL.Clear; > > try > if existefornecedor.Caption = 'N' Then > Begin > Bd.QueryDosFornecedores.SQL.Add( > 'insert into fornecedores ( cnpj, razaosocial, telefone, contato,'+ > 'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')'); > > Bd.QueryDosFornecedores.ExecSQL; > Bd.QueryDosFornecedores.SQL.Clear; > bd.fornecedores.CommitUpdates; > Bd.Fornecedores.Refresh; > > MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 > ); > > passou := True; > > end > Else > Begin > bd.fornecedores.Locate( 'cnpj', e_cnpj.Text, [] ); > > if ( trim ( e_cnpj.Text ) <> trim( bd.fornecedorescnpj.Text ) ) or > ( trim ( e_razaosocial.Text ) <> trim( bd.fornecedoresrazaosocial.Text ) ) > or > ( trim ( e_contato.Text ) <> trim( bd.fornecedorescontato.Text ) ) or > ( trim ( e_telefone.Text ) <> trim( bd.fornecedorestelefone.Text ) ) or > ( trim ( e_email.Text ) <> trim( bd.fornecedoresemail.Text ) ) then > begin > > Bd.QueryDosFornecedores.SQL.Add( > 'Update fornecedores set cnpj = '+A01+', razaosocial = '+A02+ > ', telefone = '+A03+', contato = '+A04+', email = '+A05+' Where Cnpj = > '+A01); > > Bd.QueryDosFornecedores.ExecSQL; > Bd.QueryDosFornecedores.SQL.Clear; > bd.fornecedores.CommitUpdates; > bd.fornecedores.Refresh; > > MessageBox( Handle, 'Fornecedor alterado com sucesso', 'Informação', 64 ); > > end; > passou := True; > bd.QueryDosFornecedores.Close; > End; > > except > on E: Exception do > begin > MessageBox(Handle,PChar('Ocorreu um erro ao tentar gravar os dados.'#13+ > 'Informe o erro:'#13+ > E.Message),'ERRO',16); > > End; > > ----- > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> [As partes desta mensagem que não continham texto foram removidas]
