1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| USE [ma_db]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[CreateGroup_onOBL]
@compId_grp INT,
@name_grp VARCHAR(50),
@h_specnumzone_grp INT,
@h_outprofilId_grp INT,
@h_fwdprofilId_grp INT
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from interfering with SELECT statements.
SET NOCOUNT ON;
-- variables locales
DECLARE
@Object INT,
@ResponseText VARCHAR(8000),
@url VARCHAR(3000)
-- construction de l'url d'ivocation du web service (en get)
SET @url = 'http://xxx.xxx.xxx.xxx:xxxx/.../ma_methode_web'
-- ajout des paramètres en get
SET @url = @url + '?compId_grp=' + cast(@compId_grp as varchar)
SET @url = @url + '&name_grp=' + @name_grp
SET @url = @url + '&h_specnumzone_grp=' + cast(@h_specnumzone_grp as varchar)
SET @url = @url + '&h_outprofilId_grp=' + cast(@h_outprofilId_grp as varchar)
SET @url = @url + '&h_fwdprofilId_grp=' + cast(@h_fwdprofilId_grp as varchar)
-- fin de construction de l'url
-- invocation des procédures stockées étendues
EXECUTE master..sp_OACreate 'MSXML2.XMLHTTP', @Object OUT;
EXECUTE master..sp_OAMethod @Object, 'open', NULL, 'get', @url, 'false'
EXECUTE master..sp_OAMethod @Object, 'send'
EXECUTE master..sp_OAMethod @Object, 'responseText', @ResponseText OUTPUT
SELECT @ResponseText AS ResponseText
EXECUTE master..sp_OADestroy @Object
END |
Partager