Tipo de Campo para Hora en SQL Server

[[BlueSteel]]

Empezado por ContraVeneno

No es necesario hacer conversiones, ni tampoco es necesario tanto intentento de buscar la hora caracter por caracter.

¿Exactamente que error te marca con esto?
Parameters.ParamByName('Hor_FechaHora').Value := TuDateTimePicker.DateTime;

Hola ContraVeneno...

lo que pasa es que no estoy sacando los datos desde un TimePicker... los estoy capturando desde un archivo....

entonces, esa busqueda de caracter por caracter es por que los datos vienen así

Fecha : 20080218 y la tengo que transformar a 18-02-2008
Hora : 1535 y la tengo que transformar a 15:35:00

y como capturo los datos de un archivo de texto... los debo traspasar a la base de datos...


lo quice hacer así

Código Delphi [-]
 
Parameters.ParamByName('Hor_FechaHora').Value := StrToDate(18-02-2008 15:35:00);

pero me dice que formato de hora no valido....

[ContraVeneno]

Prueba asi:

Código Delphi [-]
Parameters.ParamByName('Hor_FechaHora').Value := StrToDateTime('2008-02-18 15:35:00');

[[BlueSteel]]

Ok...

voy a probar que me arroja.. aunque no se como agregar las comilla simple antes y despues del concat...

Código Delphi [-]
Datos.AQ_Edit.Parameters[4].Value := Concat(Concat(Copy(DTexto.FieldByName('Fecha').asString,7,2),'/',Copy(DTexto.FieldByName('Fecha').asString,5,2),'/',Copy(DTexto.FieldByName('Fecha').asString,1,4)),' ',Concat(Copy(DTexto.FieldByName('Hora').asString,1,2),':',Copy(DTexto.FieldByName('Hora').asString,  3,2),':00'));

[ContraVeneno]

Cuando vi la parte de: DTexto.FieldByName('Fecha').asString y que mencionas que lo traes de un archivo, recordé que te había recomendado utilizar el TJVCSVDataset para leer tu archivo, entonces, lo que hay que hacer sería mas o menos:

Código Delphi [-]
...
var Year, mes, Dia, Hora, Minuto: Word;
     Fecha, Time: TDateTime;
...
  Year := strtoint(Copy(DTexto.FieldByName('Fecha').asString,1,4));
  Mes := strtoint(Copy(DTexto.FieldByName('Fecha').asString,5,2));
  Dia := strtoint(Copy(DTexto.FieldByName('Fecha').asString,7,2));
  Hora := strtoint(Copy(DTexto.FieldByName('Hora').AsString,1,2));
  Minuto := strtoint(Copy(DTexto.FieldByName('Hora').AsString,3,2));

   Fecha := encodedate(year, mes, dia);
   Time := encodetime(Hora, Minuto, 0, 0);
   ReplaceTime(Fecha, Time);

   Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

Eso estoy 100% seguro que te va a funcionar y ya vas a tener la fecha y la hora en un solo campo. Al final solo requerirías utilizar la función DATEPART de SQL Server para consultar ya sea la fecha o la hora. Y también podrías utilizar la función CONVERT de SQL Server para darle formato.


Eso seguro te funciona, de cualquier manera, déjame ver si se me ocurre otra cosa.

[[BlueSteel]]

Hola...

gracias.. por tu ayuda... te queria preguntar ya que tengo dudas en ...

que se supone que hace esto

Código Delphi [-]
 
ReplaceTime(Fecha, Time);

reemplaza la hora del sistema.. o de esas variables ???

despues cuando hago esto

Código Delphi [-]
 
Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

me tomará la fecha y hora o solo la fecha ???

se podra hacer esto

Código Delphi [-]
 
Parameters.ParamByName('Hor_Fecha').Value := Fecha;
Parameters.ParamByName('Hor_Hora').Value := Time;

[ContraVeneno]

Empezado por BlueSteel

Hola...

gracias.. por tu ayuda... te queria preguntar ya que tengo dudas en ...

que se supone que hace esto

Código Delphi [-]
ReplaceTime(Fecha, Time);

reemplaza la hora del sistema.. o de esas variables ???

Reemplaza la hora de la variable Fecha solamente.

Empezado por BlueSteel

despues cuando hago esto:

Código Delphi [-]
Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

me tomará la fecha y hora o solo la fecha ???

Te va a guardar la fecha y la hora.

Empezado por BlueSteel

se podra hacer esto

Código Delphi [-]
Parameters.ParamByName('Hor_Fecha').Value := Fecha;
Parameters.ParamByName('Hor_Hora').Value := Time;

Pues sí, se podría, pero no tiene caso guardarlas por separado. Y la variable Time tiene el valor '1899-01-01 HH:MM:00', Siendo HH el valor de la variable Hora y MM el valor de la variable minuto.

Pero como te han recomendado desde el inicio de este hilo, no tiene caso tener un campo para la fecha y otro campo para la hora, cuando puedes tener los dos en un solo campo.

Código SQL [-]
Select convert(char(10), Hor_FechaHora, 103) as Fecha, convert(char(8), Hor_FechaHora, 108) as Hora
From...

[[BlueSteel]]

Ok..

Me quedo claro por el momento...

luego vere como realizo el proceso que necesito...

Salu2