Codejock Developer Community : Copy/Clone an Event

Copy/Clone an Event : Thanks oleg, I did it as you...

Tue, 12 Aug 2008 16:34:15 +0000

Author: mkhadem
Subject: 11695
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.

Copy/Clone an Event : Hi, I am using ORACLE and the...

Fri, 08 Aug 2008 14:43:29 +0000

Author: mkhadem
Subject: 11695
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

' 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...

Copy/Clone an Event : Hello, What DataProvider do...

Wed, 06 Aug 2008 04:31:47 +0000

Author: Oleg
Subject: 11695
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.

Copy/Clone an Event : Hi, I have issue to clone an...

Fri, 01 Aug 2008 12:28:23 +0000

Author: mkhadem
Subject: 11695
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