Problemas al Insertar registros de una tabla a otra periódicamente

[NEURAL]

Empezado por Casimiro Notevi

Habría que ver el código que usas, poco más podemos ayudar con esa información.

Ahí va el código:

procedure TFprincipal.THaonlineTimer(Sender: TObject);
VAR
idprimero:integer;
begin
Consulta.Close;
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;

Las Tablas tienen la propiedad cachedupdates a true. El procedimiento es un evento Ontimer que se ejecuta cada 5 sg.

Si necesitáis información distinta a ésta me decís..

Gracias