error en tiempo de ejecución

[Nelly]

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?

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]]

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]

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;

Empezado por maeyanes

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

[[maeyanes]]

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...