Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

output значения хп [D6, MSSQL]


Инна ©   (2003-05-23 15:16:00) 

как отловить на клиенте? использую if ADOCommand1.Parameters.ParamByName("@b").Value>0 не работает...


Инна   (2003-05-25 01:08:00) [1]

почему-то со ADOStoredProc заработало. почему не работало с ADOCommand - не понимаю. все спасибо за помошь!!


Инна   (2003-05-24 17:25:00) [2]

пытаюсь с ADOCommand1.Parameters[0].Value - выдает ошибку Invalid Variant Operator. с return_value - пишет тоже самое!!! причем, все ж записывается в базу!!! пыталась через _RecordSet. как в книжке далала, пишет, что пока объект не открыт, ничего сделать нельзя!!! да е-мое! ребят, я уже замучилась, простейшая вешь не пашет! при ведите, плз, саои коды. а-а-а, у меня на ADOConnection CursorLocation - Server. что еще можно сравнить?
и еще у меня куда-то подевались все иконки DATAsetов и пр сами есть, а иконок больше нет. только некоторые остались. :) как их увидеть-то??? HELP!!! не могу больше...


fool   (2003-05-23 18:05:00) [3]

я обычно для контроля пользую примерно такую конструкцию:
CREATE PROCEDURE [MyDataBase].[Del_Zakaz]
@ZakazID INT = null
AS
if @ZakazID is null Return(1)--если вернет 1, то знаю что параметр @ZakazID не указан
else if (select count(*) from Zakaz where Zakaz_ID=@ZakazID) = 0
Return(2)--в этом случае знаю что таких записей нет
else delete from Zakaz where Zakaz_ID=@ZakazID
GO

попробуй применить схожую конструкцию, в таком случае Parameters[0] будет иметь Direction = pdReturnValue, Name = RETURN_VALUE его и будешь смотреть для выявления проблем


Zz_   (2003-05-23 17:51:00) [4]

Ага


Инна   (2003-05-23 17:42:00) [5]

хп на MSSQL:
CREATE PROCEDURE inssl;1
@group int, @dis int, @prepod int, @color int, @time int, @a int output, @b int output
AS
begin tran
set @a=0
set @b=0
if not exists(select * from ras
where itime = @time
and (code_of_dis is null or code_of_group=@group))
insert into ras (code_of_group, code_of_dis, code_of_prepod, itime, color)
values (@group, @dis, @prepod, @time, @color)
else
set @a=1
if not exists(select * from new
where (itime = @time
and (code is null))
or (code_of_prepod=@prepod and itime=@time))
insert into new (code_of_prepod, itime,code) values (@prepod, @time, @color)
else set @b=1
if @a=0 and @b=0 commit tran
else rollback tran

GO

хотела вот значения a и b обрабатывать,чтоб правильные сообщения выдаваьть...

Zz, "@I_Value" - Это имя параметра?


Zz_   (2003-05-23 17:02:00) [6]

Я использую

Parameters.ParamValues["@I_VALUE"] := 123;

и аналогично

nV := Parameters.ParamValues["@O_VALUE"];


fool   (2003-05-23 17:02:00) [7]

у ADOCommand1 CommandType=cmdStoredProc?
попробуй ADOCommand1.Parameters[0].Value может по номерам заработает
а сама ХП как выглядит?


Инна   (2003-05-23 16:48:00) [8]

она не передает значения парамтеров на сервер.
код
/ ADOCommand1.Parameters.ParamByName("@group").Value := ras_gr;
ADOCommand1.Parameters.ParamByName("@group").Value:=198;
//ADOCommand1.Parameters.ParamByName("@dis").Value:= buf_code_disc;
ADOCommand1.Parameters.ParamByName("@dis").Value:=1;
//ADOCommand1.Parameters.ParamByName("@prepod").Value:= buf_code_of_prepod;
ADOCommand1.Parameters.ParamByName("@prepod").Value:=25;
//ADOCommand1.Parameters.ParamByName("@time").Value:= ras_time;
ADOCommand1.Parameters.ParamByName("@time").Value:=18;
//ADOCommand1.Parameters.ParamByName("@color").Value:= vcolor;
ADOCommand1.Parameters.ParamByName("@color").Value:=2;
if not ADOCommand1.Prepared then ADOCommand1.Prepared;
ADOCommandins.Execute;

почему параметры не передаются?


Инна   (2003-05-23 16:08:00) [9]

черт, похоже, хп не работает... вернее странно работает. вставляет записи, но поля остаются пустыми. хотя параметры определены.хотя через аналайзер работает.


fool   (2003-05-23 15:49:00) [10]

Что значит не работает?


Наверх

Титульная страница Поиск, карта сайта Написать письмо