Pregunta sobre índices en tablas DBF

[salvica]

Empezado por Caral

Hola
Es practicamente lo mismo.
Coloca en el codigo que tienes el Insert en donde esta el append y veras que hace lo mismo.
Append= añadir un campo, crear un campo nuevo al final de la tabla.
Insert= Insertar un campo (en este caso podria estar en la parte que le interes a uno)
Saludos

Debería comprobar primero que estoy al final de la tabla, aunque si no encuentra el registro debería estar al final ¿no es cierto?
¿El resto sería igual? Añadir la clave y los campos defecha (en este caso particular)
Gracias por la ayuda
salvica

[[Caral]]

Hola
Muy sencillo.

Código Delphi [-]
tabla1.last;
Tabla1.inster;

Listo, esta al final.
Saludos

[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

[[Caral]]

Hola
Que le pasa al codigo?
Yo lo veo bien, vas al final de la tabla e insertas el registro.
Es lo mismo que tenias con el append.
Creo que se puede eliminar el edit ya que es redundante, verificalo.
Saludos

[salvica]

Empezado por Caral

Hola
Que le pasa al codigo?
Yo lo veo bien, vas al final de la tabla e insertas el registro.
Es lo mismo que tenias con el append.
Creo que se puede eliminar el edit ya que es redundante, verificalo.
Saludos

No se trata de eso, el edit está porque si el registro ya existe solo debo modificar el resto de datos (equivale al append de una query) y si no existe entonces debo añadir un registro nuevo. En ambos casos en cursor se queda bien en el registro en blanco añadido, o en el que debo modificar.

Lo que te quería decir, al poner el código anterior, es que si al poner el Insert en vez del Append, el funcionamiento es el mismo.
Salvica

[[Caral]]

Hola
Si
Saludos
Pd: esta si es una respuesta corta.

[PepeLolo]

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.