error en tiempo de ejecución

Nelly · #1 14-12-2005

Buenos dias a todos.

Tengo un problema al momento de correr el programa, tengo una ventana para insertar fotografias, antes funcionaba a la perfección, guardaba las fotografias en mi base de datos(firebird), pero no se que paso que ahora me marca un el error, este es el error que marca:

Project sistema.exe raised exception class EIBInterBaseError with message 'validation error for column cve_rnm, value ''***null***'''.

Si podrian ayudarme se los agradeceria eternamente.

Gracias, por su tiempo.

[maeyanes] · #2 14-12-2005

Estás tratando de guardar un valor nulo en un campo que no acepta nulos.

No se modificó nada en la aplicación o en la base de datos? Tal vez la columna cve_rnm aceptaba nulos y por alguna razón la modificaron para que ya no lo haga.

Checa esos detalles...

Saludos...

Nelly · #3 14-12-2005

En efectivo, tengo parte de codigo que comente y funciono otra vez como antes, pero no entiendo el por que del error con esta parte de codigo el cual es el siguiente:

Código Delphi [-] {qryInsFoto.SQL.Clear;
               if qryFotos.IsEmpty then begin
                  qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
               end else begin
                  qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
                  qryInsFoto.ParamByName('cve_rnm').AsString:=qryFotos.fieldbyname('cve_rnm').AsString;
               end;}

con esto pretendo insertar una fotografia y se no pertenece a la persona, pues la opcion de actualizarla con el update.

Cita:

Empezado por maeyanes

Estás tratando de guardar un valor nulo en un campo que no acepta nulos.

No se modificó nada en la aplicación o en la base de datos? Tal vez la columna cve_rnm aceptaba nulos y por alguna razón la modificaron para que ya no lo haga.

Checa esos detalles...

Saludos...

[maeyanes] · #4 14-12-2005

Viendo el código que pusiste, creo que el error se da cuando quieres insertar una foto nueva en la base de datos. Esto es por que agregas la sentencia Insert con parámetros pero no le pasas esos parámetros.

El siguiente código debería funcionar bien.

Código Delphi [-]  qryInsFoto.SQL.Clear;
  if qryFotos.IsEmpty then begin
    qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
  end else
    qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
  qryInsFoto.ParamByName('cve_rnm').AsString := qryFotos.fieldbyname('cve_rnm').AsString;

Saludos...

Nelly · #5 14-12-2005

Pues no me marca error sin el begin, de todos modos te agradezco tu tiempo, seguro que estoy pasando por alto algun detalle fundamenta en el codigo, por eso marca error, ya vere como le hago. Muchas gracias por tus comentarios.

El siguiente código debería funcionar bien.

Código Delphi [-]qryInsFoto.SQL.Clear;
if qryFotos.IsEmpty then begin
qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
end else
qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
qryInsFoto.ParamByName('cve_rnm').AsString := qryFotos.fieldbyname('cve_rnm').AsString;

[maeyanes] · #6 15-12-2005

Cita:

Empezado por Nelly

Pues no me marca error sin el begin, de todos modos te agradezco tu tiempo, seguro que estoy pasando por alto algun detalle fundamenta en el codigo, por eso marca error, ya vere como le hago. Muchas gracias por tus comentarios.

No te marca error? O quisiste decir que te sigue marcando error? Por que si ya no lo hace, entonces entendería que se resolvió tu problema, pero luego dices que sigue marcando el error y ya no entendí nada.

Sobre el código que te puse, la última instrucción le pasa un valor al parámetro cve_rnm no importando si la instrucción es un insert o un update. Y según el error que te daba era que el campo cve_rnm no recibía un valor o recibía NULL, así que con eso se debería de solucionar tu problema.

Pruébalo bien y cualquier otra cosa no dudes en preguntar de nuevo.

Saludos...

Nelly · #7 15-12-2005

Hola de nuevo.
Pues efectivamente me sigue marcando error con el codigo que pusiste lo acomode al mio y no guarda bien la información en la base de datos, solo guarda la foto, pero sin cve_rnm y al momento de querer insertar una nueva fotografia me arroja el siguiente error: Violation of Primary or unique key constraint "pk_fotos" on table "Fotos". ¿Prefieres que te mande todo el codigo?

Cita:

Empezado por maeyanes

Sobre el código que te puse, la última instrucción le pasa un valor al parámetro cve_rnm no importando si la instrucción es un insert o un update. Y según el error que te daba era que el campo cve_rnm no recibía un valor o recibía NULL, así que con eso se debería de solucionar tu problema.

[maeyanes] · #8 15-12-2005

El error Violation of Primary or Unique Key Constraint ya no es el mismo que el que mencionaste al principio. Así que entiendo que el problema original si se solucionó, pero que ahora tienes otro más en puerta.

Sobre el error actual, estás duplicando una llave primaria, que me imagino será cve_rnm, así que lo único que tienes que verificar bien es que no exista un registro con esa clave, y si es así, has un update.

Y si, el tener todo el código del procedimiento podría servir...

Saludos...

Nelly · #9 15-12-2005

ok este es el codigo que tengo originalmente:

Código Delphi [-]procedure TfrmFotografias.btnagregarClick(Sender: TObject);
var
   mijpg:TJPEGImage;
begin
     if((qryMiembros.Active) and (not qryMiembros.IsEmpty)) then begin
         qryInsFoto.ParamByName('cve_rnm').AsString:=
         qryMiembros.FieldByName('cve_rnm').AsString;
         if OpenPictureDialog1.Execute then begin
            Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
            mijpg:=TJPEGImage.Create;
            mijpg.Assign(Image1.Picture.Graphic);
            if uppercase(copy(ExtractFileExt(OpenPictureDialog1.FileName),1,3))<>'.JP'
              then begin
               mijpg.CompressionQuality:=30;
               mijpg.Compress;
              end;
               mijpg.SaveToFile('c:\temp.jpg');
               qryInsFoto.SQL.Clear;
               if qryFotos.IsEmpty then begin
                  qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
               end else //begin
                  qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
                  qryInsFoto.ParamByName('cve_rnm').AsString:=qryFotos.fieldbyname('cve_rnm').AsString;
               //end;
                qryInsFoto.ParamByName('foto').LoadFromFile('c:\temp.jpg',ftBlob);
                qryInsFoto.ExecSQL;
                mijpg.Free;
                qryFotos.Active:=false;
                qryFotos.ParamByName('cve_rnm').AsString:=
                qryMiembros.FieldByName('cve_rnm').AsString;
                qryFotos.Active:=true;
                if not qryFotos.IsEmpty then begin
                   mijpg:=TJPEGImage.Create;
                   mijpg.Assign(qryFotos.FieldByName('foto'));
                   Image1.Picture.Assign(mijpg);
                   mijpg.Free;
                end;
          end;
     end;
end;

Cita:

Empezado por maeyanes

Y si, el tener todo el código del procedimiento podría servir...

[maeyanes] · #10 16-12-2005

Código Delphi [-]procedure TfrmFotografias.btnagregarClick(Sender: TObject);
var
  mijpg: TJPEGImage;
  
begin
  if qryMiembros.Active and not qryMiembros.IsEmpty then begin

¿Por qué asignas un valor al parámetro 'cve_rnm' en esta línea si luego vas a limpiar el query?

Código Delphi [-]    qryInsFoto.ParamByName('cve_rnm').AsString:=
      qryMiembros.FieldByName('cve_rnm').AsString;

En esta parte agregué una cláusula try..finally para proteger la manipulación del objeto mijpg.

Código Delphi [-]    if OpenPictureDialog1.Execute then begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      mijpg := TJPEGImage.Create;
      try // Vamos a proteger la manipulación del objeto mijpg
        mijpg.Assign(Image1.Picture.Graphic);
        if uppercase(copy(ExtractFileExt(OpenPictureDialog1.FileName), 
          1, 3)) <> '.JP' then begin
          mijpg.CompressionQuality:=30;
          mijpg.Compress
        end;
        mijpg.SaveToFile('c:\temp.jpg');
        qryInsFoto.SQL.Clear;
        if qryFotos.IsEmpty then
          qryInsFoto.SQL.Add('insert into fotos (cve_rnm,foto) values ' +
            '(:cve_rnm,:foto)')
        else 
          qryInsFoto.SQL.Add('update fotos set foto=:foto where ' +
            'cve_rnm=:cve_rnm');
        qryInsFoto.ParamByName('cve_rnm').AsString :=
          qryFotos.fieldbyname('cve_rnm').AsString;
        qryInsFoto.ParamByName('foto').LoadFromFile('c:\temp.jpg',ftBlob);
        qryInsFoto.ExecSQL;
      finally
        mijpg.Free // Liberamos el objeto mijpg aun cuando ocurra una excepción
      end;
      qryFotos.Active := false;
      qryFotos.ParamByName('cve_rnm').AsString :=
        qryMiembros.FieldByName('cve_rnm').AsString;
      qryFotos.Active := true;
      if not qryFotos.IsEmpty then begin
        mijpg := TJPEGImage.Create;
        mijpg.Assign(qryFotos.FieldByName('foto'));
        Image1.Picture.Assign(mijpg);
        mijpg.Free
      end
    end
  end
end;

Al código no le veo nada extraño, salvo lo que te comenté más arriba y la cláusula que le agregué.

La qryFotos me imagino que busca si para una persona existe un registro en la tabla de fotos, si es así, solo actualiza la foto, si no, inserta una nueva. Solo verifica que se esté haciendo bien esa búsqueda, por que podría ser que la query siempre resulte vacía por alguna condición mal aplicada y sea por eso que intente insertar una foto nueva para una persona que ya la tiene, con el consiguiente resultado de una violación de clave primaria.

Saludos...