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

Так вот и застрял. Во первых, как сделать, чтобы папки в TV на основе имеющихся в БД данных и как потом сделать выбоку (к примеру за год) если поле Date имеет полный формат даты (с временем) - см.рисунок
Может у кого то есть похожая система (или метод ее решения)..
Заранее спасибо..
...
Рейтинг: 0 / 0
Построение системы отчетов (DAO)
    #34753815
S.K.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или если это сложно сделать с текущей структурой БД, посоветуйте как ее нужно изменить для этого...
...
Рейтинг: 0 / 0
Построение системы отчетов (DAO)
    #34754148
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторТак вот и застрял. Во первых, как сделать, чтобы папки в 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
Построение системы отчетов (DAO)
    #34754604
S.K.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HandKot , спасибо большое. работает
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Построение системы отчетов (DAO)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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