Codejock Developer Community : Load multiple resources and events http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 08:59:57 +0000 Thu, 05 Oct 2006 15:01:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=5174 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Load multiple resources and events : Sorry for the previous question,...]]> http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16350&title=load-multiple-resources-and-events#16350 Author: Rod001
Subject: 5174
Posted: 05 October 2006 at 3:01pm

Sorry for the previous question, everything did work. Things works a lot

better when you (me) cuts and paste all the code.

Thanks again,
Rod001
 
 
 
]]> Thu, 05 Oct 2006 15:01:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16350&title=load-multiple-resources-and-events#16350 <![CDATA[Load multiple resources and events : Serge, The changeswork great!I...]]> http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16273&title=load-multiple-resources-and-events#16273 Author: Rod001
Subject: 5174
Posted: 03 October 2006 at 2:46pm

Serge,
 
The changes work great! I am trying to develop a proof of concept for our management team and would appreciate any and all help.
After updating the code with the changes I can't seem to make the events for adding dates to show up in the calendar.
 
Thank you,
Rod001 
]]> Tue, 03 Oct 2006 14:46:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16273&title=load-multiple-resources-and-events#16273 <![CDATA[Load multiple resources and events : Hi,You just mixed up some things...]]> http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16258&title=load-multiple-resources-and-events#16258 Author: sserge
Subject: 5174
Posted: 03 October 2006 at 10:44am

Hi,

You just mixed up some things a little, and as result - no data provider is attached to Calendar at all.
 
I mean that you create data provider in pRes0 but skip a step of adding pRes0 to an array.
Also you have to set data provider to each resource.
 

Public Sub BuildResourceItems(sNames As String)
    Dim arResources As New CalendarResources
    Dim pRes0 As New CalendarResource
    Dim pRes1 As New CalendarResource
    Dim NewEvent As CalendarEvent
    Dim pSchedules As CalendarSchedules
    Dim strConnectionString As String
    Dim sArray() As String
    Dim ldx As Integer
   
    strConnectionString = "Provider=Custom;Data Source="
    pRes0.SetDataProvider2 strConnectionString, 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
    '// ** schedules
 
    Set pSchedules = pRes0.DataProvider.Schedules
    sArray = Split(sNames, ",")
    For ldx = 0 To UBound(sArray)
        pSchedules.AddNewSchedule sArray(ldx)
    Next
    pRes0.DataProvider.Save
    
    pRes0.Name = pSchedules.Item(0).Name
    pRes0.ScheduleIDs.Add pSchedules.Item(0).Id
 
    ' Add first resource to array
    arResources.Add pRes0
 
        sArray = Split(sNames, ",")
    ' Add others (exclude first one)
    For ldx = 1 To UBound(sArray)
        Set pRes1 = New CalendarResource
        pRes1.Name = sArray(ldx)
        pRes1.ScheduleIDs.Add ldx
        ' set data provider from first resource
        pRes1.SetDataProvider pRes0.DataProvider, False
        arResources.Add pRes1
    Next
    CalendarControl1.SetMultipleResources arResources
 
        Set NewEvent = CalendarControl1.DataProvider.CreateEvent ' error problem occurs here

    NewEvent.StartTime = Now
    NewEvent.EndTime = Now
    NewEvent.Subject = "Product Meeting"
    NewEvent.ScheduleID = 1
    CalendarControl1.DataProvider.AddEvent NewEvent
 CalendarControl1.Populate
End Sub



--
WBR,
Serge
]]> Tue, 03 Oct 2006 10:44:11 +0000 http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16258&title=load-multiple-resources-and-events#16258 <![CDATA[Load multiple resources and events : Hi, I&#039;m new to this...]]> http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16185&title=load-multiple-resources-and-events#16185 Author: Rod001
Subject: 5174
Posted: 29 September 2006 at 11:56am

Hi,
 
I'm new to this control, and I'm trying to test and understand the MultipleResources and date events. I'm able to set up the calendar with multiple resources but not able to add any date events.

  Private Sub Form_Load()
    Init
    
    BuildResourceItems "john,tim,rod,bill,nancy"
 
  End Sub
 
Public Sub BuildResourceItems(sNames As String)
Dim arResources As New CalendarResources
Dim pRes0 As New CalendarResource
Dim pRes1 As New CalendarResource
Dim NewEvent As CalendarEvent
Dim pSchedules As CalendarSchedules
Dim strConnectionString As String
Dim sArray() As String
Dim ldx As Integer
  
strConnectionString = "Provider=Custom;Data Source="
pRes0.SetDataProvider2 strConnectionString, 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
 '// ** schedules
 
 Set pSchedules = pRes0.DataProvider.Schedules
 sArray = Split(sNames, ",")
 For ldx = 0 To UBound(sArray)
    pSchedules.AddNewSchedule sArray(ldx)
  
 Next
 pRes0.DataProvider.Save
 
 
 pRes1.SetDataProvider pRes0.DataProvider, False
 
 pRes0.Name = pSchedules.Item(0).Name
 pRes0.ScheduleIDs.Add pSchedules.Item(0).Id
 
 
 sArray = Split(sNames, ",")
 For ldx = 0 To UBound(sArray)
    Set pRes1 = New CalendarResource
    pRes1.Name = sArray(ldx)
    pRes1.ScheduleIDs.Add ldx
    arResources.Add pRes1
  
 Next
 CalendarControl1.SetMultipleResources arResources
 
   Set NewEvent = CalendarControl1.DataProvider.CreateEvent ' error problem occurs here

   NewEvent.StartTime = Now
    NewEvent.EndTime = Now
    NewEvent.Subject = "Product Meeting"
    NewEvent.ScheduleID = 1
    CalendarControl1.DataProvider.AddEvent NewEvent
 CalendarControl1.Populate
End Sub
 
Thank you,
Rod001
]]> Fri, 29 Sep 2006 11:56:32 +0000 http://forum.codejock.com/forum_posts.asp?TID=5174&PID=16185&title=load-multiple-resources-and-events#16185