Pesquisar na Comunidade
Showing results for tags 'tabela temporária.'.
Encontrado 1 registro
-
Como percorrer todos os dados de uma tabela temporária.
um tópico no fórum postou Aldemir Almeida Object Pascal - Delphi & Lazarus
Boa noite! Estou tentando atualizar os dados em uma tabela temporária, mas não estou conseguindo, estou utilizando um ClientDataSet. um help por favor! ele só atualiza o primeiro registro. var q2: TQuery; begin q2:=TQuery.Create(Self); q2.DatabaseName:='SISTEMA'; qrItensTemp.DisableControls;//Tabela temporário com dados qrItensTemp.First; while not qrItensTemp.IsEmpty do begin q2.Close;//Consulta para pegar novo valor q2.SQL.Text:='select vl_venda from tb_item '+ ' where cod_item=:cod_item'; q2.ParamByName('cod_item').Value := qrItensTempcod_item.AsInteger; q2.Open; qrItensTemp.Edit; qrItensTempvl_unit.Value := q2.FieldByName('vl_venda').AsFloat; qrItensTemp.Post; qrItensTemp.Next; end; qrItensTemp.Enablecontrols; q2.Close; q2.Destroy; edtCod.SetFocus; end; .