Olá, Se você estiver usando o DBx, após inserir/alterar/excluir, execute:
seuClientDataSet.ApplyUpdates(-1); -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: [email protected] Skype: paulo.prsolucoes Consultor Certificado Bindows Em 3 de julho de 2010 01:09, Eduardo Silva dos Santos <[email protected] > escreveu: > 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: [email protected] > Site: http://www.drdsistemas.com.br/ > ....................................................... > > > Em 2 de julho de 2010 17:38, Levy <[email protected]> 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]
