Tipo de Campo para Hora en SQL Server

[[BlueSteel]]

Hola... hoy ando un poco pregunton...

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

[[jcarteagaf]]

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]

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]]

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

[[egostar]]

Empezado por BlueSteel

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

Puedes usar el CAST, espero que esto te ayude.

Salud OS

[ContraVeneno]

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]]

Empezado por ContraVeneno

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