Hi chirag, It seems like the error is probably in the 'txtUrl' parameter you are passing in. It would appear you are providing "http://www.google.com/ calendar/feeds/default/[EMAIL PROTECTED]/full" as the calendar you wish to access.
However, "default" is merely a placeholder for when you don't want to specify an e-mail address and want to use the user credentials to figure out which primary calendar to access. Also you need to add in the visibility, which in your case is 'private'. So you can take out either "default" (http://www.google.com/calendar/feeds/ [EMAIL PROTECTED]/private/full) or you can take out your e-mail (http://www.google.com/calendar/feeds/default/private/full) and you should be able to retrieve your calendar. Cheers, -Jeff On Jul 16, 6:44 am, chirag <[EMAIL PROTECTED]> wrote: > hi guys > i got the exception while fetching entries of calendar from google > calendar. > i got the following message > ex = {"Execution of request failed: > http://www.google.com/calendar/feeds/default/[EMAIL > PROTECTED]/full?start-min=2007-06-18T19:08:12+05:30&start-max=2008-01-16T19:08:12+05:30"} > > here is my code > > Dim i = 0 > Dim calendarURI As String = txtUrl.Text > Dim userName As String = txtUserName.Text > Dim passWord As String = txtPassword.Text > > entryList = New ArrayList(50) > Dim dates As New ArrayList(50) > Dim query As New EventQuery > Dim gService As New > CalendarService("GoogleCalendarApplication") > > If (Not userName Is Nothing) And (userName.Length > 0) Then > gService.setUserCredentials(userName, passWord) > End If > > query.Uri = New Uri(calendarURI) > query.StartTime = DateTime.Now.AddDays(-28) > query.EndTime = DateTime.Now.AddMonths(6) > > Dim calFeed As Google.GData.Calendar.EventFeed ''New > EventFeed(query.Uri, service) > ''Dim calFeed As EventFeed = service.Query(query) > Try > calFeed = gService.Query(query) '' here i got the > exception > Catch ex As Exception > > End Try > > While ((Not calFeed Is Nothing) And (calFeed.Entries.Count > > 0)) > ''foreach (EventEntry entry in calFeed.Entries) > For Each entry As EventEntry In calFeed.Entries > entryList.Add(entry) > If entry.Times.Count > 0 Then > For Each w As [When] In entry.Times > dates.Add(w.StartTime) > Next > End If > Next > > If Not calFeed.NextChunk Is Nothing Then > query.Uri = New Uri(calFeed.NextChunk) > calFeed = gService.Query(query) > Else > calFeed = Nothing > End If > > Dim aDates(dates.Count) As DateTime > > For Each d As DateTime In dates > aDates(i) = d > i = i + 1 > Next > End While --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Google Calendar Data API" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [EMAIL PROTECTED] For more options, visit this group at http://groups.google.com/group/google-calendar-help-dataapi?hl=en -~----------~----~----~----~------~----~------~--~---
