Создание органайзера

[evgen-20058]

Помогите с моей проблемой....
имеется таблица с полем "время".
таблица создана при помощи MS Access.

таб. События(ADOevents)
0:Событие:Текстовый;
1:Описание:Текстовый;
2:Дата:Текстовый;
3:Время:Текстовый;
4:Напоминание:Текстовый;//т.е. за сколько минут напомнить

связей с этой таблицей нет...

Нужно организовать вывод сообщения при наступлении установленного времени суток.. что-то вроде поиска по полю..  весь обработчик прописывал в Timer
Использовал такой код

void __fastcall TForm5::Timer1Timer(TObject *Sender)
{AnsiString search;
DataMod->ADOevents->Filtered=false;
search="Время like '"+DateTimeToStr(Time())+"*'";
DataMod->ADOevents->Filter=search;
DataMod->ADOevents->Filtered=true;
}

и такой

void __fastcall TForm5::Timer1Timer(TObject *Sender)
{TLocateOptions Options;
Options if (DataMod->ADOevents->Locate("Время",DateTimeToStr(Time()),Options)==true){ShowMessage("Напоминание!");}
DBGrid1->SetFocus();
}


при наступлении нужного времени сообщение не выводится..... Помогите решить проблему....
Заранее благодарен....

[Tantos]

Честно говоря, код какой-то мутный...
1. Timer1 по умолчанию запущен (Timer1->Enabled=true)?
2. С определенным периодом (Timer1->Interval) необходимо перебирать записи в БД на текущую дату, и проверять, не наступили ли уже заданные события

[evgen-20058]

1.да.
2.тоже верно.. смысл как в будильнике...наступает время и появляется сообщение...interval=1000, т.е. 1 сек...
Если с кодом чета не так, исправте или предложите альтернативный

[Tantos]

Больше данных предоставьте - скрипт создания таблицы с описаниями полей и название БД как минимум. Иначе получите псевдокод.

[Tantos]

Мда, а как же ключевое поле и дата/время напоминания? Откуда программа знает, от какой временной точки отсчитывать те самые "т.е. за сколько минут напомнить"?

[Lilo]

evgen-20058 вы хоть понимаете что вам пишут?
если у вас в базе одни текстовые поля даже для чисел, даты и времени то это не есть хорошо.
вам нужно базу привести в соответствие, а уж потом всё остальное...

[evgen-20058]

ТЕМА ЗАКРЫТА ПРОБЛЕМА РЕШЕНА

[evgen-20058]

пользуйтесь кому надо.....
//ВРЕМЯ ------>>>>>>
        AnsiString allTime, allData, allDataTime, h_, m_, s_, y_, mes_, d_;
        unsigned short int h, m, s, ms, y, mes, d ;

        TDateTime DT = Now();
        DecodeDate(DT,y,mes,d);
        DecodeTime(DT,h,m,s,ms);

// ФОРМАТИРОВАНИЕ ВРЕМЕНИ------>>>>>>
        if (h                 else{h_=IntToStr(h);}
        if (m                 else{m_=IntToStr(m);}
        if (s                 else{s_=IntToStr(s);}
// //ФОРМАТИРОВАНИЕ ДАТЫ---y,mes,d--------->>>>>>>>>>>
        if (mes                 else{mes_=IntToStr(mes);}
        if (d                 else{d_=IntToStr(d);}
//
//Вывод allDataTime
        allData=d_+"."+mes_+"."+IntToStr(y);
        allTime=h_+":"+m_+":"+s_;
        allDataTime=allData+" "+allTime;
//
//ФИЛЬТР
        AnsiString search;
        DataMod->ADOevents->Filtered=false;
        search="Время like '"+allDataTime+"*'";
        DataMod->ADOevents->Filter=search;
        DataMod->ADOevents->Filtered=true;

//ПРОВЕРКА УСЛОВИЯ И ЗАПОМИНАНИЕ ИНДЕКСНОГО ПОЛЯ
        AnsiString temp="";
        temp=DataMod->ADOevents->Fields->Fields[3]->AsString;
        if (temp!="") ShowMessage("В " + temp + " у Вас \n"+ DataMod->ADOevents->Fields->Fields[0]->AsString+".");

[wowik9905]

Здравствуйте. А можно ли вас попросить скинуть сам проект? А то я так не могу разобраться