Executar WEB Service via procedure

Vamos ao exemplo, primeiramente é necessário habilitar a utilização de alguns recursos, conforme o exemplo abaixo:

SP_CONFIGURE 'SHOW ADVANCED OPTIONS', 1
GO
RECONFIGURE;
GO
SP_CONFIGURE 'OLE AUTOMATION PROCEDURES', 1
GO
RECONFIGURE;
GO

Agora vamos a procedure que chama o WEB Service, ela é bem simples e foi baseada no exemplo do CODE PROJECT.

Foi utilizado um WEB Service que não fosse necessário autenticação com usuário e senha, o WEB Service via cep, onde é enviado um CEP e é retornado algumas informações referente a esse CEP.

CREATE PROCEDURE P_CALLWS @V_PARAM VARCHAR(20) = NULL
AS
   
DECLARE @V_OBJ INT;
DECLARE @V_URL VARCHAR(200);
DECLARE @V_RESPONSE VARCHAR(8000);
 
SET @V_URL = 'https://viacep.com.br/ws/' + @V_PARAM +  '/json/'
EXEC SP_OACREATE 'MSXML2.ServerXMLHttp', @V_OBJ out
EXEC SP_OAMETHOD @V_OBJ, 'OPEN', NULL, 'GET', @V_URL, FALSE
EXEC SP_OAMETHOD @V_OBJ, 'SEND'
exec SP_OAGETPROPERTY @V_OBJ, 'responseText', @V_RESPONSE out
 
SELECT @V_RESPONSE RESULT
 
EXEC SP_OADESTROY @V_OBJ
 
RETURN

Feito isso, vamos executar a procedure para vermos o retorno do WEB Service.

EXEC P_CALLWS '17501441'

O resultado deve ser igual a imagem abaixo caso tenha passado o mesmo CEP como parâmetro.