Insert into

[jerosol]

Hola
estoin intentando hacer un insert sobre tablas de database destok pero cuando lo ejecuto me da un error y no se si el codigo esta mal o si podria ser por alguna propiedad q deberia estar marcada.
si alguien me puede ayudar se lo agradeceria

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.Params[0].Value:=strtoint(edCodigo.text);
qOperacion.Params[1].value:=dtpFecha.Date;
qOperacion.Params[2].Value:=strtofloat(edtotfac.Text);
qOperacion.Params[3].Value:=strtofloat(edgasto.Text);
qOperacion.Params[4].Value:=strtofloat(edtotal.Text);

qOperacion.ExecSQL;

[ContraVeneno]

¿y cuál es el error?

[roman]

¿Hay alguna posibilidad de que nos digas cuál es el error que te marca?

// Saludos

[[egostar]]

Empezado por jerosol

Values (codigo, fecha, total_factura, Gasto, total')

A mi se me hace raro las caritas, no sera por ahi el error

porque deberia de haberse visto en todo caso asi si es que estas oasando parametros, no crees?

Código Delphi [-]
     Values (:codigo, :fecha, :total_factura, :Gasto, :total')

Saludos

[ContraVeneno]

jejeje
las caritas salen por esta utilizando el prefijo "p" antes del nombre para identificar que es parámetro. Cosa que no sería necesaria, pero en fin, cuestión de estilos.

La carita aparece proque aquí en la página se toma : p como carita, si hubiera puesto :P no creo que hubiera aparecido la carita

[[egostar]]

Ah bueno, pues ya esta, jejeje

Entonces seguimos esperando que nos informe el error.

Saludos

[ContraVeneno]

A mi me parece que el error estaría en las conversiones de tipos de datos ocasionados por utilizar:

Código Delphi [-]
qOperacion.Params[1].value:=dtpFecha.Date;

en lugar de

Código Delphi [-]
qOperacion.ParamByName('PFecha').AsDateTime:=dtpFecha.DateTime;

pero sin conocer el error, es pura adivinancia la que hace uno

[roman]

Cuando quieran que no aparezcan esas caritas:

Código Delphi [-]

Values (:pcodigo,:pfecha, :ptotal_factura, :pGasto, :ptotal');

pongan la etiqueta [ noparse ]:

[ delphi ]
[ noparse]
...
[ /noparse ]
[ /delphi ]


:p


// Saludos

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