Problemas al guardar Float en Mysql

[ZiriusB]

Buenas noches, estoy realizando una aplicación para llevar el control de los clientes en un gimnasio y al tratar de guardar los valores del monto en Mysql me salta el error "Column doesn't match value count at row 1", después de darle vueltas y vueltas vi que era porque estaba guardando en 3 campos diferentes valores decimales (9,8), (20,4), (52,5) por poner un ejemplo, y la sentencia Mysql me lo tomaba como 6 valores (9) (8) (20), (4), etc y todo por la COMA DECIMAL que hace que mysql los tome como dos valores distintos.

De esta forma me da el error: "Column doesn't match value count at row 1"

Código Delphi [-]
  
 begin
      with ADO1 do
         SQL.Clear;
      try
         ADO1.SQL.Add('INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu');
         ADO1.SQL.Add(',idclientef,idpagof,iduserF)VALUES(');
         ADO1.SQL.Add(Quotedstr(combocant.Text));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add((Floattostr(cant)));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add((Floattostr(iva)));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add((Floattostr(total)));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add((FormatDateTime('yyyy/mm/dd',(Mfechahora))));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr(form2.edtcedula.Text));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr(tpago));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr('1'));
         ADO1.SQL.Add(');');
         ADO1.ExecSQL;
      finally
         ShowMessage('Añadido Correctamente a la Base de Datos!');
      end;

Intente guardar los valores como string pero los redondea como valores enteros:

Código Delphi [-]
   begin
      with ADO1 do
         SQL.Clear;
      try
         ADO1.SQL.Add('INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu');
         ADO1.SQL.Add(',idclientef,idpagof,iduserF)VALUES(');
         ADO1.SQL.Add(Quotedstr(combocant.Text));
         ADO1.SQL.Add(',''');
         ADO1.SQL.Add((Floattostr(cant)));
         ADO1.SQL.Add(''',''');
         ADO1.SQL.Add((Floattostr(iva)));
         ADO1.SQL.Add(''',''');
         ADO1.SQL.Add((Floattostr(total)));
         ADO1.SQL.Add(''',');
         ADO1.SQL.Add((FormatDateTime('yyyy/mm/dd',(Mfechahora))));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr(form2.edtcedula.Text));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr(tpago));
         ADO1.SQL.Add(',');
         ADO1.SQL.Add(QuotedStr('1'));
         ADO1.SQL.Add(');');
         ADO1.ExecSQL;
      finally
         ShowMessage('Añadido Correctamente a la Base de Datos!');
      end;
   end;

Agradecería su orientación...

[Casimiro Notevi]

Si los campos son float, no puedes guardar string en ellos.
Usa parámetros en lugar de componer la sql.

Código Delphi [-]
ado.close;
ado.sql.text="insert into ....... values :v1, :v2, v3, ..."
ado.param[1].asString = ......
ado.param[2].asFloat = ....
etc.
etc.
ado.execsql;

[ZiriusB]

No he trabajado con parámetros hasta el momento, he visto varios ejemplos pero me saltan errores:

Código Delphi [-]
ADO1.close;
ADO1.sql.text:='INSERT INTO factura (cantfactu,subtfactu,ivafactu,totalfactu,horafactu,idclientef,idpagof,iduserF)'+
'VALUES (:cantfactu,:subtfactu,:ivafactu,:totalfactu,:horafactu,:idclientef,:idpagof,:iduserF)';
ADO1.parambyname('cantfactu').asString := combocant.Text;

Pero me salta un error, ADOQUERY no reconoce parambyname como su miembro...

he hecho algo mal?

Gracias.

[ecfisa]

Hola ZiriusB.

La sintáxis para el componente TADOQuery es:

Código Delphi [-]
                                                 
   ADO1.Parameters.ParamByName('CANTFACTU).Value := combocant.Text;

Saludos

[ZiriusB]

Ya lo había averiguado jejejeje de todas formas muchas gracias, ahora me lanza un error al que no consigo darle vueltas u.u

First chance exception at $752D2C1A. Exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Process ProGym.exe (6964)

Código Delphi [-]
      with ADO1 do
         SQL.Clear;
      try
ADO1.close;
ADO1.sql.text:='INSERT INTO factura (cantfactu,subtfactu,ivafactu,'+
               'totalfactu,horafactu,'+
               'idclientef,idpagof,iduserf)'+
               'VALUES (:cantfactu,:subtfactu,:ivafactu,:totalfactu,'+
               ':horafactu,:idclientef,'+
               ':idpagof,:iduserF)';
ADO1.Parameters.ParamByName('cantfactu').Value := combocant.Text;
ADO1.Parameters.ParamByName('subtfactu').Value := cant;
ADO1.Parameters.ParamByName('ivafactu').Value := iva;
ADO1.Parameters.ParamByName('totalfactu').Value := total;
ADO1.Parameters.ParamByName('horafactu').Value := ((FormatDateTime('yyyy/mm/dd',(Mfechahora))));
ADO1.Parameters.ParamByName('idclientef').Value := (form2.edtcedula.Text);
ADO1.Parameters.ParamByName('idpagof').Value := tpago;
ADO1.Parameters.ParamByName('iduserF').Value := ('1');
ADO1.execsql;
      finally
         ShowMessage('Añadido Correctamente a la Base de Datos!');
      end;
   end;

[Casimiro Notevi]

Código Delphi [-]
ADO1.Parameters.ParamByName('horafactu').Value := ((FormatDateTime('yyyy/mm/dd',(Mfechahora))));

Seguramente es esa línea, si el campo horafactu es un datetime, le etás pasando una cadena de texto.

Código Delphi [-]
ADO1.Parameters.ParamByName('horafactu').Value := Mfechahora;