Duplicar / Clonar tabla con ADO

[Marcb3]

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.