How To: Get Selected Date from MonthCalendar control

VB.NET

Private Sub MonthCalendar1_DateChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged

'Display the dates for selected range
Label1.Text = "Dates Selected from :" & (MonthCalendar1.SelectionRange.Start() & " to " & MonthCalendar1.SelectionRange.End)

'To display single selected of date
'MonthCalendar1.MaxSelectionCount = 1

'To display single date use MonthCalendar1.SelectionRange.Start/ MonthCalendarSelectionRange.End
Label2.Text = "Date Selected :" & MonthCalendar1.SelectionRange.Start

End Sub

C#

private void MonthCalendar1_DateChanged(object sender, System.Windows.Forms.DateRangeEventArgs e)
{
//Display the dates for selected range
Label1.Text = "Dates Selected from :" + (MonthCalendar1.SelectionRange.Start() + " to " + MonthCalendar1.SelectionRange.End);

//To display single selected of date
//MonthCalendar1.MaxSelectionCount = 1;

//To display single selected of date use MonthCalendar1.SelectionRange.Start/ MonthCalendarSelectionRange.End
Label2.Text = "Date Selected :" + MonthCalendar1.SelectionRange.Start;
}

Published Tuesday, August 15, 2006 10:03 PM by SushilaSB
Filed under:

Comments

Tuesday, June 05, 2007 4:09 PM by Munir

# re: How To: Get Selected Date from MonthCalendar control

Thanks!

Wednesday, February 27, 2008 8:01 AM by semauel

# re: How To: Get Selected Date from MonthCalendar control

hi there can you help me with this bit of code l want it to return results for a particualar dateelected on the calender

below the query is firing blanks

Private Sub MonthCalendar1_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected

       'If ConnectionState.Open Then

       '    objConnection.Close()

       'Else

       '    objConnection.Open()

       Try

           'Me.txtDate.Text = CDate(Date.FromOADate(Val(txtDate.Text)))

           objDataAdapter.SelectCommand = New SqlCommand()

           objDataAdapter.SelectCommand.Connection = objConnection

           objDataAdapter.SelectCommand.CommandText = "select * from Calender where dDate = '" + txtDate.Text + "'"

           objDataAdapter.SelectCommand.CommandType = CommandType.Text

           ' Open the database connection...

           objConnection.Open()

           ' Fill the DataSet object with data...

           objDataAdapter.Fill(objDataSet, "calenders")

           ' Close the database connection...

           objConnection.Close()

           ' Set the DataGridView properties to bind it to our data...

           DataGridView1.AutoGenerateColumns = True

           DataGridView1.DataSource = objDataSet

           DataGridView1.DataMember = "calenders"

           'Clean up

           'objDataAdapter = Nothing

           'objConnection = Nothing

       Catch ex As Exception

           MsgBox("Please try again ")

       End Try

       '  End If

   End Sub

Leave a Comment

(required) 
(required) 
(optional)
(required)