Записная книжка/Напоминалка

[Shurik90]

Пытаюсь сделать напоминалку (наподобие ATnotes) которая работает с базой данных Аксесса. Т.е. Вы пишите сообщение, задаёте определённое время и дату, день недели и т.д. Если кто-то делал сам или видел в интернете похожую вещь с исходником, дайте ссылку, пожалуйста.

Спасибо заранее.

[Q2W]

Ага, ты ещё часики в трей сделай, которые юзают удалённый mysql сервер

[_Мика_]

Не ну реально, зачем в напоминалке использовать базу данных! просто пишиш файл приблизительно так

msg\date\time

и потом считываеш

[Shurik90]

А как сделать файл ? И чтоб из него потом можно было считывать информацию как из базы данных ? А какой это файл ?
Или ты про .txt ?

Можно подробней, плиз...

[Q2W]

Пишем мессагу:

Код: Выделить всё

open "messages.dat" for output as #1
print #1,date$,time$,msg
'или как там
close #1


Читаем мессаги:

Код: Выделить всё

open "messages.dat" for input as #1
do
    input #1,msgdate,msgtime,msg
loop while not eof(1)
close #1


Код не проверял, может чё-нить забыл

[_Мика_]

Конечно забыл!!
Во первых нельзя в print'е через запитую перечислять переменные
Во вторых Input'ом такой финт не пройдет, еадо сначало записать файл в переменную затем отдельно распределять где время, где сообщение итд

[Q2W]

Ну не суть. Надеюсь смысл я таки передал.

[_Мика_]

Если сам до кода не додумаешся, скажи я код состряпую

[pitbull]

С файлами вообще можно намного проще сделать:
Объявляем тип:

Код: Выделить всё

Public Type Z
sDate as string
sTime as string
sMsg as string
End Type
private ZU as z


Потом заполняем тип, а потом самое интересное - пишем в файл:

Код: Выделить всё

Open sFilePath for Binary as #1
put #1, , ZU
close #1

Читать тоже одно удовольствие

Код: Выделить всё

Open sFilePath for Binary as #1
Get #1, ,ZU(iNumber) 'iNumber - Номер необходимой записи  :D
close #1

Вот и ВСе