F�rum Data Source na Atualiza na Execu��o do Programa #387063

24/09/2010

Pessoal estou com o seguinte
problema, em minha aplica��o uso o ADOConnection, o ADODataSet, o Data Set
Provider, e o Client Data Set, e nas minhas tabelas nos c�digos das Chaves
Primarias tenho auto incremento, o programa esta salvando normalmente no banco,
mas n�o consigo visualizar o que salvei, tenho que fechar a aplica��o e
executar novamente para poder ver o registro adicionado. Tenho um formul�rio de
cliente e um de pesquisa de cliente que esta ligado com o de cliente, salvo um
novo cliente, clico em pesquisar no formul�rio de pesquisa esse registro n�o
esta la, reinicio a aplica��o vou em pesquisar e ta la o registro, acredito que
o DataSource n�o esta atualizando em tempo de execu��o, j� tentei de tudo
DataSource1.DataSet.Open e DataSource1.DataSet.Close em v�rios lugares no Form
de Cliente e Pesquisa mas n�o consigo resolver o problema se algu�m poder
ajudar.Obrigado.

Bruno Vba

Curtir t�pico

+ 0

Responder

Posts

24/09/2010

Rafael Ribeiro

Amigo, bom dia!
Na propriedade options do provider tem uma op��o de auto-refresh. Vc j� tentou a habilitar ?

Abra�os, Rafael

Responder

Gostei + 0

24/09/2010

Wilson Junior

Tente colocar DataSource1.DataSet.Refresh

Espero ter colaborado.

Responder

Gostei + 0

24/09/2010

Bruno Vba

Rafael na op��o do provider fiz conforme voc� disse n�o resolveu o problema, Wilson fiz o que disse mas n�o deu certo e da um erro utilizando o Refresh:
Erro: Must apply updates before refreshing data
Pessoal se isso ajudar aqui meu codigo do salvar:

procedure TFrmModelo.BtnSalvarClick(Sender: TObject);  var   Errors : integer;begin  if Verifica_Campos_Em_Branco then    begin      DataSource1.DataSet.Post;      Errors:=(DataSource1.DataSet as TClientDataset).ApplyUpdates(0);      if Errors > 0 then         DataSource1.DataSet.Edit;          DataSource1.DataSet.Close;    end
  else    abort; end;

Responder

Gostei + 0

24/09/2010

Marco Salles

procedure TFrmModelo.BtnSalvarClick(Sender: TObject);
  var   Errors : integer;
begin
  if Verifica_Campos_Em_Branco then
    begin
      DataSource1.DataSet.Post;
      Errors:=(DataSource1.DataSet as TClientDataset).ApplyUpdates(0);
      if Errors > 0 then
         DataSource1.DataSet.Edit;
          DataSource1.DataSet.Close;
    end


  else
     DataSource1.DataSet.Refresh; // coloque aqui
   
  //  abort;  porque abortar ??? Abort gera uma exce��o silenciosa 
// da mesma forma que o Raise exception.Create , por�m silenciosa
//se quiser sair do fluxo use o exit
 
end;

.. e mais , porque o uso de RTTI ??? (DataSource1.DataSet as TClientDataset).ApplyUpdates(0); TClientDataset(DataSouce1.DataSet).ApplyUpdates(0); � muito mais r�pido No fimk tenho duvidas se � DataSource1.DataSet.Refresh ou TClientDataset(DataSouce1.DataSet).Refresh , n�o sei como esta definido o Refresh na Classe DataSet ???

Responder

Gostei + 0

24/09/2010

Rafael Ribeiro

No evento afterpost e afterupdate dos seus clientdataset que n�o sejam detalhes coloque:


TclientDataSet(Dataset).applyupdates(0);

e deixe o auto refresh do provider.

Rafael

Responder

Gostei + 0

24/09/2010

Rafael Ribeiro

Desculpe... � no afterpost e no afterdelete.

Abra�os

Responder

Gostei + 0

24/09/2010

Marco Salles

No evento afterpost e afterupdate dos seus clientdataset que n�o sejam detalhes coloque:


TclientDataSet(Dataset).applyupdates(0);

e deixe o auto refresh do provider.

Rafael

se for colocar o ApplayUpdates neste evento tem que colocar o Refresh ai Tb Tipo isto if TClientDataSet(DataSet).ApplyUpdates(0) <> 0 then
raise Exception.Create('Erro ao gravar no banco de dados')
else
TClientDataSet(DataSet).Refresh;

Responder

Gostei + 0

24/09/2010

Bruno Vba

Pessoal,
Muito Obrigado Pela ajuda, deu certo aqui, to programando em camadas resolvi o
problema, na camada do servidor meu ADODataSet de cliente estava ativo,
desativei ele, agora esta atualizando em tempo de execu��o, Valeu Pessoal.

Responder

Gostei + 0