Copiar dados

[Marostegan 0]

Bom dia pessoal, estou com uma dúvida aqui quanto copiar dados quando se usa DBGrid...

 

Quando vou copiar dados de um cadastro para outro (informações que estão em DBEdits e DBMemos) uso o seguint:

 

begin
dm.q_baixa_pagos.Close;
dm.q_baixa_pagos.SQL.Clear;
dm.q_baixa_pagos.SQL.Add('Insert into tbl_pagos(empresa,data_baixa,vencimento,valor,parcela_atual,parcela_restante,referenci
a,observacao) values ('''+f_pagar.DBEdit5.Text+''','''+Edit1.Text+''','''+f_pagar.DBEdit3.Text+''','''+f_pagar.DBEdit2.Text+''','''+f_pagar.DBEdit6.Text+''','''+f_pagar.DBEdit7.Text+''','''+f_pagar.DBEdit4.Text+''','''+f_pagar.DBMemo1.Text+''')');
dm.q_baixa_pagos.ExecSQL;
begin
f_fim_baixa_pg.showmodal;
close;
end;

ou seja, pra quais campos da tabela vao meus dados e da onde esles estão vindo (DBEdits e DBMemo)...

 

esse jeito ai funciona belezinha....

 

 

PORÉM.....

 

em uma outra parte do sistema eu preciso copiar não 1 cadastro por vez (como fiz acima)... agora preciso copiar varios cadastros que estao em uma DBGrid (CAMPOS: empresa, data_vencimento, valor_mensalidade).

 

- Resumindo, vou copiar vários dados de uma Tabela que estão sendo exibidos em um DBGrid para outra Tabela que também ficarão exibidos em uma DBGrid.

 

Alguém pode dar uma ajuda??

 

Obrigado a todos!

 

 

(Ps.: Assim que conseguir fazer essa parte, posto o passo-a-passo!)

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Marostegan 0]

pessoal alguem sabe como faz isso?

 

axo que a programação que citei acima funciona, porém ao invés de indicar o DBEdit1.Text... precisaria indicar a coluna do DBGrid..

 

mas como fazer isso?

 

assim funcionaria?

 

obrigado.

[Marostegan 0]

pessoal...

 

uma outra solução também daria certo para mim aqui...

 

não sei se tem como fazer... ou se é mais fácil...

 

em fim...

 

se copiasse direto os campos de uma tabela do BD para outra... também seria útil!

 

 

aguardo.

 

desde já agradeço a ajuda!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Marostegan 0]

Amigos, desculpe postar uma resposta num tópico que ficou por tanto tempo (anos) aberto e sem resposta...

 

Mas hoje revendo aqui meus post, achei esse que estava sem resposta, e então vou postar o código aqui, assim acredito que se alguém precisar disso e caia nesse tópico, terá uma resposta que possa ajudar... Peço que coloquem como concluído esse tópico...

 

AQUI SEGUE:

 

Para transferir todos dados de uma de uma tabela para outra (levando em conta que as 2 tabelas possuem os mesmos campos...)

 

var
  i: integer;
  NomeCampo: String;
begin 
  dm.q_vendas.First;
  While Not dm.q_vendas.Eof Do
     Begin
        dm.q_cont_vendas.Append;
        For i := 0 To dm.q_vendas.FieldCount - 1 Do
            Begin
                NomeCampo := dm.q_vendas.Fields[i].FieldName;
                dm.q_cont_vendas.FieldbyName(NomeCampo).Value := dm.q_vendas.FieldbyName(NomeCampo).Value;
            end;
dm.q_cont_vendas.Post;
dm.q_vendas.Next;
end; end;

 

q_vendas - é a tabela de ORIGEM

 

q_cont_vendas - é a tabela de DESTINO

 

 

Abraços!