Codejock Developer Community : Multiple Resources http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 07:55:12 +0000 Thu, 21 Sep 2006 08:26:18 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=5047 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Multiple Resources : Hi,I do not think that this is...]]> http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15963&title=multiple-resources#15963 Author: sserge
Subject: 5047
Posted: 21 September 2006 at 8:26am

Hi,

I do not think that this is a real problem.
Just a cooding style.
 
The code before
    do...while
need to create a data provider in first resource and use it for all others.
 
But you can easily rewrite this code.
 
for example:
-----------------------------------------------------------------
   Dim pDataProvider as CalendarDataProvider
 
   Do While Not rsStaff.EOF
       I = I + 1
 
       pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
       Set pRes1 = New CalendarResource
               
       if I == 1 then
            pRes1.SetDataProvider2 "connection string", True
            set pDataProvider = pRes1.DataProvider
       else
           pRes1.SetDataProvider pDataProvider, False
       endif
 
       pRes1.Name = rsStaff.Fields("Name").Value
       pRes1.ScheduleIDs.Add I
       arResources.Add pRes1
      rsStaff.MoveNext
   Loop

 
Also to free memory correctly, you have to set bCloseDataProviderWhenDestroy = True for one resource.

--
WBR,
Serge
]]> Thu, 21 Sep 2006 08:26:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15963&title=multiple-resources#15963 <![CDATA[Multiple Resources : The code below works: pSchedules.AddNewSchedule...]]> http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15708&title=multiple-resources#15708 Author: tslu
Subject: 5047
Posted: 14 September 2006 at 8:21pm

 The code below works:
 
   pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
   pRes0.Name = rsStaff.Fields("Name").Value
   pRes0.ScheduleIDs.Add rsStaff.Fields("ID").Value
   arResources.Add pRes0
   rsStaff.MoveNext
   
   Do While Not rsStaff.EOF
       I = I + 1
       pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
       Set pRes1 = New CalendarResource
       pRes1.SetDataProvider pRes0.DataProvider, False
       pRes1.Name = rsStaff.Fields("Name").Value
       pRes1.ScheduleIDs.Add I
       arResources.Add pRes1
      rsStaff.MoveNext
   Loop

if I dont want include the part before the do...while loop it doesnt work as it doesnt show what I have in the Event.mdb.
]]> Thu, 14 Sep 2006 20:21:26 +0000 http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15708&title=multiple-resources#15708 <![CDATA[Multiple Resources : And what exactly do you want to...]]> http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15706&title=multiple-resources#15706 Author: sserge
Subject: 5047
Posted: 14 September 2006 at 4:34pm

And what exactly do you want to improve? What's your problem?
 
--
WBR,
Serge
]]> Thu, 14 Sep 2006 16:34:14 +0000 http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15706&title=multiple-resources#15706 <![CDATA[Multiple Resources : How can I improve the following....]]> http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15689&title=multiple-resources#15689 Author: tslu
Subject: 5047
Posted: 14 September 2006 at 5:35am

How can I improve the following. I am new to this. I'm quit confused

   pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
   pRes0.Name = rsStaff.Fields("Name").Value
   pRes0.ScheduleIDs.Add rsStaff.Fields("ID").Value
   arResources.Add pRes0
   rsStaff.MoveNext
   
   Do While Not rsStaff.EOF
       I = I + 1
       pSchedules.AddNewSchedule rsStaff.Fields("Name").Value
       Set pRes1 = New CalendarResource
       pRes1.SetDataProvider pRes0.DataProvider, False
       pRes1.Name = rsStaff.Fields("Name").Value
       pRes1.ScheduleIDs.Add I
       arResources.Add pRes1
      rsStaff.MoveNext
   Loop
]]> Thu, 14 Sep 2006 05:35:22 +0000 http://forum.codejock.com/forum_posts.asp?TID=5047&PID=15689&title=multiple-resources#15689