Работа с ListView - VB
Формулировка задачи:
Извиняюсь если подобная тема уже была, сам не нашёл.
Суть вопроса такова:
можно ли отобразить данные, взятые из БД на MS Access, за определённый промежуток времени? Например, есть данные, датированные за весь год, а нужно отобразить только за 1 месяц. Какой именно месяц (то бишь промежуток), задаётся пользователем.
И в догонку, если всё таки такое возможно, то как подсчитать сумму значений из данного интервала. То есть, допустим в первом столбце отображается дата, а во втором числа, и нужно просуммировать эти цифры именно за этот интервал.
Ежели всё это можно организовать без ListView, то рад выслушать предложения.
Решение задачи: «Работа с ListView»
textual
Листинг программы
- Private Sub Кнопка13_Click()
- Dim SUM
- Dim dbs As DAO.Database
- Dim dba As DAO.Recordset
- Set dbs = CurrentDb()
- Set dba = dbs.OpenRecordset("TB")
- dba.MoveFirst
- Do Until dba.EOF
- If dba.Fields(0) >= Начало.Value _
- And dba.Fields(0) <= Конец.Value Then
- SUM = SUM + CDbl(dba.Fields(1))
- Debug.Print CDbl(dba.Fields(1)), SUM
- End If
- dba.MoveNext
- Loop
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д