Проблемы с выполнением ХП в Delphi 2009

[MargoNik]

Здравствуйте,
у меня возникла проблема с выполнением хранимой процедуры(MS SQL Server 2005) в Delphi 2009.
Подключаюсь к ХП через ADOCommand, прописываю параметры, после запуска программы во временной таблице SQL результат появляется, но ХП процедура отрабатывает не до конца. ХП должна показать состав изделия. Например, у конкретного изделия 511 составляющих, в таблице же появляется 14 составляющих. При каждом следующем запуске программы появляются ещё 14 и так далее. Попросила проверить работу процедуры в Visual Basic 6 - все работает отлично, в Visual Basic 2008 - при каждом запуске программы появляется по 11 изделий, в Delphi 7 тоже всё работает правильно. У меня Delphi 2009. Важно делать именно в 2009 Delphi. В чем может быть проблема, может кто-нибудь уже сталкивался?

[MargoNik]

Ребята, ну может у кого-нибудь есть предположения почему так происходит? очень нужна помощь.

[soleil@mmc]

а без ХП из вашей базы не получится селектом выбрать что-нить подходящее?
раз ваша ХП недоступна для разбора, то сложно чем-то помочь

единственное что стоит проверить - это запустить вашу ХП из-под какого-нибудь GUI - да хоть из SQLExplorer-а (ну или что у вас там доступно) и проверить - появится ли такой косяк при таком доступе?
если косяка нет, то копать настройки адо-шных компонентов или пробовать через тот же 2009-й дельфи получить данные из ХП через другие компоненты (опять таки в целях понять - это косит ХП или все-таки АДО)

[MargoNik]

Сообщение от soleil@mmc

а без ХП из вашей базы не получится селектом выбрать что-нить подходящее?

После долгих попыток запустить ХП, решила попробовать извлечь нужную информацию сама, но возникли проблемы с запросом.

Пишу запрос:

ADOQuery1.Close;
ADOQuery1.SQL.CLEAR;
ADOQuery1.SQL.ADD('SELECT КБД1.Что,КБД1.Куда,КБД1.Кол_во,SPRAV1.Пр_техн3 INTO Разузл FROM SPRAV1 INNER JOIN КБД1 ON SPRAV1.Decim=КБД1.Что WHERE (([Что]<>[Куда]) AND КБД1.Куда="'+Trim(DBLookupComboBox1.Text+'")'));
ADOQuery1.ExecSQL;

С помощью этого запроса в таблицу Разузл попадают составляющие конкретного изделие, но только из первого подъуровня
(т.е. изделие состоит из деталей, которые в свою очередь тоже состоят из каких-нибудь деталей).
Теперь чтобы получить составляющие деталей, попавших в таблицу Разузл пишу следущий запрос:

ADOQuery1.Close;
ADOQuery1.SQL.CLEAR;
ADOQuery1.SQL.ADD('SELECT КБД1.Что,КБД1.Куда,КБД1.Кол_во,SPRAV1.Пр_техн3 INTO Разузл1 FROM SPRAV1 INNER JOIN КБД1 ON SPRAV1.Decim=КБД1.Что WHERE (([Что]<>[Куда]) AND КБД1.Куда=Разузл.Что)');
ADOQuery1.ExecSQL;

Выдает ошибку: Параметр Разузл.Что не имеет значения по умолчанию.
Пробовала использовать вложенный подзапрос,т.е. вместо Разузл.Что писала:

(SELECT Что From Разузл)

Выдает ошибку: Данный подчинённый запрос должен возвращать не более одной записи.

Помоги, пожалуйста, справиться с этим запросом.

[edgy]

Попробуйте так:

SELECT КБД1.Что,
           КБД1.Куда,
           КБД1.Кол_во,
           SPRAV1.Пр_техн3
   INTO Разузл1
  FROM SPRAV1 INNER JOIN
          КБД1 ON SPRAV1.Decim=КБД1.Что
WHERE (([Что]<>[Куда])
    AND КБД1.Куда in 
              (SELECT Что 
                   From Разузл)

[MargoNik]

Спасибо вам, всё заработало. Вы просто спаситель, очень помогли мне!

Ещё хочу озадачить вас одним вопросом: а как реализовать цикл, что если значение Что из таблицы Разузл равно значению Куда из КБД1, то ещё раз делать выборку и записывать новые значения в таблицу Разузл. Другими словами делать проверку на наличие ещё подъуровней и если надо разузловывать их?

[edgy]

Сообщение от MargoNik

Другими словами делать проверку на наличие ещё подъуровней и если надо разузловывать их?

Т.е. по сути вам нужно получить все составляющие одного изделия ( или какой-либо части изделия ) ?

Не зная структуры вашей таблицы и как хранятся данные, а также основываясь исключительно на предположениях - приведу следующее решение:

-- Создадим для тестов временную таблицу - наверное, что-то типа вашей "КБД1"
create table #Item          
   ( parent numeric ( 9 ),  --  изделия
     child numeric ( 9 )    --  составляющие
   )

-- тестовые данные
insert into #Item values(1,2)
insert into #Item values(1,3)
insert into #Item values(1,4)
insert into #Item values(2,5)
insert into #Item values(2,6)
insert into #Item values(3,8)
insert into #Item values(8,9)
insert into #Item values(8,10)
insert into #Item values(4,7)
insert into #Item values(7,11)
insert into #Item values(11,12)
insert into #Item values(11,13)


declare @parent_element numeric ( 9 ), -- элемент, с которого начинаем поиск подузлов
        @level numeric ( 5 )           -- уровень вложенности

set @parent_element = 3    -- это значение передается с клиента
set @level = 0       


-- Создадим вспомогательную временную таблицу
create table #temp 
     ( parent numeric ( 9 ) null,
       child numeric ( 9 ) null,
       level numeric ( 5 )
     )


insert into #temp
select *, @level
  from #Item
 where parent = @parent_element

while @@rowcount > 0
begin

set @level = @level + 1

insert into #temp
select t.child,
       coalesce( t.parent, w.parent),
       @level
  from #temp w left join
       #Item t on w.parent = t.parent
 where w.level = @level - 1
   and w.parent is not null

end

select distinct child
  from #temp

drop table #Item
drop table #temp

Если я правильно вас понял, и это то, что нужно, то преобразуйте этот код относительно вашей структуры и оформите в виде хранимой процедуры. В процедуру передавайте параметр @parent_element - id изделия, для которого нужно найти все составляющие.

[MargoNik]

engy, спасибо вам, хороший пример, вы всё правильно поняли.
А я вот все думаю, нельзя ли как-нибудь в цикле делать что-то наподобии изначального запроса, т.е. обойтись без создания хранимой процедуры?

[edgy]

MargoNik, а чем вас смущают хранимые процедуры?

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

[MargoNik]

Была в кратковременном отпуске, временно забыв о всех рабочих проблемах

Сообщение от edgy

а чем вас смущают хранимые процедуры?

Честно говоря, никогда их сама не создавала..
Извините меня, я наверно уже достала вас своими вопросами, но так уж получается..
Пишу вроде простой цикл для того, чтобы получить состав всех изделий из Form2.ADOQuery1, но получаю лишь состав первого изделия(т.е. значения первой записи из ADOQuery)
<CODE>
repeat
Form3.ADOQuery1.Close;
Form3.ADOQuery1.SQL.CLEAR;
Form3.ADOQuery1.SQL.ADD('SELECT КБД1.Что,КБД1.Куда,КБД1.Кол_во,SPRA V1.Пр_техн3 FROM SPRAV1 INNER JOIN КБД1 ON SPRAV1.Decim=КБД1.Что WHERE (([Что]<>[Куда]) AND КБД1.Куда="'+Form2.ADOQuery1Децимал ь_изд.AsString+'")');
Form2.ADOQuery1.Next;
until Form2.ADOQuery1.Eof;
Form3.ADOQuery1.Open;
</CODE>
Поможете разобраться с проблемой в цикле?