Insert into

[[basti]]

Puestos a conjeturar, el error podría ser este:


qOperacion.SQL.Add('Insert Into Mantenimiento (codigo, fecha, total_factura, Gasto, total) Values (:pcodigo, :pfecha, :ptotal_factura, :pGasto, :ptotal');

Falta un paréntesis:
qOperacion.SQL.Add('Insert Into Mantenimiento (codigo, fecha, total_factura, Gasto, total) Values (:pcodigo, :pfecha, :ptotal_factura, :pGasto, :ptotal)');

[jerosol]

Bueno e modificado el codigo siguiendo vuestras indicaciones y el error q me da es "Type mismatch in expression" a ver si ahora sale el fallo
gracias a todos por adelantado.

qOperacion.Close;
qOperacion.SQL.Clear;

qOperacion.SQL.Add('Insert Into Mantenimiento (codigo, fecha, total_factura, Gasto, total) Values (:codigo, :fecha, :total_factura, :Gasto, :total) ');

qOperacion.ParamByName('PCodigo').AsInteger :=strtoint(edCodigo.text);
qOperacion.ParamByName('PFecha').AsDate :=dtpFecha.Date;
qOperacion.ParamByName('PTotal_Factura').AsFloat:=strtofloat(edtotfac.Text);
qOperacion.ParamByName('PGasto').AsFloat :=strtofloat(edgasto.Text);
qOperacion.ParamByName('PTotal').AsFloat :=strtofloat(edtotal.Text);

qOperacion.ExecSQL;

end;

[[ArdiIIa]]

Empezado por jerosol

qOperacion.ParamByName('PCodigo').AsInteger :=strtoint(edCodigo.text);
qOperacion.ParamByName('PFecha').AsDate :=dtpFecha.Date;
qOperacion.ParamByName('PTotal_Factura').AsFloat:=strtofloat(edtotfac.Text);
qOperacion.ParamByName('PGasto').AsFloat :=strtofloat(edgasto.Text);
qOperacion.ParamByName('PTotal').AsFloat :=strtofloat(edtotal.Text);

No entiendo el prefijo P cuando en realidad ningún parámetro comienza con P

Código Delphi [-]
qOperacion.ParamByName('Codigo').AsInteger :=strtoint(edCodigo.text);
qOperacion.ParamByName('Fecha').AsDate     :=dtpFecha.Date;
qOperacion.ParamByName('Total_Factura').AsFloat:=strtofloat(edtotfac.Text);
qOperacion.ParamByName('Gasto').AsFloat     :=strtofloat(edgasto.Text);
qOperacion.ParamByName('Total').AsFloat      :=strtofloat(edtotal.Text);

[jerosol]

lo de la P es una mania mia y de muxos pero en fin ya lo e cambiadocomo veras en el ultimo mensaje ademas de cambiar el params[n] por
parambyname('').value

[[ArdiIIa]]

Empezado por jerosol

lo de la P es una mania mia y de muxos pero en fin ya lo e cambiadocomo veras en el ultimo mensaje ademas de cambiar el params[n] por
parambyname('').value

Pues suponiendo que ya hayas cambiado correctamente el nombre de los parámetros... No se si sigues obteniendo el mismo error.
Si este persiste, tal vez te esté fallando en el formato de la fecha.

[ContraVeneno]

Y si pudieras decirnos en que línea te aparece el error de tipos, sería mucho mejor

[jerosol]

La cosa esta en q no me dice en q parte falla solo me da el error
Type mismatch in expression
e probado en poner el insert into en la propiedad sql directamente pero no me aclara nada
respecto a lo del formato de la fecha q me reconendais?
e pensado en pasarla como string.
podria funcionar??

[[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.