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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar