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.
------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
Curtir tópico
+ 0
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.
------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
Clique aqui para fazer login e interagir na Comunidade :)