从存储过程结果API处理JSON

大卫·丹

我有一个存储过程,该存储过程发布一个API请求,并返回一个包含信息的JSON。

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[Ip_Api_Location]
    @IP varchar(max) 
AS
BEGIN
    DECLARE @Objet AS Int
    DECLARE @Reponse as Varchar(8000)
    DECLARE @url VARCHAR(3000)
    DECLARE @Parametres VARCHAR(3000)
    DECLARE @Erreur int
    DECLARE @MessageErreur varchar(255)
    DECLARE @MessageErreurAvecNumero varchar(255)
    DECLARE @Statut int

    SET @url = 'http://ip-api.com/json/'+@IP
    --SET @Parametres = 
  
    exec @Erreur = sp_OACreate 'MSXML2.ServerXMLHttp', @Objet OUT;

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OACreate MSXML2.ServerXMLHttp.3.0 failed' 
        goto fin 
    end

    exec @Erreur = sp_OAMethod @Objet, 'open', NULL, 'POST', @url, false

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OAMethod Open failed' 
        goto fin 
    end

    exec @Erreur = sp_OAMethod @Objet, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded'

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OAMethod setRequestHeader failed' 
        goto fin 
    end

    exec @Erreur = sp_OAMethod @Objet, 'send', NULL, @Parametres

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OAMethod Send failed' 
        goto fin 
    end

    exec @Erreur = sp_OAGetProperty @Objet, 'status', @Statut OUT

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OAGetProperty read status failed' 
        goto fin 
    end

    exec @Erreur = sp_OAMethod @Objet, 'responseText', @Reponse OUTPUT

    if @Erreur <> 0 
    begin 
        set @MessageErreur = 'sp_OAMethod read response failed' 
        goto fin 
    end

   select Responce = @Reponse

   exec sp_OADestroy @Objet
   return

fin:
    print @MessageErreur
    exec sp_OADestroy @Objet

    set @MessageErreurAvecNumero = 'Erreur : ' + cast(@Erreur as varchar) + ' - ' + @MessageErreur
    Raiserror(@MessageErreurAvecNumero, 16, 1)

    return
END

还有我不知道如何编写它的简单SQL脚本,以便从JSON结果中获取信息。

BEGIN
DECLARE @json  varchar(MAX)
EXEC @json= Ip_Api_Location '60.8.216.98'Select @json   ---this  print the json
--{"status":"success","country":"China","countryCode":"CN"} 
Select @json --this print "0"
END

因此,我无法将exec设置为变量并处理JSON。我尝试解析JSON,但未成功。

有什么帮助吗?

提前致谢。

迈洛特团队

发生的情况是,您的@json变量已设置为指示失败成功的返回状态。

最简单的方法是在存储过程中使用OUTPUT参数。

@Reponse存储过程变量的声明作为参数移动,并添加OUTPUT,使用JSON数据使用NVARCHAR(MAX):

ALTER PROCEDURE [dbo].[Ip_Api_Location]
    @IP varchar(max)
    ,@Response nvarchar(MAX) OUTPUT

然后,当您使用OUTPUT参数调用时:

BEGIN
    DECLARE @json VARCHAR(MAX);

    EXEC [Ip_Api_Location] '60.8.216.98', @Response = @json OUTPUT;

    SELECT @json;
END;

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章