F�rum Problema em ATUALIZA��O NO BD #379500

14/06/2010

om galera seguinte, tenho 3 forms e 2 tabelas no BANCO DE DADOS, u forme de LUCRO que liga com a tabela LUCRO e o FORM GASTO que liga com a tabela GASTOS, e o 3 form pega o total de lucro que ta no BD e diminui pelo total de GASTOS , s� que quando eu adiciono alguma coisa na tabela LUCRO ou GASTO esta certinho , eu configo no BD e esta adicionando na tabela na mesma hora, o problema � o seguinte , depois que eu adiciono e vou fazer o calculo no form 3 , ele n�o pega o dado que eu coloquei na hora, eu tenho que feixar o form e abrir pro form 3 identificar o valor que eu coloquei na tabela :S ,

alguem teria uma dica?

Jonatan

Curtir t�pico

+ 0

Responder

Posts

14/06/2010

F�bio Cruz

est� utilizando ClientDataSet?

Se estiver est� dando um ApplyUpdates?

Responder

Gostei + 0

14/06/2010

Jonatan

est� utilizando ClientDataSet?

Se estiver est� dando um ApplyUpdates?

Estou usando ClienteDataSet sim.

n�o estou dando ApplyUpdates n�o

Responder

Gostei + 0

14/06/2010

F�bio Cruz

Coloque ap�s o post o applyupdates

Responder

Gostei + 0

14/06/2010

Jonatan

est� utilizando ClientDataSet?

Se estiver est� dando um ApplyUpdates?

seguinte eu uso este codigo

Query1. para fazer o select do LUCRO
Query2. para fazer o select do gastos
Query3. para fazer a conex�o da busca

C�digo: procedure TForm5.BitBtn1Click(Sender: TObject);
begin
with IBQuery3 do
begin
close;
sql.clear;
sql.add (' select coalesce(sum(l.valor),0)TOTALLUCROS,');
sql.add (' (select coalesce(sum(g.valor),0) ');
sql.add(' from gastos g ');
sql.add(' where g.data between :data1 and :data2) TOTALGASTOS ');
sql.add(' from lucro l ');
sql.add(' where l.data between :data1 and :data2 ');
ParambyName('data1').asDate := strtodate(MaskEdit1.text);
ParambyName('data2').asDate := strtodate(MaskEdit2.text);
open;
end;
txtlucro.text := FormatFloat('0.00',IBQuery3.Fields[0].AsCurrency);
txtgastos.text := FormatFloat('0.00',IBQuery3.Fields[1].AsCurrency);
txtresultado.text := FormatFloat('0.00',IBQuery3.Fields[0].AsCurrency-IBQuery3.Fields[1].AsCurrency);
end;

Responder

Gostei + 0

14/06/2010

F�bio Cruz

Mas vc est� dando o ApplyUpdates ap�s a inclus�o dos novos valores?

Pq nesse c�digo vc est� realizando a busca fisica no BD. Os novos valores qndo s�o inseridos pelo ClientDataSet, por padr�o, ficam em mem�ria, ap�s fechar ou dar o ApplyUpdates que s�o efetivados no BD.

Responder

Gostei + 0

14/06/2010

Jonatan

Assim eu estou dando um COMMIT e n�o ApplyUpdates.
verifique o codigo aqui


procedure TFormLucro.BitBtn2Click(Sender: TObject);
begin
IBQuery1.close;
IBQuery1.SQL.Text:= ' insert into lucro(descricao,data,valor) values (:p1,:p2,:p3)';
IBQuery1.ParamByName('p1').AsString := Edit1.text;
IBQuery1.ParamByName('p2').AsDate := StrToDate (MaskEdit1.text);
IBQuery1.ParamByName('p3').AsFloat := StrToFloat(Edit3.text);
IbQuery1.execSQL;
IBTransaction1.Commit;
Edit1.Text:= '';
MaskEdit1.Text:= '';
Edit3.Text:= '';
IBQuery2.close;
IBQuery2.Open;
Showmessage('Salvo com Sucesso!!!');

Responder

Gostei + 0