Event - Fetch - SQLHTTP

Event - Fetch

Retrieve an existing event using SQL Server

Prerequisites:

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

Stored Procedure:


CREATE PROCEDURE usp_ConstantContact_v2_Event_Fetch(
		@Profile nvarchar(100),
		@EventID varchar(MAX),
		@Response nvarchar(MAX) OUTPUT,
		@StatusCode int OUTPUT,
		@StatusDescription nvarchar(MAX) OUTPUT)
AS

SET NOCOUNT ON

DECLARE @URL varchar(MAX)
DECLARE @QueryString varchar(MAX)
DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://api.constantcontact.com/v2'

EXEC SQLHTTP.net.UrlBuilder   @URL OUTPUT,
			      @Profile,
			      'eventspot','events',@EventID

EXEC SQLHTTP.net.QueryStringBuilder   @QueryString OUTPUT,
				      @Profile,
				      'api_key', '#APIKey'

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_ConstantContact_v2_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest   @HttpSessionID,
                               @URL = @URL,
                               @Method = 'GET',
                               @ContentType = 'application/json',
                               @StatusCode = @StatusCode OUTPUT,
                               @StatusDescription = @StatusDescription OUTPUT,
                               @Response = @Response OUTPUT

GO

CREATE PROCEDURE usp_ConstantContact_v2_Event_Fetch(

@Profile nvarchar(100),

@EventID varchar(MAX),

@Response nvarchar(MAX) OUTPUT,

@StatusCode int OUTPUT,

@StatusDescription nvarchar(MAX) OUTPUT)

SET NOCOUNT ON

DECLARE @URL varchar(MAX)

DECLARE @QueryString varchar(MAX)

DECLARE @HTTPSessionID uniqueidentifier

SET @URL = 'https://api.constantcontact.com/v2'

EXEC SQLHTTP.net.UrlBuilder @URL OUTPUT,

@Profile,

'eventspot','events',@EventID

EXEC SQLHTTP.net.QueryStringBuilder @QueryString OUTPUT,

@Profile,

'api_key', '#APIKey'

SET @URL = @URL + @QueryString

EXEC SQLHTTP.net.HTTPSession @HTTPSessionID OUTPUT

EXEC usp_ConstantContact_v2_Auth_Header @Profile, @HTTPSessionID

EXEC SQLHTTP.net.HTTPRequest @HttpSessionID,

@URL = @URL,

@Method = 'GET',

@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)

EXEC usp_ConstantContact_v2_Event_Fetch
		@Profile = 'My ConstantContact',
		@EventID = 'a07eec4nec6c5484c67',
		@Response = @Response OUTPUT, 
		@StatusCode = @StatusCode OUTPUT, 
		@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400 --An HTTP Request error has occured
	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'@id', N'nvarchar(MAX)') AS [id]
		      ,T.C.value(N'@name', N'nvarchar(MAX)') AS [name]
		      ,T.C.value(N'@title', N'nvarchar(MAX)') AS [title]
		      ,T.C.value(N'@status', N'nvarchar(MAX)') AS [status]
		FROM @X.nodes(N'/JsonObject') T(C)

	END

DECLARE @Response nvarchar(MAX)

DECLARE @StatusCode int

DECLARE @StatusDescription nvarchar(MAX)

EXEC usp_ConstantContact_v2_Event_Fetch

@Profile = 'My ConstantContact',

@EventID = 'a07eec4nec6c5484c67',

@Response = @Response OUTPUT,

@StatusCode = @StatusCode OUTPUT,

@StatusDescription = @StatusDescription OUTPUT

IF @StatusCode >= 400 --An HTTP Request error has occured

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'@id', N'nvarchar(MAX)') AS [id]

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

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

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

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

END

id name title status

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

a07eec4nec6c5484c67 My Event - July 2017 My Brand New Event DRAFT



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.