Sugerencias para realizar una actualizacion de un registro en Firebird

[agustinbus]

Hola como estan! Queria pedirles opiniones al momento de realizar una actualizacion en firebird que es mas correcto.

Bueno el tema es que en MySql y firebird si utilizamos el siguiente codigo:

Código Delphi [-]
Query.Open;
Query.Edit;
QueryNOMBRE.Value := 'Valor';
QUery.Post;

y tenemos por ejemplo los siguiente valores en una tabla:

Nombre Apellido
Juan Rodriguez
Matiaz Fernandez
... ...
Maria Gimenez


Cuando ponemos en modo de edicion el Query e insertamos en un campo el MISMO valor que tenia antes nos arroja un error, es decir quiero modificar Juan Rodriguez y le vuelvo a poner de nombre y apellido Juan Rodriguez y automaticamente Firebird chilla.

Para ello yo lo soluciono de dos maneras pero no se cual es la adecuada.

La primera (mucho codigo) asigno en variables los valores que tenia y pregunto si cambio algun valor, en el caso de que cambio realizo el Query.Edit

La segunda (menos codigo) Utilizo try except de la siguiente forma:

Código Delphi [-]
Query.Open;
try
begin
Query.Edit;
QueryNOMBRE.Value := 'Valor';
QUery.Post;
end
except
Query.Cancel;
end;

Actualmente utilizo la primera forma, pero cuando una tabla tiene muchos campos mi codigo crece el doble al realizar las verificaciones para saber si se modifico un dato o no.
Bueno simplemente queria saber que forma es mas adecuada, o si es mejor utilizar alguna otra. Desde ya muchas gracias a todos!

[Casimiro Notevi]

Empezado por agustinbus

automaticamente Firebird chilla.

Debo de estar sordo, jamás he oído chillar a firebird

Bromas aparte, no tiene sentido lo que dices, si actualizas un campo da igual lo que pusiera antes o después.

Yo lo suelo hacer todo en sql, por ejemplo:

Código SQL [-]
update latabla set nombre='Pedro' where codigo=1

[agustinbus]

Claro que si tiene sentido porque da error, mira dejo unas imagenes para que veas, hice un ejemplo rapido.
La primera imagen muestra que me posiciono en el registro con CODIGO = B10003
En el edit de abajo del dbgrid pongo el mismo codigo: B10003


La segunda y tercera imagen muestra que pasa al presionar el boton:




y luego de generarse el error, cada vez q me muevo por la grilla, (se genera el OnDataChange), me arroja el error. El codigo de toda la aplicacion es este:

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.Open;
ZQuery1.Edit;
ZQuery1CODIGO.Value := Edit1.Text;
ZQuery1.Post;

ZQuery1.Cancel;
end;

sin embargo si cambio el codigo por el siguiente:

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.Open;
try
begin
ZQuery1.Edit;
ZQuery1CODIGO.Value := Edit1.Text;
ZQuery1.Post;
end
except
ZQuery1.Cancel;
end;

end;

se soluciona.

Esete error es conocido en MySql y Firebird, pero si por ejemplo lo conecto a una base en Access no es necesario comprobar si se modifico algun dato porq no tira error.

[Cañones]

Si usas el try except se realiza la modificacion?

[[RONPABLO]]

Por curiosidad, trabajando con FieldByName ocurre lo mismo??

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ZQuery1.Open;
  try
    begin
  ZQuery1.Edit;
  ZQuery1.FieldByName('CODIGO').Value := Edit1.Text;
  ZQuery1.Post;
    end
  except
  ZQuery1.Cancel;
  end;

end;

Respecto a Try como lo usas lo único que hace es capturar el error y no mostrarlo, por lo cual no se cumplirá el cambio pedido.

[agustinbus]

Cañones:
Si uso el try except se realiza el cambio solo si se cambio algun dato, que es lo q en definitiva queremos. pero si se ingresan los mismos datos que ya estan almacenados en el registro tira la excepcion

RONPABLO:

Respecto a Try como lo usas lo único que hace es capturar el error y no mostrarlo, por lo cual no se cumplirá el cambio pedido

Exactamente, porq lo que quiero es que el error no se le muestre al usuario. Y si no se cambiaron los datos, no hace falta que se realice la modificacion asi que no influye.

Con fieldByName ocurre lo mismo.