Multiple Resources

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tslu Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 14 September 2006 Status: Offline Points: 8	Post Options Post Reply Quote tslu Report Post Thanks(0) Quote Reply Topic: Multiple Resources 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

sserge Members Profile Send Private Message Find Members Posts Add to Buddy List Moderator Group Joined: 01 December 2004 Status: Offline Points: 1297	Post Options Post Reply Quote sserge Report Post Thanks(0) Quote Reply Posted: 14 September 2006 at 4:34pm
	And what exactly do you want to improve? What's your problem? -- WBR, Serge

tslu Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 14 September 2006 Status: Offline Points: 8	Post Options Post Reply Quote tslu Report Post Thanks(0) Quote Reply 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.

sserge Members Profile Send Private Message Find Members Posts Add to Buddy List Moderator Group Joined: 01 December 2004 Status: Offline Points: 1297	Post Options Post Reply Quote sserge Report Post Thanks(0) Quote Reply 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