Tipo de Campo para Hora en SQL Server

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

[[BlueSteel]]

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]

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

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