Dim rcon As RemindersConstants ' Library from the Tutorial needed
Dim event As Int = 12345 ' Eventid of which you want to get the Reminders
Dim projection() As String = Array As String(rcon.ID, rcon.EVENT_ID ,rcon.METHOD, rcon.MINUTES)
Dim selection As String = $"${rcon.EVENT_ID}=?"$
Dim selectionArgs() As String = Array As String(event)
cr.QueryAsync(rcon.CONTENT_URI,projection, selection,selectionArgs,rcon.ID&" ASC")
wait for CR_QueryCompleted(Success As Boolean, Crsr As Cursor)
Log($"QueryCompleted(${Success})"$)
If Success = False Then
Log(LastException)
End If
If Crsr.IsInitialized Then
If Crsr.RowCount > 0 Then
Dim crsrreminder As Cursor
crsrreminder = Crsr
For i = 0 To crsrreminder.RowCount - 1
crsrreminder.Position = i
Dim methodid As Int = crsrreminder.GetInt(rcon.METHOD)
Dim method As String = "unknown"
Select methodid
Case 1
method = "Notify"
Case 2
method = "eMail"
End Select
Log($"ID: ${crsrreminder.GetString(rcon.ID)} / Method: ${method} / Minutes: ${crsrreminder.GetString(rcon.MINUTES)}"$)
Next
crsrreminder.Close
Else
' No rows
End If
Else
'
End If