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

jafera · #1 21-08-2012

Hola a todos después de tiempo sin postear, (es que el verano me tiene frito y dispongo de poco tiempo).

Tengo una tabla en firebird 1.5 a la que quiero añadir registros buscando el último valor de la misma con una sql, en vez de last, etc. cuando la tabla tiene algún registro introducido, funciona perfectamente, pero si la tabla está vacía y es el primer registro no encuentro la forma de convertir el valor alfanumerico de la consulta (Max_IdMAX.text) a entero y me da error.

Código del botón:

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;
        if Max_IdMAX.Text='' then
        begin
                    // que debería poner aquí en el caso de que Max_IdMAX este vacio para que no me de error de que '' no es   un valor entero?
        end;
        id := StrToInt(Max_IdMAX.Text)+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPI1.Value := 'N';
        F_ModulDades.RebutFPI2.Value := 'N';
        F_ModulDades.RebutFPI3.Value := 'N';
        F_ModulDades.RebutFPI4.Value := 'N';
        F_ModulDades.RebutFPI5.Value := 'N';
        F_ModulDades.RebutFPI6.Value := 'N';
        F_ModulDades.RebutFPI7.Value := 'N';
        F_ModulDades.RebutFPI8.Value := 'N';
        F_ModulDades.RebutFPI9.Value := 'N';
        F_ModulDades.RebutFPSUSPENSIO.Value := 'N';
        F_ModulDades.RebutFPDATA.FocusControl;
end;

la consulta Max_Id:

Código SQL [-] 
Select Max (ID_REBUT) from re0006FP

Gracias por leerme.

Calurosos saludos

Josep

roman · #2 21-08-2012

Código Delphi [-]if Max_Id.Empty then
  Id := 0;

Por otra parte, no veo para qué lees el campo como texto y luego lo conviertes a entero. Mejor leelo directamente como entero.

// Saludos

jafera · #3 21-08-2012

Gracias Roman.

Me dice que empty no le gusta (undeclared identifier)

Saludos

Josep

roman · #4 21-08-2012

Perdón, es IsEmpty.

// Saludos

jafera · #5 21-08-2012

Gracias de nuevo

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

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;
        if Max_Id.IsEmpty then
        id:=0;                        // Por aqui no pasa. Salta directamente a la linea siguiente.
        id := Max_IdMAX.Value+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPI1.Value := 'N';
        F_ModulDades.RebutFPI2.Value := 'N';
        F_ModulDades.RebutFPI3.Value := 'N';
        F_ModulDades.RebutFPI4.Value := 'N';
        F_ModulDades.RebutFPI5.Value := 'N';
        F_ModulDades.RebutFPI6.Value := 'N';
        F_ModulDades.RebutFPI7.Value := 'N';
        F_ModulDades.RebutFPI8.Value := 'N';
        F_ModulDades.RebutFPI9.Value := 'N';
        F_ModulDades.RebutFPSUSPENSIO.Value := 'N';
        F_ModulDades.RebutFPDATA.FocusControl;
end;

Saludos

Josep

Casimiro Notevi · #6 21-08-2012

Cita:

Empezado por jafera

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

¿Que se la salta?, ¿te refieres al debug?

roman · #7 21-08-2012

Cita:

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 · #8 21-08-2012

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 · #9 21-08-2012

Cita:

Empezado por Casimiro Notevi

¿Que se la salta?, ¿te refieres al debug?

Si, me refiero al debug con F8

Saludos

jafera · #10 21-08-2012

Cita:

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 · #11 21-08-2012

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

// Saludos

jafera · #12 21-08-2012

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 Notevi · #13 21-08-2012

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

jafera · #14 21-08-2012

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

Josep

Casimiro Notevi · #15 21-08-2012

Bueno, en todo caso, después de

Código Delphi [-]Max_Id.Open;

Escribe

Código Delphi [-]Max_ID.Edit;

jafera · #16 21-08-2012

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

ecfisa · #17 21-08-2012

Hola josep.

Si no entendí mál y lo que estas buscando es obtener el próximo ID, creo que podrías hacer:

Código Delphi [-]function TF_RebutFP.ProximoID: Integer;
begin
  with TIBQuery.Create(nil) do
  try
    Database:= Tu_IBDatabase; // o si corresponde, DataModule.IBDatabase ... 
    SQL.Text:= 'SELECT COUNT(*) AS TOTREG FROM TU_TABLA';
    Open;
    Result:= FieldByName('TOTREG').AsInteger + 1;
    Close
  finally
    Free
  end
end;

Código Delphi [-]procedure TF_RebutFP.Button1Click(Sender: TObject);
var
  id: Integer;
begin
  id:= ProximoID;
  ...
end;

Saludos.

jafera · #18 21-08-2012

Solucionado.

El problema del NOT IN EDIT MODE, no estaba en las lineas puestas, estaba en las lineas siguientes:

Código Delphi [-] 
procedure TF_ModulDades.RebutFPNewRecord(DataSet: TDataSet);
begin
        RebutFPI1.Value := 'N';
        RebutFPI2.Value := 'N';
        RebutFPI3.Value := 'N';
        RebutFPI4.Value := 'N';
        RebutFPI5.Value := 'N';
        RebutFPI6.Value := 'N';
        RebutFPI7.Value := 'N';
        RebutFPI8.Value := 'N';
        RebutFPI9.Value := 'N';
        RebutFPI10.Value := 'N';
        RebutFPTI1.Value := 0;
        RebutFPTI2.Value := 0;
        RebutFPTI3.Value := 0;
        RebutFPTI4.Value := 0;
        RebutFPTI5.Value := 0;
        RebutFPTI6.Value := 0;
        RebutFPTI7.Value := 0;
        RebutFPTI8.Value := 0;
        RebutFPTI9.Value := 0;
        RebutFPARBITRES.Value := 0;
        RebutFPMATERIAL.Value := 0;
        RebutFPTOTAL_REBUT.Value := 0;
        RebutFPSUSPENSIO.Value := 'N';
        RebutFPFEINER.Value := IncrementsFEINER.Value;
        RebutFPDOS_SECTORS.Value := IncrementsDOS_SECTORS.Value;
        RebutFPCAMPIONAT.Value := IncrementsCAMPIONAT.Value;
        RebutFPINF.Value := IncrementsINF.Value;
        RebutFPANTIDOPING.Value := IncrementsANTIDOPING.Value;
        RebutFPSUSP.Value := IncrementsI10.Value;
        RebutFPFORA_PROV.Value := IncrementsFORA_PROV.Value;
        RebutFPPREU_KM.Value := IncrementsPREU_KM.Value;
        F_ModulDades.RebutFPID_USUARI.Value := F_Inici.Usuari;   // aqui yo tenia puesto F_ModulDades.RebutID_USUARI.Value := F_Inici.Usuari;
end;
 
Cosas del cortar y pegar.
 
Gracias a todos
 
Saludos

roman · #19 21-08-2012

¿Y? ¿Ya se resolvió tu problema original?

// Saludos

jafera · #20 22-08-2012

Buenos dias.

Si Román, se soluciono el problema inicial ya que al abrir la tabla en vacio, el id valía 0, evidentemente tenías razón con lo de la conversión de entero a texto y viceversa.

Al final el código quedó así:

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;

Y gracias a este error di con el otro que no me permitía añadir el registro por el tema del nombre de campo incorrecto.

Gracias a todos.

Saludos desde la Costa Brava (Girona)

Josep

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Como bloquear un registro de una tabla que esta en la red?	flystar	MySQL	10	27-07-2008 17:48:12
Vacia una Tabla	Mauro®	Conexión con bases de datos	7	05-05-2006 00:11:17
tabla no vacia con group by	jonmendi	SQL	9	28-07-2005 21:14:00
la tabla no se vacia	noe	Tablas planas	1	15-01-2005 22:00:50
¿No se puede desactivar un ADOTABLE cuando la tabla está vacia?	User_Baja_2	Conexión con bases de datos	1	12-06-2004 18:35:24