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 >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
