Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.11;
Скачать: CL | DM;

Вниз

Получаю одно и то же...   Найти похожие ветки 

 
kondryuk   (2004-06-15 17:34) [0]

Поставил на форму AdoQuery.
Записал в свойство SQL:

DECLARE @Code TVarCode,@@num TVarCode exec dbo.sc_DocManagerInfo;6
@DayDate  = 38151,
@OrgDate  = 38151,
@ActionId = 301,
            @Mode = 2,
            @Code = @@num OUT


Поставил active в true и получил "1_1"

Запускаю то же в Query Analyzer - получаю "1_8"

Причём точно знаю, что Делфи показывает мне не то значение.

Короче у меня, как я понял, не обновляются значения, а почему?


 
bushmen ©   (2004-06-15 17:38) [1]

Лучше не путай себя. Используй компонент TADOStoredProc. А TQuery оставь для select, update, insert, delete :))


 
kondryuk   (2004-06-15 17:45) [2]

Ну ладно... пишу:
form1.ADOStoredProc1.Parameters.Refresh;
form1.ADOStoredProc1.Parameters.Items[1].Value:=data;
form1.ADOStoredProc1.Parameters.Items[2].Value:=data;
form1.ADOStoredProc1.Parameters.Items[3].Value:=ActionId;
form1.ADOStoredProc1.Parameters.Items[4].Value:=2;
form1.ADOStoredProc1.Active:=true;


И в
ADOStoredProc1.Parameters.ParamByName("@code").Value

всё равно получаю "1_1"


 
bushmen ©   (2004-06-15 17:46) [3]

А саму процедуру можно увидеть?


 
kondryuk   (2004-06-15 17:53) [4]

CREATE PROC dbo.sc_DocManagerInfo;6
@DayDate int = 0 ,
@OrgDate int = 0 ,
@ActionId int = 0 ,
@Mode  int = 2 ,
@Code  TVarCode= "" OUT
AS
SET NOCOUNT  ON
SET ROWCOUNT 0

DECLARE @Issue  int ,
@UserId  int

EXEC @Issue = dbo.sc_GetUserId
@UserId = @UserId OUT ,
@Mode = 1

IF @Issue <> 1
RETURN 0

SELECT @DayDate  = ISNULL(@DayDate ,0) ,
@OrgDate = ISNULL(@OrgDate ,0) ,
@ActionId = ISNULL(@ActionId ,0)

IF @Mode & 2 > 0
SELECT @ActionId = 0,
 @OrgDate = 0

SELECT @Code  =
 ltrim( str( @UserId )) +"_"+
 ltrim( str(( SELECT 1 + COUNT(*)
  From Bills  (NOLOCK)
  WHERE CreatorId = @UserId
  AND DayDate  = @DayDate
  AND ( OrgDate  = @OrgDate
   OR @OrgDate = 0
   )
  AND ( ActionId = @ActionId
   OR @ActionId = 0
   )
 )))

IF @Mode & 1 = 0
SELECT @Code as Code

RETURN 1

GO


 
kondryuk   (2004-06-15 18:09) [5]

Всё...
Проблема решена...
Вина - моя невнимательность...
Прошу прощения, что отвлёк от дел.



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

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

Наверх




Память: 0.47 MB
Время: 0.055 c
6-1084457382
perec
2004-05-13 18:09
2004.07.11
Посылка потоков через сокеты.


14-1088140135
X9
2004-06-25 09:08
2004.07.11
ActiveX в Delphi


14-1087761409
Yegorchic
2004-06-20 23:56
2004.07.11
Принтер и цвет...


6-1084736475
_man
2004-05-16 23:41
2004.07.11
WOL


3-1085541840
drew
2004-05-26 07:24
2004.07.11
Работа непостредственно с SQL-server ом