Cita:
Empezado por bucanero
hola a todos!!
Prueba añadiendo un SQL.clear antes de hacer la consulta INSERT INTO (linea en rojo del código)
Código Delphi [-]
procedure TFprincipal.THaonlineTimer(Sender: TObject);
var
idprimero: integer;
begin
Consulta.Close;
Consulta.SQL.clear;
Consulta.SQL.Add('INSERT INTO ' + Tabladestino.TableName + ' SELECT * FROM ' + TablaOrigen.TableName + ' ORDER BY ID ASC LIMIT 100');
Consulta.ExecSQL;
Tabladestino.ApplyUpdates;
TablaOrigen.Open;
TablaOrigen.first;
idprimero := TablaOrigen.Fieldbyname('ID').asinteger;
Consulta.Close;
Consulta.SQL.Clear;
Consulta.SQL.Add('DELETE FROM ' + TablaOrigen.TableName);
Consulta.SQL.Add(' WHERE ID>=:miID1 AND ID<=:miID2');
Consulta.ParamByName('miID1').asinteger := idprimero;
Consulta.ParamByName('miID2').asinteger := idprimero + 99;
Consulta.ExecSQL;
TablaOrigen.ApplyUpdates;
TablaOrigen.close;
end;
|
Mil gracias Bucanero!! Vaya fallo tonto
Está claro que el ojo no ve lo evidente a veces.. Podía haber estado semanas sin darme cuenta!!!
Gracias de nuevo