Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

выполнение запросов? [D7]

stud © (2004-03-29 18:24:00)
выполняю запрос в ибэксперте в редакторе - все работает.
выполняю этот же запрос из процедуры - пустой набор.

stud (2004-03-29 18:51:00) [1]
спасибо разобрался

stud (2004-03-29 18:51:00) [2]
нет только один.)))

Johnmen (2004-03-29 18:50:00) [3]
>stud © (29.03.04 18:41) [7]

Все селекты в цикле - полноценные претенденты на multiple row in singleton select.

stud (2004-03-29 18:41:00) [4]
вся процедура такая

begin
t_id=0;
for select uslugi.id,uslugi.data_usl,uslugi.kod_usl,uslugi.stoim from uslugi
where (uslugi.plat=:kp) and (uslugi.data_usl between :d1 and :d2)
into :ID_,:DATUSL,:T_KODU,:CENA
do
begin
select uslugi_spr.naim from uslugi_spr where uslugi_spr.kod=:T_KODU into :USLUGA;
if (t_id<>id_) then
select obr_usl.id,obr_usl.data_obr from obr_usl where obr_usl.r_nom=:id_ into :T_OBR,:DATAOBR;
if (t_id<>id_) then
select pacient.id,pacient.family||' '||pacient.name||' '||pacient.otch,pacient.data_r from pacient
where pacient.id=:T_OBR
into :KODPAC,:FIOPAC,:PACDATAR;
if (t_id<>id_) then
select polis.nom,polis.end_dat from polis where polis.kod_pac=:KODPAC and polis.kod_plat=:KP
into :POLNOM,:POLEND;
suspend;
t_id=id_;
end
end

Desdechado (2004-03-29 18:37:00) [5]
1. не вижу процедуры
2. multiple rows при for select невозможны (если подзапросов внутри нет)

Johnmen (2004-03-29 18:35:00) [6]
>возвращает пустой набор

Как это видно ?

>выдает ошибку : multiple row in singleton select

Ты продолжаешь утаивать исходную инфу...
:)

stud (2004-03-29 18:30:00) [7]
for select uslugi.id,uslugi.data_usl,uslugi.kod_usl,uslugi.stoim from uslugi
where (uslugi.plat=:kp) and (uslugi.data_usl between :d1 and :d2)
into :ID_,:DATUSL,:T_KODU,:CENA do suspend
возвращает пустой набор

select uslugi.id,uslugi.data_usl,uslugi.kod_usl,uslugi.stoim from uslugi
where (uslugi.plat=:kp) and (uslugi.data_usl between :d1 and :d2)
этот запрос в редакторе возвращает "нормальный" набор

при выполнении этой же процедуры из приложения выдается набор, но при некоторых значениях kp выдает ошибку :
multiple row in singleton select
kp - это уникальный ключ для выбора плательщика.
что это может быть???

stud (2004-03-29 18:30:00) [8]

> Johnmen © (29.03.04 18:27) [2]

не исключено))
хотя до сих пор работало

Johnmen (2004-03-29 18:27:00) [9]
Точка с запятой пропущена в 17 строке...

Desdechado (2004-03-29 18:25:00) [10]
в чем вопрос?
где текст запроса и процедуры?

Наверх

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