为什么我的外部存储过程每次只能响应一次!?
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
ALTERtrigger dbo.delete_flight on dbo.AODB_FLIGHT_Information_Today
after DELETE
as
DECLARE @OBJECTINT
DECLARE @HRINT
DECLARE @minfo varchar(256)
DECLARE @URNO NUMERIC(10,0)
DECLARE FLT_CURSOR_D SCROLL CURSOR
FOR SELECT URNO FROM DELETED
FOR READ ONLY
EXEC @HR = sp_OACreate 'RscAgent.RscAgentCom', @OBJECT OUT
select @minfo=''
OPENFLT_CURSOR_D
FETCHNEXT FROM FLT_CURSOR_D INTO @URNO
IF @HR = 0
BEGIN
WHILE@@FETCH_STATUS-1
BEGIN
IF @@FETCH_STATUS-2
BEGIN
select @minfo =@minfo + ''
select @minfo =@minfo +
''
END
FETCH NEXT FROM FLT_CURSOR_D INTO @URNO
END
select @minfo = '' + @minfo + ''
EXEC sp_OAMethod @object, 'SendSmallMsg', NULL , 'FLIGHT' , @minfo
END
CLOSEFLT_CURSOR_D
DEALLOCATE FLT_CURSOR_D
IF @HR = 0
EXEC @HR = sp_OADestroy @OBJECT
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
|
