Problemas al insertar fecha
 

Buenas tardes

Tengo un serio problema al insertar fechas en un campo datetime (la fecha la tomo de otra tabla con campo datetime)

este es mi codigo

Código Delphi [-]
sql:='insert into Tickets(IdTicket,IdMove,DoorIng,UserIng,IdState,Nuevo,DateIng) values '+
  '('+IntToStr(IdTicket)+','+IntToStr(IdMove)+','+IntToStr(DoorIng)+','+quotedstr(UserIng)+','+IntToSt  r(IdState)+','+IntToStr(Nuevo)+',convert(varchar,'+datetimetostr(DateIng)+')';
  datamo.q1.Close;
  datamo.q1.SQL.Clear;
  datamo.q1.SQL.Add(sql);
  datamo.q1.Execute;

Espero su ayuda, muchas gracias

Hola krewer.

¿ Que base de datos ? ¿ Que componentes ?

De todos modos ese código así escrito, es confuso, propenso a errores y lo mas serio, vulnerable a la inyección SQL.

Te convendría acostumbarte al uso de parámetros para enviar los valores, de forma similar a esta:

Código Delphi [-]
  with datamo.q1 do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO TICKETS(IDTICKET, IDMOVE, DOORING, USERING, IDSTATE, NUEVO, DATEING)');
    SQL.Add('VALUES(:IDTICKET, :IDMOVE, :DOORING, :USERING, :IDSTATE, :NUEVO, :DATEING)');
    ParamByName('IDTICKET').AsInteger := idTicket;
    ParamByName('IDMOVE').AsInteger   := idMove;
    ParamByName('DOORING').AsInteger  := DoorIng;
    ParamByName('USERING').AsString   := UserIng;
    ParamByName('IDSTATE').AsInteger  := IdState;
    ParamByName('NUEVO').AsInteger    := Nuevo;
    ParamByName('DATEING').AsDateTime := DateIng;
    ExecSQL;
  end;

Saludos :)

Uso componentes UniDacs y base de datos SQL Server 2008

Hola krewer.

No trabajo con los componentes UniDac y los enlaces a la referencia de TUniQuery de DevArt no funcionan.

Pero por lo que pude ver aqui, la sintáxis debería ser:

Código Delphi [-]
   ...
   Parameters.ParamByName('IDTICKET').AsInteger := idTicket;
   ...

Saludos :)

¿"serio problema" es algo "vago", no?
A veces nos quejamos de los usuarios porque no saben describirnos los errores y luego vamos nosotros y hacemos lo mismo...

Imagina que te llama un usuario y te dice:

- "Tengo un serio problema al encender el ordenador, ¿me lo puedes arreglar?"

:eek::eek::o

El mail tipico:

"El sistema no anda, me aparece un error"

Ni te dicen que es lo que genero el error, cuales son los pasos para reproducirlo, y ni cual es el mensaje de error :rolleyes:

Para Unidac con Interbase como "Provider":

Código Delphi [-]
UniQuery.Params.ParamByName('FIni').Value := iHora;

Bueno es el ejemplo de como asignar un parametro. :D

De la descripción de errores ya todo esta dicho.