Cita:
Empezado por salvica
Siento date la "paliza" Caral
Código Delphi [-]
if not SearchKey(strClave, stEqual) then begin
{ nos vamos al final }
Last;
{ añadimos un registro en blanco }
Insert;
{ añadimos la clave del registro y los campos comunes }
FieldByName('ESTACION').AsString := strClave;
FieldByName('FECHA_UNIX').AsInteger := 0;
end else Edit;
Salvica |
No necesitas ejecutar el método Last. Insert y Append hacen lo mismo, es preparar el dataset para la incorporación de un registro nuevo. Cuando se ejecute el método .post se guardará el registro en la tabla, pero este no será persistente en la BBDD hasta que no se cierre la transación con Commit.
Un saludo.
