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:= '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.