Foros Club Delphi - Tipo de Campo para Hora en SQL Server

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Tipo de Campo para Hora en SQL Server (https://www.clubdelphi.com/foros/showthread.php?t=54035)

BlueSteel

06-03-2008 21:26:01

Tipo de Campo para Hora en SQL Server

Hola... hoy ando un poco pregunton...:p

Necesito definir un tipo de dato en SQL Server para almacenar hora...esto es para contabilizar hora de entrada y salida del personal...

Estoy usando SQL Server 2000

para almacenar la fecha utilizo un campo de tipo DateTime... el campo Hora lo defini como SmallDateTime... pero no me funca...

el codigo que utlizo para almacenar el registro es

Código Delphi [-]AQ_Edit.Close;
AQ_Edit.Sql.Clear;
AQ_Edit.SQL.Add('Insert Into Horario (Hor_Tipo, Per_Nro, Hor_Fecha, Hor_Hora)');
AQ_Edit.SQL.Add('Values (:v01, :v02, :v03, :v04)');
AQ_Edit.Parameters[0].Value := DTexto.fieldbyname('Tipo').AsString;
AQ_Edit.Parameters[1].Value := IntToStr(StrToInt(DTexto.FieldByName('Ficha').asString));
AQ_Edit.Parameters[2].Value := StrToDate('06-03-2008');
AQ_Edit.Parameters[3].Value := StrToTime('17:25');
AQ_Edit.ExecSQL;

pero me da error en el tipo de dato Hora...

bueno.. la idea es despues poder sumar las horas trabajadas... y entregar informes...

Salu2:p:D

jcarteagaf

06-03-2008 22:43:51

Horas en sql server

SQL Server no maneja un campo de solamente horas. DateTime y Smalldatetime almacenan fecha y hora, la diferencia es como lo hacen.

El tipo de datos DATETIME requiere 8 bytes y almacena fechas entre el
1 de enero de 1753 y el 31 de diciembrede 9999 (almacena segundos y milisegundos)
El tipo de Dato SMALLDATETIME requiere 4 bytes y almacena fechas entre el
1 de enero de 1900 y el 6 de junio de 2079 (no almacena segundos)

Normalmente en este tipo de casos almaceno la fecha y la hora actual y luego hago las sumas o restas necesarias para obtener la cantidad de horas y minutos buscados.

Saludos

ContraVeneno

06-03-2008 23:05:58

Efectivamente, no se requiere dos campos separados para la fecha y para la hora, con uno solo es suficiente.

En ese caso, si quieres consultar solo la hora, puedes utilizar la función "CONVERT" de SQL.

BlueSteel

06-03-2008 23:52:09

Ok...

ya veo... entonces deberia declarar la variable de la sgte forma

Código Delphi [-]AQ_Edit.Close;
AQ_Edit.Sql.Clear;
AQ_Edit.SQL.Add('Insert Into Horario (Hor_Tipo, Per_Nro, Hor_FechaHora)');
AQ_Edit.SQL.Add('Values (:v01, :v02, :v03)');
AQ_Edit.Parameters[0].Value := DTexto.fieldbyname('Tipo').AsString;
AQ_Edit.Parameters[1].Value := IntToStr(StrToInt(DTexto.FieldByName('Ficha').asString));
AQ_Edit.Parameters[2].Value := StrToDate('06-03-2008 17:25');
AQ_Edit.ExecSQL;

Tendria que ser así ???lo otro necesito mostrar en una Grilla el campo Fecha y Hora en forma separada... como tendria que hacer la consulta para la consulta ?Salu2:p:D

egostar

07-03-2008 00:28:28

Cita:

Empezado por BlueSteel (Mensaje 271421)

lo otro necesito mostrar en una Grilla el campo Fecha y Hora en forma separada... como tendria que hacer la consulta para la consulta ?Salu2:p:D

Puedes usar el CAST, espero que esto te ayude.

Salud OS

ContraVeneno

07-03-2008 01:04:23

A mi me parece mejor esto:

Código Delphi [-]with AQ_Edit do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Insert Into Horario (Hor_Tipo, Per_Nro,Hor_FechaHora)');
 SQL.Add('Values (:Hor_Tipo, :Per_No, :Hor_FechaHora)'); 
 Parameters.ParamByName('Hor_Tipo').Value := DTexto.fieldbyname('Tipo').AsString;
 Parameters.ParamByName('Per_No').Value := DTexto.FieldByName('Ficha').asInteger; //aquí no supe porque lo tomas como cadena, luego lo conviertes a entero,  y luego otra vez a cadena  ??
 Parameters.ParamByName('Hor_FechaHora').Value := StrToDate('06-03-2008 17:25:00');
 //aunque realmente lo que más me gusta hacer sería:
 ParamByName('Hor_FechaHora').AsDateTime := DateTimePicker.DateTime;
 //en lugar de .value, prefiero definir el tipo de dato, pero ADO no me deja 
 //y se empeña en hacerlo solo
 Base.StartTransaction;
 Try 
  ExecSQL
  Base.Commit;
 Except on EDBEngineError do begin
   Base.RollBack;
   raise;
  end; //except
 end; //try
end; //with

BlueSteel

07-03-2008 19:16:11

Cita:

Empezado por ContraVeneno (Mensaje 271454)

Código SQL [-] 
Parameters.ParamByName('Per_No').Value := DTexto.FieldByName('Ficha').asInteger; 
//aquí no supe porque lo tomas como cadena, luego lo conviertes a entero,  y luego otra vez a cadena  ??

Sorry.. se me le fue... lo que pasa es que estaba tomando el dato y lo mostraba en un edit.. y despues llegue y copie ...

el dato inicial es 01006 viene como texto... pero quiero que me muestre 1006... entonces lo convertia a Integer... y me lo hacia... despues para mostrarlo en un Edit... lo convertia a String... esa es la explicación...

BlueSteel

18-03-2008 16:16:14

no puedo guardar fecha

Aún sigo con el problema de almacenar la Hora...

y no se como solucionarlo.....

trate de almacenar de la sgte forma

Código Delphi [-]Datos.AQ_Edit.Close;
Datos.AQ_Edit.Sql.Clear;
Datos.AQ_Edit.SQL.Add('Insert Into Horario (Hor_Tipo, Per_Nro, Hor_Fecha, Hor_Hora, Hor_Dato)');
Datos.AQ_Edit.SQL.Add('Values (:v01, :v02, :v03, :v04, :v05)');
Datos.AQ_Edit.Parameters[0].Value := DTexto.fieldbyname('Tipo').AsString;
Datos.AQ_Edit.Parameters[1].Value := IntToStr(StrToInt(DTexto.FieldByName('Ficha').asString));
Datos.AQ_Edit.Parameters[2].Value := StrToDate(Concat(Concat(Copy(DTexto.FieldByName('Fecha').asString,7,2),'-',Copy(DTexto.FieldByName('Fecha').asString,5,2),'-',Copy(DTexto.FieldByName('Fecha').asString,1,4))));
Datos.AQ_Edit.Parameters[3].Value := StrToTime(Concat(Copy(DTexto.FieldByName('Hora').asString,1,2),':',Copy(DTexto.FieldByName('Hora').a  sString,3,2),':00'));
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'));
Datos.AQ_Edit.ExecSQL;
DTexto.Next;

en Donde

Hor_Fecha es de tipo Date
Hor_Hora es de tipo Time
Hor_Dato es Varchar

el problema que me da es el sgte:

'la conversión del tipo de datos datetime a smalldatetime ha generado un error de desbordamiento de smalldatetime'

mi problema esta en poder almacenar la Hora... ya pude con la Fecha... pero
como debo almacenar la Hora ???

Tambien quise almacenar la fecha y hora junta, pero me da el mismo problema...

ContraVeneno

18-03-2008 16:42:08

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;

BlueSteel

18-03-2008 16:51:50

Cita:

Empezado por ContraVeneno (Mensaje 273938)

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

18-03-2008 17:18:40

Prueba asi:

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

BlueSteel

18-03-2008 17:41:28

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

18-03-2008 18:30:48

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. :D

BlueSteel

18-03-2008 19:44:11

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

18-03-2008 20:21:08

Cita:

Empezado por BlueSteel (Mensaje 273963)

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.

Cita:

Empezado por BlueSteel (Mensaje 273963)

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.

Cita:

Empezado por BlueSteel (Mensaje 273963)

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

18-03-2008 22:48:38

Entendido

Ok..

Me quedo claro por el momento... :D

luego vere como realizo el proceso que necesito...

Salu2

La franja horaria es GMT +2. Ahora son las 08:56:01.