Como copiar un registro en la misma tabla...

[ilichhernandez]

Gracias........... me ha sido de utilidad para entender el concepto.... pero el problema es que al realizarlo de esa manera copia el registro completo con la misma clave principal..... y ahi no se como poder cambiarla sin tener que escribir en la sentencia los 120 campos de la tabla...

Código SQL [-]
query1.SQL.Clear;
query1.SQL.add('INSERT into resultados SELECT * from resultados where lr=aram');
query1.ExecSql;

[cyrux22]

lo que podes hacer, si tenes que copiar la totalidad de los campo, es contar los campos que tenes en la tabla y en el select incrementar el codigo con la cantidad total de registros.

query1.sql.clear;
query1.sql.add('SELECT COUNT(*) AS cantidad FROM tabla');
query1.Active := true;
cantidad := query1.FieldByName('cantidad').AsInteger;
query1.sql.clear;
query1.sql.add('INSERT INTO tabla SELECT codigo+'+InttoStr(cantidad)+' AS codigo, campo2 FROM tabla');
query1.ExecSQL;