Calendar - Update

Update a Google calendar using SQL Server

Prerequisites:

See SQLHTTP easy setup for Google Calendar
See API Call documentation for parameter values and other information
Create the stored procedure documented below

Stored Procedure:


CREATE PROCEDURE usp_Google_Calendar_Update(	
		@Profile nvarchar(100),
		@CalendarId varchar(MAX),
		@Body varchar(MAX),
		@Response nvarchar(MAX) OUTPUT,
		@StatusCode int OUTPUT,
		@StatusDescription nvarchar(MAX) OUTPUT)
AS

DECLARE @URL nvarchar(MAX)
DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://www.googleapis.com/calendar/v3'

EXEC SQLHTTP.net.UrlBuilder   @URL OUTPUT,
			      @Profile,
			      'calendars', @CalendarId

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_Google_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest 	@HTTPSessionID,
				@URL = @URL,
				@Method = 'PUT',
				@Body = @Body,
				@ContentType = 'application/json',
				@StatusCode = @StatusCode OUTPUT,
				@StatusDescription = @StatusDescription OUTPUT,
				@Response = @Response OUTPUT
GO

CREATE PROCEDURE usp_Google_Calendar_Update(

@Profile nvarchar(100),

@CalendarId varchar(MAX),

@Body varchar(MAX),

@Response nvarchar(MAX) OUTPUT,

@StatusCode int OUTPUT,

@StatusDescription nvarchar(MAX) OUTPUT)

DECLARE @URL nvarchar(MAX)

DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://www.googleapis.com/calendar/v3'

EXEC SQLHTTP.net.UrlBuilder @URL OUTPUT,

@Profile,

'calendars', @CalendarId

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_Google_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest @HTTPSessionID,

@URL = @URL,

@Method = 'PUT',

@Body = @Body,

@ContentType = 'application/json',

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT,

@Response = @Response OUTPUT



Sample Usage:


DECLARE @Response nvarchar(MAX)
DECLARE @StatusCode int
DECLARE @StatusDescription nvarchar(MAX)
DECLARE @Body varchar(MAX)
DECLARE @Profile nvarchar(100)

SET @Profile = 'My google'

SET @Body = '{
  "summary": "Calendar1",
  "description": "My First Calendar"
}'

--Google API Bearer Token expires after an hour
EXEC usp_Google_Auth_Refresh @Profile	

EXEC usp_Google_Calendar_Update
		@Profile = @Profile,
		@CalendarId = 'qu0gnjqvchem7miinbe08u2ssk@group.calendar.google.com',
		@Body = @Body,
		@Response = @Response OUTPUT, 
		@StatusCode = @StatusCode OUTPUT, 
		@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400
	EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response
ELSE
	BEGIN
		
		DECLARE @X xml
		SET @X = SQLHTTP.net.Json_To_Xml(@Response, '0')

		--The XPath syntax below was easily generated by executing the following commands:
		--EXEC SQLHTTP.net.XQueryHelper @X
		--and then executing: 
		--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject' --

		SELECT T.C.value(N'@kind', N'nvarchar(MAX)') AS [kind]
		      ,T.C.value(N'@id', N'nvarchar(MAX)') AS [id]
		      ,T.C.value(N'@summary', N'nvarchar(MAX)') AS [summary]
		      ,T.C.value(N'@description', N'nvarchar(MAX)') AS [description]
		FROM @X.nodes(N'/JsonObject') T(C)

	END

DECLARE @Response nvarchar(MAX)

DECLARE @StatusCode int

DECLARE @StatusDescription nvarchar(MAX)

DECLARE @Body varchar(MAX)

DECLARE @Profile nvarchar(100)

SET @Profile = 'My google'

SET @Body = '{

"summary": "Calendar1",

"description": "My First Calendar"

--Google API Bearer Token expires after an hour

EXEC usp_Google_Auth_Refresh @Profile

EXEC usp_Google_Calendar_Update

@Profile = @Profile,

@CalendarId = 'qu0gnjqvchem7miinbe08u2ssk@group.calendar.google.com',

@Body = @Body,

@Response = @Response OUTPUT,

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400

EXEC SQLHTTP.net.RaiseHttpError @StatusCode, @StatusDescription, @Response

ELSE

BEGIN

DECLARE @X xml

SET @X = SQLHTTP.net.Json_To_Xml(@Response, '0')

--The XPath syntax below was easily generated by executing the following commands:

--EXEC SQLHTTP.net.XQueryHelper @X

--and then executing:

--EXEC SQLHTTP.net.XQueryHelper @X, 'JsonObject' --

SELECT T.C.value(N'@kind', N'nvarchar(MAX)') AS [kind]

,T.C.value(N'@id', N'nvarchar(MAX)') AS [id]

,T.C.value(N'@summary', N'nvarchar(MAX)') AS [summary]

,T.C.value(N'@description', N'nvarchar(MAX)') AS [description]

FROM @X.nodes(N'/JsonObject') T(C)

END

kind id summary description

------------------ ------------------------------------ ------------ -------------------

calendar#calendar qu0gnjqvchem7miinbe08u2ssk@group.... Calendar1 My First Calendar



IMPORTANT DISCLAIMER

CODE/SQL ON THESE PAGES ARE PROVIDED AS-IS AND ARE AVAILABLE FOR ILLUSTRATIVE PURPOSES ONLY.

USERS ARE REQUIRED TO ABIDE BY THE TERMS AND CONDITIONS FOR USING REFERENCED THIRD PARTY WEBSITES AND/OR APIs FROM THEIR RESPECTIVE WEBSITES. WE DO NOT CONDONE ANY VIOLATION OF THIRD PARTY WEBSITES AND/OR APIs TERMS AND CONDITIONS USING OUR SOFTWARE.

USERS SHALL BE SOLELY RESPONSIBLE AND BE SOLELY LIABLE FOR VIOLATION OF ANY RULES SPECIFIED BY THIRD PARTIES FOR USING THEIR WEBSITES AND/OR APIs, OR INFRINGEMENT OF RIGHTS OF SUCH THIRD PARTIES.