SQLERVER调用

本文针对利用sql server 2012调用Webservice的写法
我个人写了一个存储过程，用来获取微信企业号的Accss_Token

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