DECLARE @temp table (RowNum
int, DATA NVARCHAR(max))
DECLARE @url VARCHAR(MAX),
@win INT,
@hr INT,
@Text VARCHAR(8000),
@RowID int,
@Status smallint,
@Accuracy tinyint
Set @url = 'http://www.jsonprovider.com/api/json/2020'
EXEC @hr = sp_OACreate 'WinHttp.WinHttpRequest.5.1', @win OUT
IF @hr <> 0 EXEC
sp_OAGetErrorInfo @win
EXEC @hr = sp_OAMethod @win, 'Open', NULL, 'GET', @url, 'false'
IF @hr <> 0 EXEC
sp_OAGetErrorInfo @win
EXEC @hr = sp_OAMethod @win, 'Send'
IF @hr <> 0 EXEC
sp_OAGetErrorInfo @win
EXEC @hr = sp_OAGetProperty
@win, 'ResponseText', @Text OUT
IF @hr <> 0 EXEC sp_OAGetErrorInfo
@win
EXEC @hr = sp_OADestroy @win
IF @hr <> 0 EXEC
sp_OAGetErrorInfo @win
select @Text --<<
Result
No comments:
Post a Comment