Visual Basic

Johan Hakkesteegt wrote:

It all turned out to be an installation issue with Office.

<pre>Dim dtDate1 as DateTime = DateTime.Parse(date1.text)
Dim dtDate2 as DateTime = DateTime.Parse(date2.text)

Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * from YourTable where stdate Between #" & _
                                            dtDate1.ToString("MM/dd/yyyy") & "# And #" & _
                                            dtDate2.ToString("MM/dd/yyyy") & "#",con)

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