ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / SQLite [игнор отключен] [закрыт для гостей] / SQLite напоминание для программы
10 сообщений из 10, страница 1 из 1
SQLite напоминание для программы
    #37688630
strateg2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strateg2010
Гость
Пишу программу "заметки" программа в целом завершена, только не хватает напоминания о дне когда нужно сделать дела.
Была мысль о том, что нужно взять дату из таблицы отнять 1 и получить вчерашнее число. Если я в правильном направлении думаю то подскажите пожалуйста, как релиозавать подобное? с SQL запросом и выводом сообщения в Delphi.
...
Рейтинг: 0 / 0
02.03.2012, 15:50
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37688687
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
strateg2010,

скорее всего не вчерашнее а завтрашнее так как напоминать о вчерашнем событии как то поздновато :-)

Код: sql
1.
2.
3.
select  [дата напоминания], [текст напоминания] 
from [таблица] 
where date('now','+1 day') =  [дата напоминания]



либо

Код: sql
1.
2.
3.
select [дата напоминания], [текст напоминания]
from [таблица] 
where date('now') =  date([дата напоминания],'-1 day')



получаете все завтрашние напоминания

и потом в цикле по полученному DataSet бежите и выводите

Код: pascal
1.
2.
3.
4.
5.
6.
DataSet.Open;
while not DataSet.eof do
begin
  ShowMessage(DataSet.Fields[1].AsString);
  DataSet.Next;
end;
...
Рейтинг: 0 / 0
02.03.2012, 16:12
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37689141
strateg2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strateg2010
Гость
За запрос большое спасибо щас попробую.
...
Рейтинг: 0 / 0
02.03.2012, 19:31
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37689150
strateg2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strateg2010
Гость
pit_alex,

А можно пожалуйста по подробней как данный метод вставить в делфи, что то я совсем не могу понять. Если не сложно поподробней :)
...
Рейтинг: 0 / 0
02.03.2012, 19:40
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37689491
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
strateg2010,

А какие компоненты Вы используете для работы с SQLite?
...
Рейтинг: 0 / 0
03.03.2012, 11:54
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37689806
Byakuya06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Byakuya06
Гость
pit_alex,

спасибо, помог.
...
Рейтинг: 0 / 0
03.03.2012, 18:17
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37690486
strateg2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strateg2010
Гость
pit_alex,
напрямую
Код: pascal
1.
sqlitedbExecSQL('SELECT * FROM TABLE1')//это пример
...
Рейтинг: 0 / 0
04.03.2012, 14:01
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37691304
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
strateg2010,

Код: pascal
1.
sqlitedbExecSQL

а откуда этот метод ?
...
Рейтинг: 0 / 0
05.03.2012, 11:45
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37692027
strateg2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strateg2010
Гость
pit_alex,

sqlitedb я объявлял

Код: pascal
1.
2.
var
sqlitedb: SQLiteDataBase;



с подключением соотвествующих модулей.
а ExecSQL это естественно уже сама работа с базой данных. если создовать новую бд то прописываю так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
  sqlitedb := TSQLiteDatabase.Create('zametky.db');
  try
    if not sqlitedb.TableExists('zametki') then 
      sqlitedb.ExecSQL('CREATE TABLE zametki (id INTEGER  NOT NULL PRIMARY KEY AUTOINCREMENT, date_create DATE  NOT NULL, date_update DATE  NOT NULL, text TEXT  NULL, status TEXT  NULL, time VARCHAR)'); //если нет таблицы заметки тогда создать
  except
    on e: Exception do
      ShowMessage('Ошибка: ' + e.Message);
  end;//в противном случае выдает ошибку
...
Рейтинг: 0 / 0
05.03.2012, 17:39
| Ответить | Цитировать | Написать  
SQLite напоминание для программы
    #37693171
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
strateg2010,

Что то то типа такого, за точность не ручаюсь так как писал по памяти

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var sltb:TSQLiteTable;
   i:integer;
begin
  sqlitedb := TSQLiteDatabase.Create('zametky.db');
  sltb := sqlitedb.GetTable('select  [дата напоминания], [текст напоминания] from [таблица] where date(''now'',''+1 day'') =  [дата напоминания]');
  for i := 0 to sltb.Count - 1 do
  begin
     ShowMessage(sltb.FieldAsString(1));
  end;
...
Рейтинг: 0 / 0
06.03.2012, 12:28
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / SQLite [игнор отключен] [закрыт для гостей] / SQLite напоминание для программы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=54&msg=37689806&tid=2009057]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 273ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


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