Problemas al guardar Float en Mysql

[[Delphius]]

Agustin, por algo decia que quiza no fuera un problema. Pero... a estas horas todo puede ser...

Y mejor no me hables de neuronas apagadas. Llevo 3 dias de mierda a causa de muy mal y poco dormir, el calor me esta haciendo mucho mal y encima anoche me di un susto enorme al comprobar que Lazarus no me iniciaba. Hace una hora, o un poquito más que termine la reistalacion y de paso actualizacion.
Ya me tope con el primer escollo: me quitaron el anchordocking y el sentimiento borderline volvio.

Saludos,

[[Delphius]]

La burra al trigo! Al parametro cantfacu le defines un ftInteger pero en Value le sigues pasando un string.

Saludos,

[[AgustinOrtu]]

Como hoy mismo me encontre diciendo, estos son los dias del año en que estamos todos locos, a mil por hora, cansados, y sobre todo este año, a la enesima potencia

-----------

Código Delphi [-]
  ADOQuery1.Parameters.ParamByName('cantfactu').DataType := ftinteger;
  ADOQuery1.Parameters.ParamByName('cantfactu').Value := combocant.Text;

Si traduzco eso a "humano", estas diciendo:

Preparate, te voy a dar un "Integer"
Toma, aca esta el "string"

[ZiriusB]

Sigue generando el mismo error: "Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Process ProGym.exe (5844)"

Código Delphi [-]
  ADOQuery1.SQL.Text :=
    'INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserf )' +
    'VALUES (:cantfactu, :subtfactu, :ivafactu, :totalfactu, :horafactu, :idclientef, :idpagof, :iduserF )';
  ADOQuery1.Parameters.ParamByName('cantfactu').DataType := ftinteger;
  ADOQuery1.Parameters.ParamByName('cantfactu').Value := 1;

[[AgustinOrtu]]

Pero le pusiste valores a todos los parametros?

[ZiriusB]

Ya he intentado mil formas, solo cambie esa linea, las demás están igual, le asigne ese valor para probar, pero me sigue generando error:

Código Delphi [-]
  if ADOQuery1.Active then
    ADOQuery1.Close;

  ADOQuery1.SQL.Text :=
    ' INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserf )' +
    ' VALUES (:cantfactu, :subtfactu, :ivafactu, :totalfactu, :horafactu, :idclientef, :idpagof, :iduserF )';
  ADOQuery1.Parameters.ParamByName('cantfactu').DataType := ftinteger;
  ADOQuery1.Parameters.ParamByName('cantfactu').Value := 1;

  ADOQuery1.Parameters.ParamByName('subtfactu').DataType := ftfloat;
  ADOQuery1.Parameters.ParamByName('subtfactu').Value := cant;

  ADOQuery1.Parameters.ParamByName('ivafactu').DataType := ftfloat;
  ADOQuery1.Parameters.ParamByName('ivafactu').Value := iva;

  ADOQuery1.Parameters.ParamByName('totalfactu').DataType := ftfloat;
  ADOQuery1.Parameters.ParamByName('totalfactu').Value := total;

  ADOQuery1.Parameters.ParamByName('horafactu').DataType := ftDateTime;
  ADOQuery1.Parameters.ParamByName('horafactu').Value := Mfechahora;

  ADOQuery1.Parameters.ParamByName('idclientef').DataType := ftstring;
  ADOQuery1.Parameters.ParamByName('idclientef').Value := form2.edtcedula.Text;

  ADOQuery1.Parameters.ParamByName('idpagof').DataType := ftinteger;
  ADOQuery1.Parameters.ParamByName('idpagof').Value := tpago;

  ADOQuery1.Parameters.ParamByName('iduserF').DataType := ftinteger;
  ADOQuery1.Parameters.ParamByName('iduserF').Value := 1;

  ADOQuery1.ExecSQL;
end;

[[Delphius]]

Ummm. Noto que en el SQL indicas el mismo nombre tanto al nombrar los campos como a los parametros.
En teoria no debiera dar problemas pero es una buena practica llamar a los parametros diferente... por ejemplo si el campo es IDArticulo que el parametro para este sea pIDArticulo.

hace tiempo que no uso ADO, y se le conoce por ser un tanto rompe moldes y saca canas verdes. No me extrañaria que justo sea una casualidad de que el parser de MySQL mezclado con ADO lleve a un conflicto entre los nombres... uno de los errores da justo entender que no detecta los parametros.

Saludos

[[AgustinOrtu]]

Código SQL [-]
CREATE TABLE `factura` (
  `idfactura` INT(11) NOT NULL AUTO_INCREMENT,
  `cantfactu` INT(11) UNSIGNED NOT NULL,
  `subtfactu` FLOAT UNSIGNED NOT NULL,
  `Ivafactu` FLOAT UNSIGNED NOT NULL,
  `totalfactu` FLOAT UNSIGNED NOT NULL,
  `horafactu` DATETIME NOT NULL,
  PRIMARY KEY (`idfactura`),

Código Delphi [-]
  ADOQuery1.SQL.Text :=
    ' INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserf )' +
    ' VALUES (:cantfactu, :subtfactu, :ivafactu, :totalfactu, :horafactu, :idclientef, :idpagof, :iduserF)';

Los campos que estan en negrita no estan en la definicion de la tabla, a menos que lo hayas agregado despues