[Ludo]

Здравствуйте!
Есть таблица в которой есть поля dat_beg (тип date) и dat_end (тип date). Необходимо вывести их из БД в TsDateEdit.

StoredProc - это TADOStoredProc

Вот так выводит только дату, а месяц и год - остается пустым.

Код:

TsDateEdit.Text:=DataModule1.StoredProc.FieldByName('dat_end').AsString;

А так

Код:

TsDateEdit.Text:=FormatDateTime( 'dd/mm/yyyy',DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime);

ошибка class EConvertError with message "2013-05-07" is not a valid date and time.

[poli-smen]

Сообщение от Ludo

Здравствуйте!
Есть таблица в которой есть поля dat_beg (тип date) и dat_end (тип date). Необходимо вывести их из БД в TsDateEdit.

StoredProc - это TADOStoredProc

Вот так выводит только дату, а месяц и год - остается пустым.

Код:

TsDateEdit.Text:=DataModule1.StoredProc.FieldByName('dat_end').AsString;

А так

Код:

TsDateEdit.Text:=FormatDateTime( 'dd/mm/yyyy',DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime);

ошибка class EConvertError with message "2013-05-07" is not a valid date and time.

Судя по ошибке у тебя поле 'dat_beg' не является ни полем типа "Дата/Время" ни даже полем содержащим корректную "Дату/Время". Проверь у себя какого в действительности типа поле 'dat_beg'.
Кроме того не мешало бы уточнить, что такое TsDateEdit. Разве это что-то стандартное и общеизвестное?

[Ludo]

У меня sDateEdit находится на вкладке AlphaAdditional и отображается как календарь.

Я использую MS SQL Server 2008 R2 для хранения данных. При создании таблицы, куда даты записываются, а в последующем извлекаются указала тип date из возможных (date, datetime, datetime2(7) и datetimeofset(7))

Что посоветуете?

[poli-smen]

Сообщение от Ludo

У меня sDateEdit находится на вкладке AlphaAdditional и отображается как календарь.

У себя ни в Delphi7 ни в DelphiXE2 я такой вкладки не нашёл - значит это нестандартные компоненты.

Сообщение от Ludo

Я использую MS SQL Server 2008 R2 для хранения данных. При создании таблицы, куда даты записываются, а в последующем извлекаются указала тип date из возможных (date, datetime, datetime2(7) и datetimeofset(7))

Что посоветуете?

Если поле действительно типа даты, то нужно делать примерно так:

Код:

  DateTimePicker1.Date:=DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime;

Здесь я использовал стандартную компоненту TDateTimePicker с закладки Win32, так как ни закладки AlphaAdditional ни компонентов с этой закладки в стандартной поставке Delphi не существует и соответственно у меня их нет.

[Ludo]

Код:

  DateTimePicker1.Date:=DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime;

ошибка class EConvertError with message "2013-05-07" is not a valid date and time.

Создам новую структуру таблицы с полем даты (тип datetime). Попробую еще так

[poli-smen]

Сообщение от Ludo

Код:

  DateTimePicker1.Date:=DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime;

ошибка class EConvertError with message "2013-05-07" is not a valid date and time.

Значит это поле не типа "дата/время", а скорее всего типа "строка".

[Ludo]

Сообщение от poli-smen

Значит это поле не типа "дата/время", а скорее всего типа "строка".

скорее всего..

Код:

 FormMain.DEditDocUpdDatBeg.Text:=DataModule1.StoredProc.FieldByName('dat_beg').AsString;

дату я получаю, ну без месяца и года((

[poli-smen]

Сообщение от Ludo

скорее всего..

Код:

 FormMain.DEditDocUpdDatBeg.Text:=DataModule1.StoredProc.FieldByName('dat_beg').AsString;

дату я получаю, ну без месяца и года((

Значит нужно либо делать это поле типа "дата/время", либо "вручную" переводить строку в тип TDateTime.

[Ludo]

poli-smen, это свершилось ура!

пришлось новую таблицу создать с типом поля (datetime).

Вот так вывожу в приложение

Код:

FormMain.DEditDocUpdDatBeg.Text:=FormatDateTime( 'dd/mm/yyyy',DataModule1.StoredProc.FieldByName('dat_beg').AsDateTime);

Спасибо за дельные советы и примеры!!!!!