Show new event

Hi!  We're in the process of evaluating your software for our company.  Everything works great, except for one issue.

When we tried setting the Calendar Control to an SQL database, we had a serious performance issue, so we are now manually creating all events.  The code is pretty simple (VB6) ...

<Setup calendar/resources/schedules>
<open recordset>
<Loop>
  <calendarcontrol.dataprovider.CreateEventEx(rst("ID"))> ;
  <set recurring properties>
<end loop>
<CalendarControl.Populate()>

The issue I have is as follows:
- When I create a new event and try to add it the current view, it won't show up.  I've tried the following two methods:

Method 1:
<create new event in database table>
<CalendarControl.GetAllEventsRaw()>
<Append new event to this collection>
<CalendarControl.Populate()>

Method 2:
<Create new event in database table>
<CalendarControl.DataProvider.CreateNewEventEx(rst("ID")) >
<CalendarControl.DataProvider.AddEvent>
<CalendarControl.Populate()>

In both cases, the new event won't show up until I do the following

<CalendarControl.dataprovider.RemoveAllEvents>
<Remove all resources>
<Remove all schedules>
<Rebuild entire calendar from database table>

Please help!  I'm probably missing something.  One quick note that might help...I couldn't get the calendar to show any events until I added the following:

If CalendarResourcesManager.AddDataProvider("", 0) = False Then
    Exit Sub
End If

Could this be the problem?

Please help! We are  in the water until we resolve this issue!

Thanks!!!
Mir

Hi!  Thanks for the response!

I know Method 1 isn't for this purpose, but I was trying that to see if maybe it'll work that way.

My app loads the Calendar in the following way:

- Load list of users
- Load list of resources
- User checks off users and resources he/she wants to see
- Open recordset from db
- Populate calendar

All this works perfectly.

This screen is still open when the user click "New Appointment"

On the "New Appointment" screen I save the new entry in the db
- Create new CalendarEvent
- Append this to the currently loaded calendar with
    CalendarControl.DataProvider.AddEvent CEvent
    CalendarControl.Populate()

Nothing happens.  I've debugged and scheduleID's match, start and end times are accuarate and all other information is accurate.

Is there an issue if the calendar is "manually" populated first and if you are trying to add a new event manually again?

I've gone through the entire demo project line-by-line and I think I understand it well.  I'm probably missing some small step somewhere..or at least I hope it's small .

2006-05-17_134906_ScrShot1.zip

Thanks again!

Mir

Hi Serge,

Here's the routine.

Public RMan As New CalendarResourcesManager
Dim pData As CalendarDataProvider
Dim pSchedules As CalendarSchedules
Dim pRCDesc As CalendarResourceDescription

If RMan.AddDataProvider("", 32) = False Then
    Exit Sub
End If
   

Set pData = RMan.DataProvider(0)
Set pSchedules = pData.Schedules
Set Rscs = Me.CalendarControl.MultipleResources
       
Dim strName As String
Dim i As Integer, j As Integer
       
j = pSchedules.Count
While j > 0
    pSchedules.RemoveSchedule (j)
    j = j - 1
Wend

j = RMan.ResourcesCount
While j > 0
    RMan.RemoveResource (j - 1)
    j = j - 1
Wend
       
pData.Save
RMan.SaveCfg App.Path & "\MCal.xtpCal"
Set Rscs = Me.CalendarControl.MultipleResources
       
i = 0
j = 0
       
'First process all users
For i = 0 To 19
    If arCals(i) <> "" Then
        strName = frmPaneCalendar.trvCalendar.Nodes(arCals(i)).Text
        pSchedules.A ddNewSchedule strName
        pData.Save
        RMan.AddReso urce strName, True
        Set pRCDesc = RMan.Resource(j)
        pRCDesc.Reso urce.SetDataProvider pData, False
        pRCDesc.Reso urce.ScheduleIDs.Add pSchedules(j).ID
        pRCDesc.Gene rateName = True
        j = j + 1
    End If
Next
        
i = 0
     
RMan.ApplyToCalendar Me.CalendarControl
        
Me.CalendarControl.DataProvider.RemoveAllEvents

<Open Recordset from database>

<do while not rst.eof>
    Set cEvent = Me.CalendarControl.DataProvider.CreateEventEx(rst!ApptID)
    <set all event properties and recurring properties>
    <cevent.ScheduleID=x> 'To show for appropriate user
    Me.CalendarControl.DataProvider.AddEvent cEvent
<loop>

Me.CalendarControl.Populate()

Hope this helps.  Thanks a bunch for your help!

If you'd like me to email you the VB module, please send me an e-mail address, and I'll be happy to do so.

Thanks!!
Mir