Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поля TDateTime в ADOQuery / 4 сообщений из 4, страница 1 из 1
06.06.2003, 14:38
    #32178483
Tyoma
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поля TDateTime в ADOQuery
СУБД: Access 2002; Delphi 5
var
fMin, fMax: TDateTime;
begin
with ADOQuery2 do
begin
Close;
Connection:= ADOConnection1;
Prepared:= True;
Open;
end; // with
fMin:= ADOQuery2.FieldByName('Min-Time').Value; // fMin = 30.12.99 - фигня //какая-та
fMax:= ADOQuery2.FieldByName('Max-Time').Value; // fMin = 30.12.99
// Вот как должно быть:
// fMin:= 15.08.02 2:49:36 fMax:= 14.04.03 10:00:00
// DBGrid1.DataSource:= DataSource1; - Это работает правильно, но оно мне не //надо
end;
...
Рейтинг: 0 / 0
06.06.2003, 14:50
    #32178497
Tyoma
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поля TDateTime в ADOQuery
Забыл написать сам ADOQuery2.SQL:

SELECT Min(Message.Time) AS [Min-Time], Max(Message.Time) AS [Max-Time]
FROM Message
WITH OWNERACCESS OPTION;

Пробовал
fMin:= ADOQuery2.FieldByName('Min-Time').AsateTime;
все равно не работает, т. е. в fMin = 30.12.99
...
Рейтинг: 0 / 0
06.06.2003, 15:13
    #32178524
Lana
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поля TDateTime в ADOQuery
Я когда то сталкивалась с подобным. Проверь дебаггером значение fMin, навернака fMin = 0. Данное значение, если я не ошибаюсь, дельфя интерпретирует как 30.12.1899.
...
Рейтинг: 0 / 0
06.06.2003, 15:16
    #32178530
Tyoma
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поля TDateTime в ADOQuery
Отбой. Вот так все работает:
var
MinStr, MaxStr: string;
...
DateTimeToString(MinStr, 'dd/mm/yy hh:nn:ss', fMin);
DateTimeToString(MaxStr, 'dd/mm/yy hh:nn:ss', fMax);
...

Правда придеться обратно эти строки в TDateTime конвертить.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поля TDateTime в ADOQuery / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]