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