Copia de registro de uma tabela para outra!

Question

E a� galera!
Preciso da ajuda de vcs! Quero enviar os registros de uma tabela para outra! EX: Tenho uma tabela, ex: contas a pagar!, gostaria que ao baixar determinada conta,copiasse o registro para outra tabela(arquivomorto de contas a pagar)! Entenderam?
Obs: uso paradox!

Desde j� muito obrigado!

Sandra · Answer

claudenir,Tente assim para todos os campos que gostaria de transferir para a outra tabela:[code:1:da508a218c]Tabela2Campo.asString := Tabela1Campo.asString;Tabela2Campo.asInteger := Tabela1Campo.asInteger;[/code:1:da508a218c]Espero que seja isso que esteja procurando....

Claudenir.antunes · Answer

[quote:b3373e3fda=�sandra�]claudenir,Tente assim para todos os campos que gostaria de transferir para a outra tabela:[code:1:b3373e3fda]Tabela2Campo.asString := Tabela1Campo.asString;Tabela2Campo.asInteger := Tabela1Campo.asInteger;[/code:1:b3373e3fda]Espero que seja isso que esteja procurando.[/quote:b3373e3fda]Ol� Sandra, tudo bem?Olha vou tentar fazer com o codigo q vc me passou Ok!Logo retornarei para te dizer se consegui!!!Muito Obrigado!                         Sucesso!...

Claudenir.antunes · Answer

[quote:fa1cf923e1=�sandra�]claudenir,Tente assim para todos os campos que gostaria de transferir para a outra tabela:[code:1:fa1cf923e1]Tabela2Campo.asString := Tabela1Campo.asString;Tabela2Campo.asInteger := Tabela1Campo.asInteger;[/code:1:fa1cf923e1]Espero que seja isso que esteja procurando.[/quote:fa1cf923e1]Sandra, tenho q dar um append e um post na tabela dois?Fiz assim:                if                  dm.tabela1[�datavenc�]< data_atual then                  begin                        dm.tabela2.append;                        dm.tabela2[�datavenc�]:= dm.tabela1[�datavenc�];                        dm.tabela2[�nome_cli�]:= dm.tabela1[�nome_cli�];                        dm.tabela2[�valor_tot�]:= dm.tabela1[�valor_tot�];                        dm.tabela2.post;                        dm.tabela1.delete;                        end                        exit;                        else                              begin                                      dm.tabela2.cancel;                                    end;                        end;end;                                     end.Ser� que est� errado! D� uma mensagem de erro: KEY VIOLATIONO q ser� q est� errado?...