Añadir registro en tabla firebird si la tabla está vacia

[roman]

Empezado por jafera

Con IsEmpty si compila, pero se salta la linea de asignar valor 0 a id

¡Oh! Tienes razón. Pensé que la consulta no regresaría ningún registro pero sí regresa un registro, sólo que el valor del campo es NULL. Entonces tienes que checar eso:

Código Delphi [-]
if Max_IdMAX.IsNull then
  Id := 0;

// Saludos

[roman]

Otra opción, si tu motor de datos lo soporta es directamente en la consulta:

Código SQL [-]
select coalesce(max(nivel), 0) from aciertos

Así, te evitas la comparación en el código delphi.

// Saludos

[jafera]

Empezado por roman

¡Oh! Tienes razón. Pensé que la consulta no regresaría ningún registro pero sí regresa un registro, sólo que el valor del campo es NULL. Entonces tienes que checar eso:


Código Delphi [-]
if Max_IdMAX.IsNull then
Id := 0;





// Saludos

Román, hace lo mismo, pasa de largo con F8, no entra en la linea id:=0

Lo que me dices en el otro post del motor, uso FB 1.5

Gracias

Josep

[roman]

No, pues esto ya está muy raro. ¿Seguro que la tabla está vacía? En todo caso, prueba la consulta con coalesce.

// Saludos

[jafera]

Código Delphi [-]
 
procedure TF_RebutFP.ToolButton1Click(Sender: TObject);
var id: integer;
begin
        ToolBar1.Visible := False;
        ToolBar2.Visible := True;
        Max_Id.Close;
        Max_Id.Open;
        id := Max_IdMAX.Value+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPDATA.FocusControl;
end;

Con el código así id coge el valor 0 de entrada y 1 al pasar por la linea de asignación.

Lo que me pasa ahora es que cuando entro en la linea del append me dice not in edit mode

Ahora si que estoy ligeramente perdido.

Saludos

[Casimiro Noteví]

Pero si te olvidas del debug y corres tu programa... ¿funciona o no funciona?

[jafera]

No corre al dar click en alta, me sale el mensaje de not in edit mode

Josep

[Casimiro Noteví]

Bueno, en todo caso, después de

Código Delphi [-]
Max_Id.Open;

Escribe

Código Delphi [-]
Max_ID.Edit;

[jafera]

Gracias Antonio.

Con este llego a los 300 jejeje una proeza para mi.

Volviendo al tema, no es la solución ya que Max_Id es una sql sin posibilidad de editar, el error me lo da en el append de la tabla.

Saludos

Josep