Sugerencias para realizar una actualizacion de un registro en Firebird

[Casimiro Noteví]

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.

[[RONPABLO]]

acá sí quede desconcertado... Eso parece más un bug del componente, yo trabajo con firebird y ese error no me ocurre con componentes IBX, ADO o DBX... O hay algo mal en el query ModifySQL (o como se llame en este componente) del ZUbdateSQL.

[[RONPABLO]]

"unexpected end of command..." es un error que ocurre cuando no se cierra bien una comilla simple o cuando no se cierra un parentesis.. puedes poner todos los querys que usas?