Sql調用WebService

DECLARE @scid int,@rt int
DECLARE @result nvarchar(4000)

--創建MSSOAP.SoapClient組件(如果安裝的是SoapToolkit30，應該是MSSOAP.SoapClient30，否則是MSSOAP.SoapClient)，存儲到@object中
EXEC @rt=sp_OACreate 'MSSOAP.SoapClient30',@scid out

--'http://webservice.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl'為webservice地址
--‘qqOnlineWebService’為webservice名稱
EXEC @rt = sp_OAMethod @scid, 'mssoapinit',null,'http://webservice.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl','qqOnlineWebService'

--'qqCheckOnline'為webservice的一個方法，后面跟2個參數（輸入參數：QQ號碼 String，默認QQ號碼：8698053。返回數據：String，Y = 在線；N = 離線；E = QQ號碼錯誤；A = 商業用戶驗證失敗；V = 免費用戶超過數量）
EXEC @rt = sp_OAMethod @scid, 'qqCheckOnline', @result OUT,N'8698053'

IF @rt <> 0
BEGIN
   EXEC sp_OAGetErrorInfo @scid   
END
ELSE
BEGIN
   select @result
END
--釋放掉@scid
EXEC @rt = sp_OADestroy @scid
GO