como atualizar tabelas em tempo execu��o??

Question

Ol� Senhores, tenho uma tabela de entrada de produtos, TabEntraProdutos quando fa�o uma opera��o de entrada de produtos, e depois vou olhar no relat�rio (ReportBuilder) a opera��o n�o est� listada l�,...

Jonas_giron · Answer

vc esta dando o CommitTrans para confirmar a opera��o?...

Alvaro_web · Answer

Amig�o, sou novato em delphi, vc poderia me mostra como se faz, onde colocar, o commit, eu fiz o seguinte:
no clik do botao
Datamodule1.ADOTabProduto.close;
Datamodule1.ADOTabProduto.open;
Datamodule1.ADOTabProduto.refresh;
Datamodule1.ADOTabProduto.update;

Onde eu coloco o commit??

Emerson Nascimento · Answer

voc� aplica o commit ao salvar o registro....

Alvaro_web · Answer

procedure TFrmEntraProduto.sbConfirmaClick(Sender: TObject);
begin
if StrToInt(DBEdit8.Text) <= 0 then
begin
ShowMessage(�Valor informado n�o � v�lido!�);
Exit;
end
else
DataModule1.ADOTabEntraProduto.Post;
DataModule1.ADOTabProduto.Edit;
DataModule1.ADOTabProdutoqtde.Value:=DataModule1.ADOTabProdutoqtde.Value+DataModule1.ADOTabEntraProdutoqtde.AsVariant;
DataModule1.ADOTabProduto.Post;
DataModule1.ADOTabProduto.Close;
DataModule1.ADOTabProduto.Open;
DataModule1.ADOTabProduto.Refresh;
DataModule1.ADOTabProduto.UpdateStatus;
Datamodule1.ADOTabEntraProduto.Close;
DataModule1.ADOTabEntraProduto.Open;
Datamodule1.ADOTabEntraProduto.Refresh;
Datamodule1.ADOTabEntraProduto.UpdateStatus;
Datamodule1.ADOTabFornecedor.Close;
DataModule1.ADOTabFornecedor.Open;
Datamodule1.ADOTabFornecedor.Refresh;
Datamodule1.ADOTabFornecedor.UpdateStatus;
DBLookupComboBox2.SetFocus;
end;

Este � o c�digo para inserir produtos! o que acha??

Emerson Nascimento · Answer

esses Refreshs e Updates s� servem pro usu�rio corrente. pra que seja vis�vel na rede, � necess�rio �comitar� os dados.

seria algo assim:

with DataModule1 do
begin
  ADOTabEntraProduto.Post; // grava em cache
  ADOTabProduto.Edit; 
  ADOTabProdutoqtde.Value:=
    ADOTabProdutoqtde.Value+ADOTabEntraProdutoqtde.AsVariant; 
  ADOTabProduto.Post; 

  // grava todas as altera��es no banco (fisicamente)
  ADOTabProduto.Connection.CommitTrans;

  ADOTabProduto.Close; 
  ADOTabProduto.Open; 
  ADOTabProduto.UpdateStatus; // ??? 
end;

Alvaro_web · Answer

Valeu amig�o vc � de luxo,meu sistema � de estoque e n�o roda em rede, se eu fizer no final do c�digo assim:Datamodule1.ADOConnection1.BeginTrans;Datamodule1.ADOConnection1.CommitTrans;Fica certo??...

Emerson Nascimento · Answer

n�o conhe�o os componentes ADO. [b:36bea54277]teoricamente a transa��o � aberta automaticamente ao executar uma edi��o nos registros[/b:36bea54277]. por isso eu coloquei apenas o CommitTrans, pois suponho que a transa��o foi aberta ao iniciar a edi��o (entenda-se por edi��o qualquer inclus�o, altera��o ou exclus�o de registros cujos datasets estejam conectados �quele ADOConnection).

se a transa��o n�o for aberta automaticamente, voc� deve abri-la ao iniciar a edi��o e comitar ao gravar as altera��es. seria algo assim:

with DataModule1 do 
begin 
  //inicia a transa��o
  ADOTabProduto.Connection.BeginTrans;

  ADOTabEntraProduto.Post; // grava em cache 
  ADOTabProduto.Edit; 
  ADOTabProdutoqtde.Value:= 
    ADOTabProdutoqtde.Value+ADOTabEntraProdutoqtde.AsVariant; 
  ADOTabProduto.Post; 

  // grava todas as altera��es no banco (fisicamente) 
  ADOTabProduto.Connection.CommitTrans; 

  ADOTabProduto.Close; 
  ADOTabProduto.Open; 
  ADOTabProduto.UpdateStatus; // ??? 
end;

Alvaro_web · Answer

Muito obrigado amig�o resolveu minha d�vida, um forte abra�o...

F�rum como atualizar tabelas em tempo execu��o?? #321215