Cita:
Empezado por pjacob80
hola amigos, estoy haciendo un insert en una base de datos firebird, y me tira error, a ver si alguien me puede ayudar, me dice que no existe el asdate, pero el campo es del tipo date, no se cual seria el indicador para eso...
el codigo:
Código Delphi [-]
fprincipal.Query3.Active := false;
fprincipal.Query3.SQL.Clear;
fprincipal.Query3.SQL.Add('insert into temporaltrabajos (fecha, monto, vehiculo, detalle) values (:ffecha, :mmonto, :vvehiculo, :ddetalle)');
fprincipal.query3.SQL.Add('where (codcliente=:codcliente)');
fprincipal.Query3.sql.add('order by fecha');
fprincipal.query3.ParamByName('ffecha').asdate:=fprincipal.query2.fieldByName('fecha').Asdate;
fprincipal.query3.ParamByName('mmonto').Asfloat:=fprincipal.query2.fieldByName('monto').Asfloat;
fprincipal.query3.ParamByName('vvehiculo').Asstring:=fprincipal.query2.fieldByName('vehiculo').Asstr ing;
fprincipal.query3.ParamByName('ddetalle').Asstring:=fprincipal.query2.fieldByName('detalle').Asstrin g;
fprincipal.Query3.Active := True;
fprincipal.Query3.Open;
el el query2 tengo la consulta de la tabla trabajos, y quiero copiar 1 solo registro a la tabla temporaltrabajos (query3)
tal vez lo que hago es una burrada, y existe una forma mas facil.... no se...
|
Hola.
No entiendo el por qué de esta línea:
Código SQL
[-]fprincipal.query3.SQL.Add('where (codcliente=:codcliente)');
¿ Para que requerir la existencia si estas realizando un
INSERT ? ¿ O deseabas modificar ?
Y de esta:
Código SQL
[-]fprincipal.Query3.sql.add('order by fecha');
¿ Usar
ORDER BY en un ingreso ?
Probá creándote una tabla simple de prueba:
Código SQL
[-]
CREATE TABLE HORARIOS (
FECHA_DESDE DATE,
FECHA_HASTA TIMESTAMP
)
Luego, de este modo, no tendrías que tener ningún problema:
Código Delphi
[-]
with IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO TABLA (FECHA_DESDE, FECHA_HASTA)');
SQL.Add('VALUES (:PDESDE, :PHASTA)');
ParamByName('PDESDE').AsDate := DateTimePickerDesde.Date;
ParamByName('PHASTA').AsDateTime := DateTimePickerHasta.DateTime;
ExecSQL;
end;
Saludos.