Schedule Control with SQLite in VB

[Marco Antonio]

Hi!

I'm doing a project in WinForms and Visual Basic.

Is there any way to use Schedule Control getting data from a SQLite database?

I have read a similar question, but they use MySQL and C # language, in addition to using a DataProvider class, but in C #, I'm doing my project in Visual Basic.

Could you please help me?

Thanks.

[Deivaselvan Y]

Hi Marco, 

Thanks for using Syncfusion products. 

By default, Schedule control does not have the direct support to bind the data from DB. If you want to generate the appointment based on the DB data, you can create the appointment based on the DB data using StartTime, EndTime and Subject property in SimpleSheduleDataProvider. Please refer to the below code example,  

 

VB 

Dim scheduleProvider As SimpleScheduleDataProvider = New SimpleScheduleDataProvider() 

scheduleControl1.DataSource = scheduleProvider 

 

Public Class SimpleScheduleDataProvider 

                                Inherits ScheduleDataProvider 

    Private dset As New DataSet() 

    Private Shared dt As New DataTable() 

    Public Sub New() 

                MyBase.New() 

                dset.ReadXml("..\..\default.xml") 

                dt = dset.Tables("MasterList") 

End Sub 

Public Shared Function InitializeRandomData() As SimpleScheduleAppointmentList 

                'int tc = Environment.TickCount; 

                'int tc = 26260100;// simple spread  

                Dim tc As Integer = 28882701 ' split the appointment across midnight & 3 items at 8am on 2 days ago 

 

                'Console.WriteLine("Random seed: {0}", tc); 

                Dim r As New Random(tc) 

                Dim r1 As New Random(tc) 

 

                ' set the number of sample items you want in this list. 

                'int count = r.Next(20) + 4; 

                Dim count As Integer = dt.Rows.Count '1000;//200;//30; 

 

                Dim masterList As New SimpleScheduleAppointmentList() 

                Dim now As DateTime = DateTime.Now.Date 

 

                For i As Integer = 0 To count - 1 

                                Dim item As ScheduleAppointment = TryCast(masterList.NewScheduleAppointment(), ScheduleAppointment) 

 

                                Dim dayOffSet As Integer = 30 - r.Next(60) 

 

                                Dim hourOffSet As Integer = 24 - r.Next(48) 

 

                                Dim len As Integer = 30 * (r.Next(4) + 1) 

                                item.StartTime = DateTime.Now.AddDays(i) 'Convert.ToDateTime(dt.Rows[i]["StartTime"]); 

                                item.EndTime = DateTime.Now.AddDays(i) 'Convert.ToDateTime(dt.Rows[i]["EndTime"]); 

                                item.Subject = dt.Rows(i)("Subject").ToString() 

                                item.Content = dt.Rows(i)("Content").ToString() 

                                item.LabelValue = Convert.ToInt16(dt.Rows(i)("LabelValue")) 

                                item.LocationValue = dt.Rows(i)("LocationValue").ToString() 

                                item.MarkerValue = (Convert.ToInt16(dt.Rows(i)("MarkerValue"))) 

                                item.Dirty = False 

                                masterList.Add(item) 

                Next i 

                masterList.SortStartTime() 

                Return masterList 

  End Function 

End Class 

 

Sample link: http://www.syncfusion.com/downloads/support/directtrac/general/ze/VB-1653124370  

 

Please get back to us if you need any further assistance on this. 

 

Regards, 

Deivaselvan 

[Marco Antonio]

Hi! and thanks for answer.

I was able to make the connection without problem, following the example that was provided. Thank you!

I only have two more questions; how can I restrict the edition of the calendar when I click it (New, Edit, etc)?

And also, how can I customize the control so that by clicking on a calendar item it shows a custom form made by me and not the default form?

I've been looking at the documentation but I have not found those functions.

Thanks for your help!

[Sabaridass Ramamoorthy]

Hi Marco, 

Thanks for your update. 

To handle the default appointment form and use the custom form to add the appointment in ScheduleControl, you could handle the ShowingAppointmentForm event. Please refer the following code example and the KB link, 

C# 

AppointmentForm form; 

//Hook the event for showing the appointment form. 

this.scheduleControl1.ShowingAppointmentForm += scheduleControl1_ShowingAppointmentForm; 

/// <summary> 

/// Raise the event when showing the appointment form 

/// </summary> 

void scheduleControl1_ShowingAppointmentForm(object sender, ShowingAppointFormEventArgs e) 

{ 

   //Cancel the default appointment form for schedule control. 

    e.Cancel = true; 

    //Shows the Custom appointment form. 

    form.ShowDialog(); 

} 

 

 

KB link: https://www.syncfusion.com/kb/7105/how-to-add-the-appointments-using-custom-appointment-form 

Regards, 

Sabaridass R 

[Marco Antonio]

Hi again!

Thanks for your support.

One more thing.

How can I disable the context menu that appears when I right click on the ScheduleControl? (Image in the attached file)

What I want to do is that the user can not create a New Event, Edit or Delete from that menu.

Thanks!

Attachment: Captura_383fc483.zip

[Jagadeesan Pichaimuthu]

Hi Marco, 

  

Thanks for your update. 

  

To disable the default ContextMenu for ScheduleControl, you could handle the SetupContextMenu event. Please refer the following code example and the sample. 

  

C# 

AddHandler scheduleControl1.SetupContextMenu, AddressOfscheduleControl1_SetupContextmenu 

Private Sub scheduleControl1_SetupContextmenu(sender As Object, e AsCancelEventArgs) 

    e.Cancel = True 

End Sub 

  

Sample link: http://www.syncfusion.com/downloads/support/directtrac/general/ze/VB54278646 

  

Note: 

This event should be wire before that assigning the datasource for ScheduleControl. 

  

Please get back to us if you need any further assistance on this. 

  

Regards, 

Jagadeesan