ejemplo de insert, drop, delete, update firebir + delphi

[darkbits]

Instale Firebird-2.5.2.26539_0_Win32.exe al servidor y a los 5 CLientes tb Firebird-2.5.2.26539_0_Win32.exe
la version versión superserver

y el problema sigue entonces NO es Firebird
parece ser que mi codigo fuente esta el problema por favor si alguien puede darme una mano como realizar UPDATE en Delphi para firebird estoy realizando asi:

Código SQL [-]
    _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
    _DM.consulta1.Open;
    _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
    _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) - strtoint(cantidad.Text)) ;
    _DM.consulta2.ExecSQL;
    _DM.consulta2.Close;
    _DM.consulta1.Close;
    _DM.talmacen.Active:=false; // false y true lo realizo para  actualizar no se si hay otra mejor forma.
    _DM.talmacen.Close;
    _DM.talmacen.Active:=true;

[[Caral]]

Hola
Si hay algo que he aprendido de firebird es que se molesta cuando las cantidades estan en texto.
Te aconsejo que pongas las cantidades en variables float o integer.
Saludos

[darkbits]

todo marcha bien

me da error cuando le toca esta linea

_DM.consulta2.ExecSQL;

Código SQL [-]
  _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
    _DM.consulta1.Open;
    _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
    _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) - strtoint(cantidad.Text)) ;
    _DM.consulta2.ExecSQL;
    _DM.consulta2.Close;
    _DM.consulta1.Close;
    _DM.talmacen.Active:=false; // false y true lo realizo para  actualizar no se si hay otra mejor forma.
    _DM.talmacen.Close;
    _DM.talmacen.Active:=true;

[[Caral]]

Hola
Si toca esa linea es entonces la anterior.
Como dije antes.
Saludos

[Casimiro Noteví]

Es que sin saber lo que son esas variables, lo que estás haciendo, ni el contexto de tu código... es difícil ayudarte. A ver...
¿id_inal es texto o número?, acláralo
¿auxcantidad_inal es texto o número?, acláralo

Suponiendo que ambos son números (como debe ser) y haciendo las cosas paso a paso:

Código Delphi [-]
var
  fCantidad : double;
  iAlmacen : integer;
begin
  iAlmacen := strtoint(idprod.text);
  
  _DM.consulta1.Close;  // tienes que cerrarlo antes de cambiarle la sentencia que contiene
  _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+iAlmacen;
  _DM.consulta1.Open;
    
  fCantidad := _DM.consulta1.FieldByName('cantidad_inal').Value - strtoFloat(cantidad.Text));
  _DM.consulta1.Close;  // lo cerramos en cuanto ya no hace falta

  _DM.consulta2.Close;  // usamos los 2 parámetros ¿por qué sólo 1 y el otro no?
  _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal where id_inal= :auxid_inal';
  _DM.consulta2.ParamByName('auxcantidad_inal').Value := fCantidad;
  _DM.consulta2.ParamByName('auxid_inal').Value := iAlmacen;
  _DM.consulta2.ExecSQL;  // No has dicho qué componentes usas, así que supongo que los IBX
  _DM.consulta2.Transaction.commitretaining;  // Ni idea de las transacciones porque tampoco has contestado a lo que pregunté antes
  _DM.consulta2.Close;
end;