Copy/Clone an Event

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

   Hi,
I have issue to clone an event without setting the event id.
If I use CloneEvent or set my new event to the one which I want to copy it copies the eventID too and I can not save it as a new event and get the DB error:
Cannot CreateEvent in DB: ORA-00001: unique constraint (SYSTEM.PK_CALENDAR_EVENTS) violated

Dim CopiedEvent As CalendarEvent

' Here I want to keep the new created EventId
Set CopiedEvent = CalendarControl.DataProvider.CreateEvent

'Here the new event id is changed to the original event id
Set CopiedEvent = OriginalEvent.CloneEvent

Any clue?

Thanks
Mo

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
mkhadem Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 July 2008 Status: Offline Points: 15	Post Options Post Reply Quote mkhadem Report Post Thanks(0) Quote Reply Topic: Copy/Clone an Event Posted: 01 August 2008 at 12:28pm
	Hi, I have issue to clone an event without setting the event id. If I use CloneEvent or set my new event to the one which I want to copy it copies the eventID too and I can not save it as a new event and get the DB error: Cannot CreateEvent in DB: ORA-00001: unique constraint (SYSTEM.PK_CALENDAR_EVENTS) violated Dim CopiedEvent As CalendarEvent ' Here I want to keep the new created EventId Set CopiedEvent = CalendarControl.DataProvider.CreateEvent 'Here the new event id is changed to the original event id Set CopiedEvent = OriginalEvent.CloneEvent Any clue? Thanks Mo

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 06 August 2008 at 4:31am
	Hello, What DataProvider do you use? I tried with our sample use Access mdb file and added this code: Dim Ev As CalendarEvent, E As CalendarEvent Set Ev = CalendarControl.DataProvider.GetEvent(1) Set E = Ev.CloneEvent() CalendarControl.DataProvider.AddEvent E Works fine - DataProvider automatically generated new EventId in AddEvent method.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

mkhadem Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 July 2008 Status: Offline Points: 15	Post Options Post Reply Quote mkhadem Report Post Thanks(0) Quote Reply Posted: 08 August 2008 at 2:43pm
	Hi, I am using ORACLE and the event ID is not set automatically. I use oracle sequence to get the next valid ID. Here is the workaround but I don't like it. I have to set all event parameters manually to be able to assign my new event ID. Do you have a better solution? Regards Mo ' Get new ID nEventID = m_pDB.DoGetNextUniqueID ' Set my event Set pEvent = m_pCalendar.DataProvider.CreateEventEx(nEventID) pEvent.MeetingFlag = IIf(pEventRS("IsMeeting") <> 0, True, False) pEvent.PrivateFlag = IIf(pEventRS("IsPrivate") <> 0, True, False) pEvent.Label = pEventRS("LabelID") and so on...

mkhadem Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 July 2008 Status: Offline Points: 15	Post Options Post Reply Quote mkhadem Report Post Thanks(0) Quote Reply Posted: 12 August 2008 at 4:34pm
	Thanks oleg, I did it as you said and just assigned my EventId in the Sub for DoCreateEvent. Thanks for your help. Mo