table to table

Question

J� quebrei minha cabe�a com uma paradinha  ,  q esta me tirando o sono ,,   quero fazer uma transferencia de todos os dados contidos em uma determinada tabela ,, pra outra tabela  ,, esta dando proble...

Welton · Answer

Bom Vou te dar um exemplo n�o sei se lhe interessa.
Var I : Integer;
Begin
Tabela a ser Copiada.First;
For I := 1 to Tabela a ser Copiada.RecordCount do
begin
TabelaQueRecebe.Append;

TabelaQueRecebe.NomeDoCampo.Asstring:=Tabela a ser Copiada.NomeDoCampo.Asstring;

Tabela A ser Copiada.next;
end;
end;

Geno · Answer

Bom....vale ressaltar que essa sua solucao parece uma martelada.

Vc devia era resolver o problema de nao aceitar mais registros do que radicalizar dessa forma.

Nao obstante.....se a tabela possui muitos registros...o IDEIAL seria vc fazer uma Stored Procedure(SQL) para fazer essa operacao.
Trabalhar com um result set muito grande em uma query, eh muito mais lento e pode resultar em problemas de memoria.

Melhor deixar que o proprio SGBD resolva o problema rodando uma SP.
Claro..isso depende do banco que vc ta usando...

Djjunior · Answer

se vc usa bde utilize o BacthMove resolve direitinho :wink: ! Inclusive ele copia/cria toda a estrutura da tabela de origem...

F�rum table to table #221813