Как после вызова ХП обратиться к набору данных?

← →
garry79 © (2004-02-07 12:18) [0]

Приветствую всех мастеров! Вот такой вопрос у меня возник - хранимая процедура возвращает нужное мне значение (в соответствующем параметре), все нормально когда значение единственное по запросу, а если возвращает несколько, то ошибка.
Я конечно сделал обработчик искл. ситуаций, но хотелось бы получать набор, и считывать первую запись, а если записей несколько, то выдавать сообщение. Вот код, который у меня сейчас:
with Base1.Proc do begin Base1.Proc.StoredProcName := "Get_Tick_Type"; Prepare; ParamByName("TTP_Date").Value:= TickDate; ParamByName("TTP_Season_Num").Value:= Combo_Season.value; ParamByName("TTP_Reis_Name").Value:= Label_Ticket_Reis_Name.value; try execProc; except ShowMessage("На данную дату приходится несколько периодов!"); end; if not ParamByName("TTP_Type").isNull then Result:= ParamByName("TTP_Type").asInteger; end;
а вот так вот у меня не получилось:
Open; First; if RecordCount>1 then ShowMessage("На данную дату приходится несколько периодов!");

← →
Digitman © (2004-02-07 12:37) [1]

Open;
Last; //!!!!
if RecordCount>1 then
ShowMessage("На данную дату приходится несколько периодов!");

← →
garry79 © (2004-02-08 10:26) [2]

Да чото не получается, на методе Open ругается -
"Error cursor handle", только execProc берет

← →
KA_ © (2004-02-08 10:36) [3]

Попробуй вместо компонента StoredProc использовать обычный запрос типа
SELECT * FROM GET_TICK_TYPE(:PARAM1, :PARAM2, PARAM3)
А дальше как Digitman сказал.

← →
garry79 © (2004-02-10 19:57) [4]

Нифига не получается, такой запрос почему-то не выдает ни одной записи, хотя ошибки тоже не выдает? Это в смысле не только в Дельфях, но и если реальный запрос в SQL Explorer"e прогнать, то то же самое. Может с форматом даты чото, хотя Дельфи TDateTime к Value должна автоматически привести, а в Эксплорере дату передавал как "17/02/2003" например, так же можно вроде...

ParamByName("TTP_Date").AsDateTime:= DateTimeVariable;
а в Эксплорере дату передавал как "17.02.2003" (скорее всего...)

А что текст ХП секрет?
И вместо
ParamByName("").Value:=
писАть
ParamByName("").AsInteger AsString AsDate и т.д.

Как после вызова ХП обратиться к набору данных? Найти похожие ветки