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

[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;

[Casimiro Noteví]

Empezado por bucanero

Prueba añadiendo un SQL.clear antes de hacer la consulta INSERT INTO (linea en rojo del código)

Ese es el problema.
Siempre utilizo sql.text en lugar de add, porque así no hay problema nunca.

Código Delphi [-]
consulta.sql.text := 'select ...';

[NEURAL]

Empezado por Casimiro Notevi

Ese es el problema.
Siempre utilizo sql.text en lugar de add, porque así no hay problema nunca.

Código Delphi [-]
consulta.sql.text := 'select ...';

Gracias, tienes razón.. Con text esto no me hubiera pasado.. Y no volverá a pasar..

Ah y utilizaré las etiquetas!

Un saludo y gracias de nuevo

[NEURAL]

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