Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Построение системы отчетов (DAO) / 4 сообщений из 4, страница 1 из 1
27.08.2007, 09:29
    #34753505
S.K.
S.K.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Построение системы отчетов (DAO)
Добрый день! Пишу на VB, для связи с БД (Access) использую DAO. Возникла необходимость построить систему отчетов о событиях. Идея такая: В TreeView созданы папки год, в папке год папки месяцев, а в папке месяцев папки дней. При выборе одного из пунктов система показывает отчет за выбраный период.
БД имеет таблицу
=================================
Date | Событие
=================================
10.08.2006 17:05:32 |
11.08.2006 13:52:43 |
=================================
и т.д. Тип поля Date - Date

Так вот и застрял. Во первых, как сделать, чтобы папки в TV на основе имеющихся в БД данных и как потом сделать выбоку (к примеру за год) если поле Date имеет полный формат даты (с временем) - см.рисунок
Может у кого то есть похожая система (или метод ее решения)..
Заранее спасибо..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2007, 11:01
    #34753815
S.K.
S.K.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Построение системы отчетов (DAO)
или если это сложно сделать с текущей структурой БД, посоветуйте как ее нужно изменить для этого...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2007, 12:18
    #34754148
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Построение системы отчетов (DAO)
авторТак вот и застрял. Во первых, как сделать, чтобы папки в TV на основе имеющихся в БД данных
заполнить дерево на основе запросов
в данном случае получится 3 этапа: Года, месяца, дни

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
rs.Open "Select Distinct Year(Date) As [rYear], Month(Date) As [rMonth], Day(date) As [rDay] From MyTable"
'заполняем года
While Not rs.Eof
  TreeView.Nodes.Add ,rs!rYear, rs!rYear
  rs.MoveNext
Wend

'заполняем месяца
rs.MoveFirst
While Not rs.Eof
  TreeView.Nodes.Add rs!rYear, rs!rMonth, rs!rMonth
  rs.MoveNext
Wend

'заполняем Дни
rs.MoveFirst
While Not rs.Eof
  TreeView.Nodes.Add rs!rMonth, rs!rDay, rs!rday
  rs.MoveNext
Wend

синтаксис неточный, но идея должна быть понятна

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2007, 13:41
    #34754604
S.K.
S.K.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Построение системы отчетов (DAO)
HandKot , спасибо большое. работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Построение системы отчетов (DAO) / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 526ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163509]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 183ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 258ms
total:  526ms
x
x
Закрыть


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