Cita:
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