Работа с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5