И вновь проблема с DateTimePicker

[sl963]

Здравствуйте! Подскажите пожалуйста как можно отоброзить данные в DateTimePicker из DBGrid'a. Допустим в DBGrid есть столбец "Дата рождения" и чтобы при выборе (n-ой) строки, данные из столбца "Дата рождения" отоброжались в DateTimePicker. Использую базу Access. Связ с базой по средствам AdoConection, Adotable, DataSource.

[vovk]

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
DateTimePicker1.DateTime:=ADOTable1.FieldByName('имя поля где дата').AsDateTime;
end;

[sl963]

vovk спасибо! Данные отоброжаються! Но появилась еще 2 прблекмки. 1-я когда поле дата пуста вылазиет ошибка (is not valid date and time). и 2-я когда выполняешь запрос через Ado Query то данные опять не отоброжаються! Помоготите решить проблему

[vovk]

Если в наборе данных присутствует поле содержащее вашу дату, то проблем не вижу. На счёт "когда дата пуста" просто предусмотрите этот вариант, возможно поможет примерно так

if  ADOTable1.FieldByName('имя поля где дата').Value <> null then
DateTimePicker1.DateTime:=ADOTable1.FieldByName('имя поля где дата').AsDateTime;

[sl963]

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

Если в наборе данных присутствует поле содержащее вашу дату, то проблем не вижу. На счёт "когда дата пуста" просто предусмотрите этот вариант, возможно поможет примерно так

if  ADOTable1.FieldByName('имя поля где дата').Value <> null then
DateTimePicker1.DateTime:=ADOTable1.FieldByName('имя поля где дата').AsDateTime;

Спасибо с этим разобрался! А вторая проблемка осталасьПоскажите как решить проблемку?

[vovk]

Выложите таблицу, и запрос. Не понимаю пока в чём проблемма.

[sl963]

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

Выложите таблицу, и запрос. Не понимаю пока в чём проблемма.

Попробую объяснить на словах!Допустим я открыл базу. В DB grie отоброзились все данные. Выполняю запрос через ADOquery. допустим отоброзить все фамилии (пупкин). Запрос выдал мне все поля с фамилией пупкин, выбираю любую строчку из запроса.а данные перестают отображаться!

[vovk]

Вот честно не понял что значит

данные перестают отображаться

, где перерстают отображатся? грид "опустевает"?

[sl963]

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

Вот честно не понял что значит , где перерстают отображатся? грид "опустевает"?

допустим когда в таблице полный список данных, то по выбранной строчке данные отоброжаються в DateTimePicker (Дата рождения) Но если выполнить запрос то в DateTimePicker (Дата рождения) данные при выборе строчек из списка не меняеться.

[vovk]

Так и не выложили ни текст запроса ни...Ладно попробуем телепатнуть. Чтобы это работало, в наборе данных должно присутствовать поле "Дата рождения". Потом надо обращатся к датасету с которым работаем, то есть если отображаем данные из Query, то действие выглядит так

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
if  ADOQuery1.FieldByName('имя поля где дата').Value <> null then
DateTimePicker1.DateTime:=ADOQuery1.FieldByName('имя поля где дата').AsDateTime;

end;