Текущий архив: 2003.09.11;
Скачать: CL | DM;

Вниз

Delphi не реагирует на RAISERROR   Найти похожие ветки 

← →
testthewest   (2003-08-20 12:45) [0]

Вот процедурка для перемещения в дереве ветки на другую ветку. Почему-то Дельфя упорно не реагирует на последний RAISERROR. Причем на RAISERROR-test-1 - реагирует, a на RAISERROR-test-2 - НЕ реагирует. При запуске процедуры из Query Analyzer или Enterprize Manager все RAISERROR отрабытаваются правильно.
В чем может быть дело?


mssql2000

CREATE PROCEDURE dbo.SMK_MOVETREENODE @ItemID int, @ItemParentID int, @NewItemParentID int
AS

DECLARE @rc int, @er int
BEGIN TRAN
--RAISERROR ("TEST-1",16,1)
UPDATE SMK_TREELINKS
SET TR_ParentID=@NewItemParentID
WHERE (TR_ParentID=@ItemParentID) AND (TR_ChildID=@ItemID)
SET @rc= @@ROWCOUNT

DECLARE @s varchar(500)
SET @s=dbo.GetNodeAllSubChilds(@ItemID)
SET @er=CHARINDEX("Error",@s)
SET @s="ОШИБКА в SMK_MOVETREENODE: "

IF @rc<>1 SET @s=@s+" Обновлено строк<>1 "
IF @er<>0 SET @s=@s+" NestLevel>30 "

--RAISERROR ("TEST-2",16,1)

IF (@rc<>1) or (@er<>0)
BEGIN
ROLLBACK TRAN
RAISERROR(@s,16,1)
RETURN
END
COMMIT TRAN
GO

---

← →
testthewest   (2003-08-20 14:51) [1]

http://www.sql.ru/forum/actualthread.aspx?bid=1&tid=45140

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.11;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.009 c