CalendarResources Example...

Are you refering to 2 users calendar entries displayed in the one CalendarControl?

 

 

 

 

 

I have attached the modified Calendar sample so you can see it working.

I am using v11.1.3

 

 

If you run the project, goto menu option

 

FILE|LOAD MULTISCHEDULES (SIMPLE)

choose 5 day week view and look at events for 2nd and 3rd July 2007

 

 

Private Sub mnuMultiSchedulesSimple_Click()

    Dim arResources As New CalendarResources
    Dim pRes0 As New CalendarResource
    Dim pRes1 As New CalendarResource

    Dim pSchedules As CalendarSchedules
    Dim bResult As Boolean

    '// ** data provider
    Dim strConnectionString As String
     
   '------------------------------------------------------------------------------------
   '// FIRST DATA SOURCE (Events1.mdb)
   '------------------------------------------------------------------------------------
   strConnectionString = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\Events1.mdb" & ";" & _
      "Jet OLEDB:Encrypt Database=True;"
                               
    bResult = g_DataResourcesMan.AddDataProvider( _
            strConnectionString, xtpCalendarDPF_CreateIfNotExists + _
            xtpCalendarDPF_SaveOnDestroy + xtpCalendarDPF_CloseOnDestroy)
   
    pRes0.SetDataProvider g_DataResourcesMan.DataProvider(0), True
     
    If pRes0.DataProvider Is Nothing Then
        Debug.Assert False
        Exit Sub
    End If
   
    If Not pRes0.DataProvider.Open Then
        If Not pRes0.DataProvider.Create Then
            Debug.Assert False
            Exit Sub
        End If
    End If
    '------------------------------------------------------------------------------------
   
       
   '------------------------------------------------------------------------------------
   '// SECOND DATA SOURCE (Events2.mdb)
   '------------------------------------------------------------------------------------
   strConnectionString = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\Events2.mdb" & ";" & _
      "Jet OLEDB:Encrypt Database=True;"
   
    bResult = g_DataResourcesMan.AddDataProvider( _
            strConnectionString, xtpCalendarDPF_CreateIfNotExists + _
            xtpCalendarDPF_SaveOnDestroy + xtpCalendarDPF_CloseOnDestroy)
       
    pRes1.SetDataProvider g_DataResourcesMan.DataProvider(1), True
     
    If pRes1.DataProvider Is Nothing Then
        Debug.Assert False
        Exit Sub
    End If
   
    If Not pRes1.DataProvider.Open Then
        If Not pRes1.DataProvider.Create Then
            Debug.Assert False
            Exit Sub
        End If
    End If
    '------------------------------------------------------------------------------------
   
       
   '// ** schedules
   '// ** resources
   
   '------------------------------------------------------------------------------------
   '// FIRST DATA SOURCE
   '------------------------------------------------------------------------------------
    Set pSchedules = pRes0.DataProvider.Schedules
    pRes0.Name = pSchedules.Item(0).Name
    pRes0.ScheduleIDs.Add pSchedules.Item(0).Id
    '------------------------------------------------------------------------------------
   
   
       
   '------------------------------------------------------------------------------------
   '// SECOND DATA SOURCE
   '------------------------------------------------------------------------------------
    Set pSchedules = pRes1.DataProvider.Schedules
    pRes1.Name = pSchedules.Item(0).Name
    pRes1.ScheduleIDs.Add pSchedules.Item(0).Id
    '------------------------------------------------------------------------------------
  
  
   '------------------------------------------------------------------
   'When you are adding an event
   'You need to use
   '   g_DataResourcesMan.DataProvider(0 or 1).AddEvent
   'instead of
   'frmMain.CalendarControl.DataProvider.AddEvent m_pEditingEvent
   '------------------------------------------------------------------
   
    arResources.Add pRes0
    arResources.Add pRes1
  
    g_DataResourcesMan.ApplyToCalendar CalendarControl
  
    CalendarControl.SetMultipleResources arResources
   
    CalendarControl.Populate
    CalendarControl.RedrawControl

End Sub

'--------------------------------------------------------------------------------------------

 

 

Below is a snippet on how to display multischedules from one database.

I have also attached the modified sample calendar control project. This project uses v11.1.3.

 

Goto the procedure 'mnuMultiSchedulesExtended_Click' and you will see the code below in action.

 

In the access database, there is a table called Schedules, this is linked to the scheduleID field in the events database. The sample below is using each schedule as a user and each user as a resource.

 

If you load the sample attached, start the project;

 

Select the menu option, FILE|LOAD MULTISCHEDULES (EXTENDED)

change your view to 5 day view

Select the dates 2nd and 3rd July 2007 to see some calendar entries for User 1 and User 2 (these are the names of the schedules in the schedules table).

 

 

Have fun and hope this helps you

 

 

 

Private Sub mnuMultiSchedulesExtended_Click()

 

   Dim arResources As New CalendarResources
   Dim pRes() As CalendarResource
   Dim objSchedule As CalendarSchedule
  
   Dim strConnectionString As String
   Dim i As Long
   Dim j As Long

       

   strConnectionString = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\Events1.mdb" & ";" & _
      "Jet OLEDB:Encrypt Database=True;"

   CalendarControl.SetDataProvider strConnectionString
           
   If Not CalendarControl.DataProvider.Open Then
      CalendarControl.DataProvider.Create
   End If

 

   j = CalendarControl.DataProvider.Schedules.Count - 1
  
   For i = 0 To j
     
      ReDim Preserve pRes(i)
      Set pRes(i) = New CalendarResource
     
      If i = 0 Then
         'Use the first connection string for the first datasource
         pRes(i).SetDataProvider2 strConnectionString, True
      Else
         'add the first resources datasource object to any subsequent schedule in the database
         pRes(i).SetDataProvider pRes(0).DataProvider, False
      End If
     
      'Open the datasource
      If pRes(i).DataProvider.Open Then
        
         'get a list of the schedules
         Set objSchedule = CalendarControl.DataProvider.Schedules(i)
        
         'add the schedule to the resource
         pRes(i).Name = objSchedule.Name
         pRes(i).ScheduleIDs.Add objSchedule.Id
                          
         'add resource to resource array
         arResources.Add pRes(i)
        
      End If
   Next i
  
   'add resource array to calendarcontrol
   CalendarControl.SetMultipleResources arResources
     
   CalendarControl.Populate
   CalendarControl.RedrawControl
       
   Set arResources = Nothing
   Set objSchedule = Nothing
   If IsArray(pRes) Then
      Erase pRes
   End If

End Sub

 

 

 

 

 

 

 

'get a list of the schedules
Set objSchedule = CalendarControl.DataProvider.Schedules(i)
         
'add the schedule to the resource
pRes(i).Name = objSchedule.Name
pRes(i).ScheduleIDs.Add objSchedule.Id
                          

What is the best way to import this list & IDS form another table other than Schedules table?