transferi tab_memo para tabela

26/11/2021

0

ola pessoal, alguem sabe como transferi dados de uma tabela_memo (virtual) para uma tabela no banco de dados, via UPDATE OU INSERT

------SEGUE O CODIGO
procedure Tfrm_caixa.transf_item;
begin
tab_item.open;
dt_tempo.first;
while not dt_tempo.eof do
begin
tab_item.append;
tab_itemid_venda.value := dt_tempoId_venda.value;
tab_itemprod.value := dt_tempoprod.value;
tab_itemid_prod.value := dt_tempoId_prod.value;
tab_itemvalor.value := dt_tempovalor.value;
tab_itemqtd.value := dt_tempoqtd.value;
tab_itemtotal.value := dt_tempototal.value;;
tab_itemid_clt.value := dt_tempoId_clt.value;
tab_itemclt.value := dt_tempoclt.value;
tab_itemfuncio.value := dt_tempofuncio.value;
tab_itemtipo.value := dt_tempotipo.value;
tab_itemund.value := dt_tempound.value;
tab_itemdata.value := dt_tempodata.value;
tab_itemhora.value := dt_tempohora.value;
tab_itemaprazo.value := dt_tempoaprazo.value;
tab_item.post;
dt_tempo.Next;

end;
dt_tempo.emptydataset;
end;
via componente eu já faço, mas não é muito seguro, uso computador em rede. se alguém souber eu agradeço.
Gilson Colares

Gilson Colares

Responder

Posts

26/11/2021

Gilson Colares

ola pessoal, alguem sabe como transferi dados de uma tabela_memo (virtual) para uma tabela no banco de dados, via UPDATE OU INSERT

------SEGUE O CODIGO
tab_item do banco. tabela dt_tempo é virtual.

procedure Tfrm_caixa.transf_item;
begin
tab_item.open;
dt_tempo.first;
while not dt_tempo.eof do
begin
tab_item.append;
tab_itemid_venda.value := dt_tempoId_venda.value;
tab_itemprod.value := dt_tempoprod.value;
tab_itemid_prod.value := dt_tempoId_prod.value;
tab_itemvalor.value := dt_tempovalor.value;
tab_itemqtd.value := dt_tempoqtd.value;
tab_itemtotal.value := dt_tempototal.value;;
tab_itemid_clt.value := dt_tempoId_clt.value;
tab_itemclt.value := dt_tempoclt.value;
tab_itemfuncio.value := dt_tempofuncio.value;
tab_itemtipo.value := dt_tempotipo.value;
tab_itemund.value := dt_tempound.value;
tab_itemdata.value := dt_tempodata.value;
tab_itemhora.value := dt_tempohora.value;
tab_itemaprazo.value := dt_tempoaprazo.value;
tab_item.post;
dt_tempo.Next;

end;
dt_tempo.emptydataset;
end;
via componente eu já faço, mas não é muito seguro, uso computador em rede. se alguém souber eu agradeço.
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar