error en tiempo de ejecución

[Nelly]

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.

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

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]

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

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]

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