опять параметры TADOStoredProc / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / опять параметры TADOStoredProc

31 сообщений из 31, показаны все 2 страниц

все

опять параметры TADOStoredProc

#32120137

alex_j

Гость

Добрый день!
Ситуация следующая:
MsSql 6.5, COM+(Delphi7).
Есть работающее приложение, в котором есть определенный в дизайн-тайме компонент TADOStoredProc, с кучей входных параметров и двумя выходными.
Так все работает отлично:

Код: plaintext

1.
2.
3.
4.
5.

      ....
      ADOStoredProc1.ExecProc;
      ....
      FNumber := ADOStoredProc1.Parameters.ParamValues['@Number'];
      Fid := ADOStoredProc1.Parameters.ParamValues['@id'];

Требуется добавить еще один выходной параметр (все параметры строковые), после добавления которого начинают творится следующие чудеса:

Код: plaintext

1.
2.
3.
4.
5.
6.

      ....
      ADOStoredProc1.ExecProc;
      ....
      FNumber := ADOStoredProc1.Parameters.ParamValues['@Number']; //  1 
      Fid := ADOStoredProc1.Parameters.ParamValues['@id']; //  2 
      FEMail := Parameters.ParamValues['@EMail']; //  3

в строке 2 ADOStoredProc1 возвращает null (генерится ошибка),
в строке 3 ADOStoredProc1 возвращает значение параметра @Number(!)
в строке 1 возвращается абсолютно левое значение.
причем в query anilyzer все работает как надо - все параметры на своих местах..
пересоздание ADOStoredProc1 ничего не дает - глюк остается.
подскажите в чем тут может быть дело,
заранее спасибо!

...

Рейтинг:

0 / 0

14.03.2003, 13:52

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120139

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

А параметры в дезайн тайм задаешь или нет.

...

Рейтинг:

0 / 0

14.03.2003, 13:57

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120143

alex_j

Гость

параметры задаются в дизайн-тайме, а их значения в ран-тайме

...

Рейтинг:

0 / 0

14.03.2003, 13:59

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120147

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Профайлером вызов смотрел, все ли правильно уходит с клиента.

...

Рейтинг:

0 / 0

14.03.2003, 14:01

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120168

alex_j

Гость

да, в профайлере все верно, делал Ctrl-C Ctrl-V в query anilyzer - все ок

...

Рейтинг:

0 / 0

14.03.2003, 14:18

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120172

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Чудеса прям. Ну а в рантайм попробуй перед заданием параметрам значений сделать Refresh для коллекции параметров. И ничего у тебя там, ну где три точечки, больше не делается между ЕхесProc и чтением значений параметров.

...

Рейтинг:

0 / 0

14.03.2003, 14:22

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120181

alex_j

Гость

там где три точки я комментарил - глюки остаются, попробую Refresh

...

Рейтинг:

0 / 0

14.03.2003, 14:26

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120225

AVL

Участник

Откуда: МСК

Сообщения: 242

Рейтинг: 0 / 0

Код: plaintext

FEMail := Parameters.ParamValues['@EMail']; //  3

не указано ADOStoredProc1. Может здесь что-то зарыто?

...

Рейтинг:

0 / 0

14.03.2003, 15:00

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120260

alex_j

Гость

да нет :-), это я тут просто добавть забыл, у меня в коде
with ADOStoredProc1 do begin
то все внутри
end;

...

Рейтинг:

0 / 0

14.03.2003, 15:24

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120263

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Процедуру можешь показать?

...

Рейтинг:

0 / 0

14.03.2003, 15:26

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120266

AVL

Участник

Откуда: МСК

Сообщения: 242

Рейтинг: 0 / 0

как увеличивал количество параметров - руками? или обновил все данные по процедуре? (т.е. выбрал заново ее - параметры должны автоматом встать)

...

Рейтинг:

0 / 0

14.03.2003, 15:26

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120273

alex_j

Гость

так то она здоровая, в принципе могу только нужные места вырезать, но есть ли смысл - она точно работает, я в query anilyzer проверял.

...

Рейтинг:

0 / 0

14.03.2003, 15:30

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120277

alex_j

Гость

to AVL: обновлял автоматом, т.е. выбрал по новой процедуру;
также грохал ADOStoredProc1 и создавал заново для обновленной процедуры - все-равно глюки остаются.

...

Рейтинг:

0 / 0

14.03.2003, 15:32

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120278

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Може и зря я это спросил, но хоть как параметры объявлены покажи и где выходным значения присваиваешь.

...

Рейтинг:

0 / 0

14.03.2003, 15:32

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120282

AVL

Участник

Откуда: МСК

Сообщения: 242

Рейтинг: 0 / 0

можно по-пробывать АДОКомманд или АДОквери. Если не получится, то глюк, если получится - то какая-то путаница(не ту процедуру выбираешь, не на том сервере, не того оунера и т.д.)

...

Рейтинг:

0 / 0

14.03.2003, 15:36

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120287

_Александр_

Участник

Сообщения: 120

Рейтинг: 0 / 0

А если этот третий параметр убрать, что - опять все нормально?

...

Рейтинг:

0 / 0

14.03.2003, 15:42

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120289

alex_j

Гость

Код: plaintext

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.

CREATE PROCEDURE MyProc
....
@Number VarChar( 10 ) =null output,
....
@id Char( 8 ) = null output,
....
@EMail VarChar( 254 ) = null output,
....
AS
set nocount on
....

set @Number=''
set @id=''
set @EMail=''
....
 -- получаем следующий номер
 
update Parameters set @Number=Value, Value=case when CONVERT(int, Value)>= 999  then '1' else CONVERT(VarChar, CONVERT(int, Value)+ 1 ) end where Name='LastNumber'
....
 -- Здесь идут вызовы с другого сервака
 
    select @SQLcmd=@ServerName+'.'+@DataBaseName+'.dbo.MyProc2'
    exec @Ret=@SQLcmd
        ....
	@Number=@Number,
	....

    select @SQLcmd=@ServerName+'.'+@DataBaseName+'.dbo.MyProc3'
    exec @Ret=@SQLcmd @EMail output
    if @EMail is null
      set @EMail=''
....

...

Рейтинг:

0 / 0

14.03.2003, 15:42

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120291

alex_j

Гость

Блин, вот так:

Код: plaintext

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.

CREATE PROCEDURE MyProc
....
@Number VarChar( 10 ) =null output,
....
@id Char( 8 ) = null output,
....
@EMail VarChar( 254 ) = null output,
....
AS
set nocount on
....

set @Number=''
set @id=''
set @EMail=''
....
 -- получаем следующий номер
 
update Parameters set @Number=Value, Value=case when CONVERT(int, Value)>= 999  then '1' else CONVERT(VarChar, CONVERT(int, Value)+ 1 ) end where Name='LastNumber'
....
 -- Здесь идут вызовы с другого сервака
 
    select @SQLcmd=@ServerName+'.'+@DataBaseName+'.dbo.MyProc2'
    exec @Ret=@SQLcmd
        ....
	@id=@id output,
	....

    select @SQLcmd=@ServerName+'.'+@DataBaseName+'.dbo.MyProc3'
    exec @Ret=@SQLcmd @EMail output
    if @EMail is null
      set @EMail=''
....

...

Рейтинг:

0 / 0

14.03.2003, 15:44

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120294

_Александр_

Участник

Сообщения: 120

Рейтинг: 0 / 0

А что такое

@Number=@Number

...

Рейтинг:

0 / 0

14.03.2003, 15:46

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120298

alex_j

Гость

to _Александр_:
если его убрать только в дельфе, а в процедуре оставить - глюки продолжаются, а если убрать и из ХП - все работает ок

...

Рейтинг:

0 / 0

14.03.2003, 15:47

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120301

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Слушай, тут на форуме по SQL Server проскакивал топик про проблемы вызова ХП на линкед серверах. Может это каким-нибудь боком влияет.

...

Рейтинг:

0 / 0

14.03.2003, 15:48

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120303

alex_j

Гость

to _Александр_:
второй вариант процедуры правильный

...

Рейтинг:

0 / 0

14.03.2003, 15:48

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120308

alex_j

Гость

помоему проблема тут не в SQL Server, .. сам то запрос ведь нормально выполняется, тут что-то должно быть с TADOStoredProc не ладно, хотя про линкеды тоже посмотрю

...

Рейтинг:

0 / 0

14.03.2003, 15:52

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120315

alex_j

Гость

to _Александр_

Код: plaintext

1.
2.
3.
4.
5.
6.

    select @SQLcmd=@ServerName+'.'+@DataBaseName+'.dbo.MyProc2'
    exec @Ret=@SQLcmd
          ....
          @id=@id output,  -- часть списка параметров вызываемой процедуры
 
          ....

...

Рейтинг:

0 / 0

14.03.2003, 15:56

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120323

pkarklin

Участник

Откуда: Москва (Муром)

Сообщения: 78 075

Рейтинг: 0 / 0

Я не написал, что проблемы были именно привызове через TADOStoredProc. Но там явно вызывалась процедура с удаленного сервера, а у тебя внутри вызов. Может это к делу и не относиться. А в своей проге ты SETов ни каких не устанавливаешь. Бредовая конечно мысль, но просто мыслей больше нет.

...

Рейтинг:

0 / 0

14.03.2003, 16:00

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120329

AVL

Участник

Откуда: МСК

Сообщения: 242

Рейтинг: 0 / 0

re: можно по-пробывать АДОКомманд или АДОквери

...

Рейтинг:

0 / 0

14.03.2003, 16:02

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120340

_Александр_

Участник

Сообщения: 120

Рейтинг: 0 / 0

TADOStoredProc, с кучей входных параметров и двумя выходными

Может там копать. Сравни свойства этого третьего параметра с двумя
первыми в части типов данных и т.п..

...

Рейтинг:

0 / 0

14.03.2003, 16:09

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120653

Cat2

Участник

Откуда: Petroskoi, Karjala

Сообщения: 150 783

Рейтинг: 0 / 0

Мне непонятно, эти три параметра возвращаются дополнительно к возвращаемому датасету или они одни только и нужны?

Если нужны только они, то возвращайте данные через select.
Т.е. в конце процедуры должно стоять
select @Number,@id,@EMail

Так же рекомендуется (Борландом) НЕ ПОЛЬЗОВАТЬСЯ никакими компонентами, кроме ADOCommand и ADODataset.
В Вашем случае, используйте TADOCommand c CommandType=cmdStoredProc.
==========
Я не первый раз вижу вопрос с проблемами с выходными параметрами. Плюньте Вы на них. ВСЕГДА возврашайте select'ом.

...

Рейтинг:

0 / 0

15.03.2003, 15:47

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32120706

SGrigori

Гость

Попробуй удалить все параметры в дизайнере и создать их заново. Возможно Delphi помнит количество или очередность параметров. Если совсем ничего не получится, очисти элемент и пересоздай все заново. ( Для этого элемента )

...

Рейтинг:

0 / 0

15.03.2003, 23:08

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32121669

alex_j

Гость

всем огромное спасибо, заработал следующий вариант:
отказ от выходных параметров в ADOStoredProc1 и получение их через select @Number, @id, @EMail.
ADOStoredProc1.Refresh ничего не дает, глюк остается.

...

Рейтинг:

0 / 0

18.03.2003, 08:37

| Ответить | Цитировать | Написать

опять параметры TADOStoredProc

#32121670

alex_j

Гость

to Cat2:
только они и нужны

...

Рейтинг:

0 / 0

18.03.2003, 08:38

| Ответить | Цитировать | Написать

31 сообщений из 31, показаны все 2 страниц

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / опять параметры TADOStoredProc

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=58&tid=2118894]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	51ms
get topic data:	9ms
get forum data:	2ms
get page messages:	65ms
get tp. blocked users:	1ms
others:	329ms

total:	485ms