Visual Basic

Dim dtDate1 as DateTime = CalendarControl1.Value
Dim dtDate2 as DateTime = CalendarControl2.Value

Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * FROM YourTable Where stdate BETWEEN @dt1 AND @dt2;")
cmd1.Parameters.AddWithValue(@dt1, dtDate1)
cmd1.Parameters.AddWithValue(@dt2, dtDate2)
'...

Quote:

filtre total of transaction "by a single day" .

SELECT CONVERT(DATE, stdata), COUNT(*) AS TotalCountOfTransaction
FROM TransactionTable
GROUP BY CONVERT(DATE, stdata)

SELECT SUM(number_or_currency_field) FROM table_name WHERE etc

<Flags()> _
Public Enum GroupState

   ''' <summary>
   ''' The group is in normal state.
   ''' </summary>
   LVGS_NORMAL = 0

   ''' <summary>
   ''' The group is collapsed.
   ''' </summary>
   LVGS_COLLAPSED = 1

   ''' <summary>
   ''' The group is hidden.
   ''' </summary>
   LVGS_HIDDEN = 2

   ''' <summary>
   ''' The group has no header.
   ''' </summary>
   LVGS_NOHEADER = 4

   ''' <summary>
   ''' The group can be collapsed.
   ''' </summary>
   LVGS_COLLAPSIBLE = 8

   ''' <summary>
   ''' The group has focus.
   ''' </summary>
   LVGS_FOCUSED = 16

   ''' <summary>
   ''' The group is selected.
   ''' </summary>
   LVGS_SELECTED = 32
   ''' <summary>
   ''' The group is subsetted.
   ''' </summary>
   LVGS_SUBSETED = 64

   ''' <summary>
   ''' The subset link has focus.
   ''' </summary>
   LVGS_SUBSETLINKFOCUSED = 128

   ''' <summary>
   ''' All states.
   ''' </summary>
   LVGS_ALL = 65535

End Enum

Dim stateMask As GroupState = GroupState.LVGS_ALL
Dim GrpId As System.Nullable(Of Integer) = GetGroupID(Me.Groups(groep)
Dim result As GroupState
If (GrpId.HasValue)
   result = (GroupState)SendMessage(Handle, LVM_GETGROUPSTATE, GrpId.Value, (int)stateMask)
End If

Public Function GetgroupColapseState(ByVal lstvwgrp As ListViewGroup) As Boolean
  If Environment.OSVersion.Version.Major < 6 Then Return False
  Dim GrpId As System.Nullable(Of Integer) = GetGroupID(lstvwgrp)
  Dim stateMask As ListViewGroupState = ListViewGroupState.all
  If (GrpId.HasValue) Then
    Dim result As ListViewGroupState = SendMessage(Handle, LVM_GETGROUPSTATE, GrpId.Value, stateMask)
    Return (result And ListViewGroupState.Collapsed) = ListViewGroupState.Collapsed
  End If
End Function

Quote:

Mainstream Support for Microsoft Visual Basic 6.0 ended on March 31, 2005. Extended support ended in March 2008.