SQL Server
SQL Server
Azure Service Bus - Create Queue
See more Azure Service Bus Examples
Creates an Azure Service Bus Queue.Note: This example requires Chilkat v9.5.0.65 or greater.
Chilkat SQL Server Downloads
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @iTmp0 int
-- Important: Do not use nvarchar(max). See the warning about using nvarchar(max).
DECLARE @sTmp0 nvarchar(4000)
DECLARE @success int
SELECT @success = 0
-- Note: Requires Chilkat v9.5.0.65 or greater.
-- This requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.
-- Make the initial connection.
-- A single REST object, once connected, can be used for many Azure Service Bus REST API calls.
-- The auto-reconnect indicates that if the already-established HTTPS connection is closed,
-- then it will be automatically re-established as needed.
DECLARE @rest int
EXEC @hr = sp_OACreate 'Chilkat.Rest', @rest OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
DECLARE @bAutoReconnect int
SELECT @bAutoReconnect = 1
EXEC sp_OAMethod @rest, 'Connect', @success OUT, '<yournamespace>.servicebus.windows.net', 443, 1, @bAutoReconnect
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
RETURN
END
-- ----------------------------------------------------------------------------------------------
-- The code above this comment could be placed inside a function/subroutine within the application
-- because the connection does not need to be made for every request. Once the connection is made
-- the app may send many requests..
-- ----------------------------------------------------------------------------------------------
-- Let's load a previously computed SAS token and use it.
-- See Azure Shared Access Signature for an example to genenerate an Azure SAS token.
DECLARE @sbToken int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbToken OUT
EXEC sp_OAMethod @sbToken, 'LoadFile', @success OUT, 'qa_data/tokens/serviceBusSas.txt', 'utf-8'
-- Tell the REST object to use the Azure Shared Access Signature for authorization.
EXEC sp_OAMethod @sbToken, 'Prepend', @success OUT, 'SharedAccessSignature '
EXEC sp_OAMethod @sbToken, 'GetAsString', @sTmp0 OUT
EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Authorization', @sTmp0
-- ----------------------------------------------------------------------------------------------
-- Create a new queue named "fox";
DECLARE @queueName nvarchar(4000)
SELECT @queueName = 'fox'
-- Create the XML body of the PUT request.
DECLARE @xml int
EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT
EXEC sp_OASetProperty @xml, 'Tag', 'entry'
EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns', 'http://www.w3.org/2005/Atom'
EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'title', 1, 'type', 'text'
EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'title', @queueName
EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'content', 1, 'type', 'application/xml'
EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'content|QueueDescription', 1, 'xmlns:i', 'http://www.w3.org/2001/XMLSchema-instance'
EXEC sp_OAMethod @xml, 'UpdateAttrAt', @success OUT, 'content|QueueDescription', 1, 'xmlns', 'http://schemas.microsoft.com/netservices/2010/10/servicebus/connect'
EXEC sp_OASetProperty @xml, 'EmitXmlDecl', 0
EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
PRINT @sTmp0
-- The XML created by the above code:
-- <entry xmlns="http://www.w3.org/2005/Atom">
-- <title type="text">fox</title>
-- <content type="application/xml">
-- <QueueDescription xmlns:i="http://www.w3.org/2001/XMLSchema-instance"
-- xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" />
-- </content>
-- </entry>
DECLARE @sbRequestBody int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbRequestBody OUT
EXEC sp_OAMethod @xml, 'GetXmlSb', @success OUT, @sbRequestBody
-- The path should be set to the to-be-created queue name.
DECLARE @sbPath int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbPath OUT
EXEC sp_OAMethod @sbPath, 'Append', @success OUT, '/'
EXEC sp_OAMethod @sbPath, 'Append', @success OUT, @queueName
DECLARE @sbResponseBody int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponseBody OUT
EXEC sp_OAMethod @sbPath, 'GetAsString', @sTmp0 OUT
EXEC sp_OAMethod @rest, 'FullRequestSb', @success OUT, 'PUT', @sTmp0, @sbRequestBody, @sbResponseBody
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @sbToken
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @sbRequestBody
EXEC @hr = sp_OADestroy @sbPath
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT
PRINT 'Response Status Code = ' + @iTmp0
-- Check for a success response.
EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT
IF @iTmp0 <> 201
BEGIN
EXEC sp_OAGetProperty @rest, 'LastRequestStartLine', @sTmp0 OUT
PRINT @sTmp0
EXEC sp_OAGetProperty @rest, 'LastRequestHeader', @sTmp0 OUT
PRINT @sTmp0
EXEC sp_OAMethod @sbResponseBody, 'GetAsString', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Failed.'
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @sbToken
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @sbRequestBody
EXEC @hr = sp_OADestroy @sbPath
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
-- The response is XML. (See a sample response below..)
EXEC sp_OAMethod @xml, 'LoadSb', @success OUT, @sbResponseBody, 1
EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Success.'
-- -----------------------------------------------
-- A sample successful XML response:
-- <entry xmlns="http://www.w3.org/2005/Atom">
-- <id>https://chilkat.servicebus.windows.net/fox</id>
-- <title type="text">fox</title>
-- <published>2016-12-01T00:37:57Z</published>
-- <updated>2016-12-01T00:37:57Z</updated>
-- <author>
-- <name>chilkat</name>
-- </author>
-- <link rel="self" href="https://chilkat.servicebus.windows.net/fox" />
-- <content type="application/xml">
-- <QueueDescription xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
-- <LockDuration>PT1M</LockDuration>
-- <MaxSizeInMegabytes>1024</MaxSizeInMegabytes>
-- <RequiresDuplicateDetection>false</RequiresDuplicateDetection>
-- <RequiresSession>false</RequiresSession>
-- <DefaultMessageTimeToLive>P10675199DT2H48M5.4775807S</DefaultMessageTimeToLive>
-- <DeadLetteringOnMessageExpiration>false</DeadLetteringOnMessageExpiration>
-- <DuplicateDetectionHistoryTimeWindow>PT10M</DuplicateDetectionHistoryTimeWindow>
-- <MaxDeliveryCount>10</MaxDeliveryCount>
-- <EnableBatchedOperations>true</EnableBatchedOperations>
-- <SizeInBytes>0</SizeInBytes>
-- <MessageCount>0</MessageCount>
-- <CreatedAt>2016-12-01T00:37:57.66</CreatedAt>
-- <UpdatedAt>2016-12-01T00:37:57.677</UpdatedAt>
-- </QueueDescription>
-- </content>
-- </entry>
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @sbToken
EXEC @hr = sp_OADestroy @xml
EXEC @hr = sp_OADestroy @sbRequestBody
EXEC @hr = sp_OADestroy @sbPath
EXEC @hr = sp_OADestroy @sbResponseBody
END
GO