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

[Casimiro Noteví]

Empezado por NEURAL

'INSERT INTO TablaDestino (DT,TIME,V1,V2) VALUES (DT,TIME,V1,V2) FROM TablaOrigen ORDER BY ID ASC LIMIT 100'

No recuerdo que se pudiera hacer eso, creo que deben ser todos los campos.

[NEURAL]

Gracias por contestar Casimiro.

Si pongo todos los campos (tb el ID) me sale el mismo error: 'You have an error in your SQL sintax; check de manual.."

He cambiado por esta otra y tampoco..

'INSERT INTO TablaDestino (SELECT ID,DT,TIME,V1,V2 FROM TablaOrigen ORDER BY ID ASC LIMIT 100) ORDER BY ID'

Pero lo desconcertante para mí es que, tanto en ésta última como en la más sencilla y que debería funcionar ('INSERT INTO TablaDestino SELECT * FROM TablaOrigen ORDER BY ID ASC LIMIT 100'), la instrucción la haga bien la primera vez y luego salga el error.. Porque entonces no puede ser un error de sintaxis..

Puede ser que al borrar de la tabla origen los 100 ya copiados pase algo con los índices que a mí se me escapa? En las tablas no veo ningún indice duplicado ni saltado.. Aparentemente lo hace bien cada vez que lo pongo en marcha (solo que solo lo hace una vez y a la siguiente sale el error).

Alguna sugerencia?

Muchas gracias!

[Casimiro Noteví]

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

[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

[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

[Casimiro Noteví]

No olvides usar las etiquetas para el código.