Insert into

[[ArdiIIa]]

Prueba así a ver que pasa:

Código Delphi [-]

With qOperacion Do
Begin
  Close;
  SQL.Clear;
  SQL.Add('Insert Into Mantenimiento (codigo, fecha, total_factura, Gasto, total) Values (:codigo, :fecha, :total_factura, :Gasto, :total) ');
  ParamByName('Codigo').AsInteger :=strtoint(edCodigo.text);
  ParamByName('FECHA').AsString := FormatDateTime('dd/mm/yyyy',dtpFecha.Date);
  ParamByName('Total_Factura').AsFloat:=strtofloat(edtotfac.Text);
  ParamByName('Gasto').AsFloat     :=strtofloat(edgasto.Text);
  ParamByName('Total').AsFloat      :=strtofloat(edtotal.Text);

ExecSQL;
End;

[jerosol]

Me sigue dando el mismo error.
Creo q el problema esta en el sql xq e puesto todos los parametros como estrings asignandoles ' ' es decir cadena vacia menos a la clave primaria q le e puesto un valor y me a seguido dando el error.
seguro q es una tonteria de error de esos q lo lees 100 veces y sigues sin verlo

[roman]

Ponlo así:

Código Delphi [-]
qOperacion.ParamByName('Fecha').AsDate := Trunc(dtpFecha.Date);

La propiedad Date del DateTimePicker en realidad regresa también la parte decimal correspondiente al tiempo.

// Saludos

[jerosol]

sigue dando errror

[roman]

¿Qué base de datos es y cuáles son los tipos de datos?

// Saludos

[jerosol]

Teniais razon cuando deciais q se trataba de un error de formato
pero no de la fecha sino del codigo q en la tabla estaba como short
y el parametro estaba como integer.
gracias a todos y perdonar mi despiste espero no vuelva a pasar.
a sido un placer sacar este error con vuestra ayuda.