Отсекаются миллисекунды в TIBSQL

[Gregor]

Добрый день. Есть такая проблема что при перегонки данных из MSSQL в Firebird отсекаются миллисекунды.

После вот такого кода

FIBSql.ParamByName('DT').AsDateTime := FADOQuery.Fields.FieldByName('LogDate').AsDateTime;

FIBSql.ParamByName('DT').AsDateTime

уже будет без миллисекунд.
Кто что знает про это и как решить? может там настройки точности есть какие для этого компонента

[Stilet]

А получение FADOQuery.Fields.FieldByName('LogDa te').AsDateTime; вообще дает миллисекунды?

[Gregor]

да, дает .

[Аватар]

А где видно, что отсекаются? Может там с форматированием отображения не то? Не должно так происходить

[Gregor]

Видно и в отладчике если делать FormatDatetime(hh:nn:ss.zzz) и уже в самой базе

[Аватар]

Так что показывает:

SELECT EXTRACT(SECOND FROM dt) FROM mytable

SELECT CAST(dt AS VARCHAR(24)) FROM mytable

[Gregor]

SELECT CAST(dt AS VARCHAR(24)) FROM mytable

Дает без обнуленные миллисекунды. Сотрел код. там где происходит EncodingDatetime в функции TIBXSQLVAR.GetAsDateTime на месте миллисекунд стоит 0!

[lomastr_]

a если Value использовать?

[Аватар]

Тоды наверно только так

insert into MyTable (dt,...) values ('2015-04-01 15:17:01.4421',...)

или править GetAsDateTime

[Gregor]

Ну в общем сделал так. Не знаю насколько правильно, но миллисекунды появились

procedure TIBXSQLVAR.SetAsDateTime(Value: TDateTime);
var
  i: Integer;
  tm_date: TCTimeStructure;
  Yr, Mn, Dy, Hr, Mt, S, Ms: Word;
  xvar: TIBXSQLVAR;
begin
  if IsNullable then
    IsNull := False;
  for i := 0 to FParent.FCount - 1 do
    if FParent.FNames[i] = FName then
    begin
      xvar := FParent[i];
      xvar.FXSQLVAR.sqltype := SQL_TIMESTAMP or (xvar.FXSQLVAR.sqltype and 1);
      DecodeDate(Value, Yr, Mn, Dy);
      DecodeTime(Value, Hr, Mt, S, Ms);
      with tm_date do begin
        tm_sec := S;
        tm_min := Mt;
        tm_hour := Hr;
        tm_mday := Dy;
        tm_mon := Mn - 1;
        tm_year := Yr - 1900;
      end;
      xvar.FXSQLVAR.sqllen := SizeOf(TISC_QUAD);
      xvar.FXSQLVAR.SetDataSize(0, xvar.FXSQLVAR.sqllen);
      FGDSLibrary.isc_encode_date(@tm_date, PISC_QUAD(xvar.FXSQLVAR.sqldata));
      PISC_QUAD(xvar.FXSQLVAR.sqldata)^.gds_quad_low := PISC_QUAD(xvar.FXSQLVAR.sqldata)^.gds_quad_low + ms; //мои изменения
      xvar.FModified := True;
    end;
end;