Даты базы данных жирным шрифтом в MonthCalendar

Я пытаюсь выделить номер моего календаря жирным шрифтом, когда на эту дату сохранено событие. Я искал и пытался это сделать, но не могу.

Как сделать дату жирной, если я сохранил мероприятие на эту выбранную дату?

Вот что я пытался сделать, но он не может преобразовать в одномерный массив даты.

mydbcon = New MySqlConnection
    mydbcon.ConnectionString = "server=localhost;userid=root;password=root;database=database"
    Dim reader As MySqlDataReader
    Dim bold = Form4.MonthCalendar1.SelectionRange.Start.Month
    Try
        mydbcon.Open()
        Dim Query As String
        Query = "Insert into database.calendar (eventname,Date,Time,Description) Values ('" & TextBox2.Text & "','" & Form4.MonthCalendar1.SelectionRange.Start & "','" & ComboBox1.SelectedItem & "','" & TextBox1.Text & "')"
        COMMAND = New MySqlCommand(Query, mydbcon)
        reader = COMMAND.ExecuteReader
        MessageBox.Show("Event Succesfully Saved")

        Form4.MonthCalendar1.BoldedDates = bold
        mydbcon.Close()
    Catch ex As MySqlException
        MessageBox.Show(ex.Message)
    Finally
        mydbcon.Dispose()
    End Try

mysql vb.net monthcalendar
person masaKate    schedule 03.12.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Добавление даты в календарь жирным шрифтом - пример:

    MonthCalendar1.AddBoldedDate(CDate("03-12-2015"))
    MonthCalendar1.UpdateBoldedDates()

Чтение дат из базы данных - пример:

    mydbcon = New MySqlConnection
    mydbcon.ConnectionString = "server=localhost;userid=root;password=root;database=database"
    Dim reader As MySqlDataReader

    Try
        mydbcon.Open()
        Dim Query As New MySql.Data.MySqlClient.MySqlCommand
        Dim eventDate As String
        Query.Connection = mydbcon
        Query.CommandText = "SELECT Date FROM database ORDER BY Date"
        reader = Query.ExecuteReader

        If reader.HasRows = True Then
            While reader.Read
                eventDate = reader.GetValue(reader.GetOrdinal("Date")).ToShortDateString
                MonthCalendar1.AddBoldedDate(CDate(eventDate))
            End While
            reader.Close()
            MonthCalendar1.UpdateBoldedDates()
        End If

        mydbcon.Close()
    Catch ex As MySqlException
        MessageBox.Show(ex.Message)
    Finally
        mydbcon.Dispose()
    End Try
person c4pricorn    schedule 03.12.2015
comment
Братан. Я получил исключение Missingmemberexemption, пожалуйста, помогите - person masaKate; 13.12.2015