error en tiempo de ejecución

[Nelly]

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

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]

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