SQL Server调用WebService示例

以获取企业微信的AccessToken为例：

IF EXISTS(
             SELECT 1
             FROM sysobjects
             WHERE name = 'sP_GetWX_Access_Token' AND type = 'u'
         )
    DROP PROC sP_GetWX_Access_Token
GO

CREATE PROC sP_GetWX_Access_Token(
    @RetVal VARCHAR(8000)=0 OUTPUT
)
AS
BEGIN
    DECLARE @ServiceUrl AS VARCHAR(1000)
    DECLARE @UrlAddress VARCHAR(500)
    
    --WebService地址：以http开头，结尾带斜杠
    SET @UrlAddress = 'https://qyapi.weixin.qq.com/cgi-bin/'
    --https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}
    DECLARE @FunName VARCHAR(50)
    --WebService中调用的方法名：例如'getcheckindata'
    SET @FunName = 'gettoken'
    
    
    --https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token=
    
    --以下参数对应WebService中参数的[参数名]
    DECLARE @P1 VARCHAR(800),@P2 VARCHAR(100)
    DECLARE @P1_Value VARCHAR(100),@P2_Value VARCHAR(100),@P3_Value VARCHAR(100),@P4_Value VARCHAR(100)
    
    
    SET @P1 = 'corpid'
    SET @P2 = 'corpsecret'
    
    SET @P1_Value = 'xxxxx'
    SET @P2_Value = 'xxxxx'
    
    SET @ServiceUrl = @UrlAddress + @FunName + '?' + @P1 + '=' + @P1_Value + '&' + @P2 + '=' + @P2_Value
    --Select @ServiceUrl              
    DECLARE @Object INT
    --Declare @ResponseText Varchar(8000)
    
    --创建 OLE 对象的实例。
    --sp_OACreate { progid | clsid } , objecttoken OUTPUT [ , context ] 
    --返回的对象令牌，并且必须是数据类型为 int 的局部变量。 该对象令牌用于标识所创建的 OLE 对象，并用于调用其他 OLE 自动化存储过程。
    EXEC sp_OACreate 'MSXML2.XMLHTTP', @Object OUT;
    --sp_OAMethod   调用一个 OLE 对象的方法。
    EXEC sp_OAMethod @Object, 'open', NULL, 'Post', @ServiceUrl, 'false'
    EXEC sp_OAMethod @Object, 'send'
    EXEC sp_OAMethod @Object, 'responseText', @RetVal OUTPUT
    
    SELECT @RetVal
    EXEC sp_OADestroy @Object --破坏已创建的 OLE 对象。--如果未调用 sp_OADestroy，则在批处理结束时将自动破坏已创建的 OLE 对象。当不再需要对象时，调用 sp_OADestroy 释放使用 sp_OACreate 创建的对象实例。
    RETURN
END

GO