Duplicar / Clonar tabla con ADO
 

Hola,

necesito actualizar un código hecho con BDE y un TBatchMove a ADO.
He encontrado la función Clone pero no lo consigo, algo estoy haciendo mal. Es preferible no hacer select-insert por ser tablas con muchos datos.

Este es el codigo antiguo.

----------------------------------------------------------------

Código Delphi [-]
//CadenaSQL : String;
//Query1 : TQuery;
//T2 : TTable;
//TBM : TBatchMove;
 
CadenaSQL:= 'SELECT * FROM tabla1 ORDER BY Desc';Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Append(CadenaSQL);
try
 Query1.Prepare;
 Query1.Open;
except
 Error := True;
end;
Application.ProcessMessages;
if not (Error) then
begin
 try
  T2.TableName := 'tabla2';
  T2.Active := False;
  TBM.Source := Query1;
  TBM.Destination := T2; 
  TBM.Mode := batAppend;
  TBM.Execute;
 except
   Error := True;
 end;
 Application.ProcessMessages;
end;

-----------------------------------------------------------

tiene que ser sencillo, pero no sé más.

Por favor, a ver si me podeis echar un cable!

Gracias.


Mb3.

¿Y si utilizas una SQL?
Algo así:

Código SQL [-]
  SELECT tabla1.* INTO TablaCopia FROM tabla1 order by desc

Entonces se ralentiza mucho en las tablas que hay muchos datos. En su momento ya se cogió el TBatchMove por este motivo.

Gracias de todos modos.

Marc.