help with GetEvent : Hi all. I'm having troubles...

Thu, 05 Feb 2009 07:52:54 +0000

Author: palaman
Subject: 13338
Posted: 05 February 2009 at 7:52am

Hi all. I'm having troubles trying to understand the GetEvent method. It's suppossed with this method I'm able to get an event from its ID. I'm using MySql database (within a vb6 projet with the classess Codejock provides to help with). Everything works fine except a behavior that I don't understand. I'll briefly explain it (the code at the bottom):

oScheduler = calendar control
frmAppointment = event creator/editor
frmSelectSeries = edit-delete series or recurrence selector

My point is to get EventID (mysql table EventID field from specific event) from Dataprovider.Event.Id so I can pass it to my own edit event function as a parameter. But "oHitTest.ViewEvent.Id" gets a totally different ID than database does. E.g If database EventID = 3... oHitTest.ViewEvent.Id = -1655 or something else (I assume this unique-number is generated randomly when the events are loaded into the calendar object each time it is created.)

If I use debbuger panel to manually get "oScheduler.Dataprovider.GetEvent(3).Id" then it works fine and it returns "3" as Id.

My question is, Is this working fine? If affirmative, then how can I use the Event.Id property to get the *real* ID (EventID from database) and not that random ID when I doubleclick on an event??

I hope you understand, and thank you in advance.

---------------------------code----------------------------

Private Sub oScheduler_DblClick()
    Dim oHitTest As CalendarHitTestInfo
    Set oHitTest = oScheduler.ActiveView.HitTest

    If oHitTest.ViewEvent Is Nothing Then
        Call frmAppointment.NewRecord(Me) 'click on blank, create new Record
    Else
        If oHitTest.ViewEvent.Event.RecurrenceState <> xtpCalendarRecurrenceNotRecurring Then
            Call frmSelectSeries.ChooseOccurrence(oHitTest.ViewEvent.Event.Subject, False)
            Select Case frmSelectSeries.lngResponse
                Case Is = 0 ' press cancel
                Case Is = 1 'only this recurrence
                    Call frmAppointment.EditRecord(oHitTest.ViewEvent.Event.ID, Me, 1)
                Case Is = 2 'edit whole series
                    Call frmAppointment.EditRecord(oHitTest.ViewEvent.Event.ID, Me, 2)
            End Select
        Else
            Call frmAppointment.EditRecord(oHitTest.ViewEvent.Event.ID, Me, 0)
        End If
    End If
    Set oHitTest = Nothing
End Sub

Codejock Developer Community : help with GetEvent

help with GetEvent : Hi all. I'm having troubles...