Delphi. TreeView. Firebird: Вложенный SQL-запрос.

[Alexei91]

Приветствую всех.
В запросе

SELECT * FROM S_NOMENCLATURE WHERE (GRP=1)AND
(SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME))

Где GRP - smallint,
UUID - varchar(22).
Параметр Name берётся из TreeView.Selected.Text.
Запрос используется для определения подгрупп в таблице (представление
данных 1 таблицы в виде дерева).
происходит ошибка "Multiple rows in singleton select".

Ошибка связана со вторым SELECT,когда в TreeView на событие
OnExpanding (при раскрытии) TreeView.Selected.Text по-видимому поступает одновременно несколько параметров Name. Почему?
Я-то выделяю/раскрываю 1 узел. Вот код:

procedure TForm1.CreateRootsTree;
var
I: integer;
RootNode: TTreeNode;
begin
qTree.SQL.Clear; //Все корневые узлы имеют parent_uuid='''00000000000000000000 00"
qTree.SQL.Add('select * from s_nomenclature where (parent_uuid=' + //grp=1 - признак группы
'''0000000000000000000000'')and(grp =1)');
qTree.Open;
while not Qtree.Eof do //пока есть записи
begin
RootNode := MyTree.Items.AddObject(nil, qTree.FieldByName('name').AsString,
Pointer(qTree.FieldByName('UUID').A sString));
MyTree.Items.AddChild(RootNode, '');
qTree.Next; RootNode.ImageIndex := 0;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
CreateRootsTree;
end;

procedure TForm1.MyTreeCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
Node.ImageIndex := 0;
end;

procedure TForm1.MyTreeExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var
I: integer;
begin
//При раскрытии
qTree.Close;
qTree.SQL.Clear;
qTree.SQL.Add('select * from s_nomenclature where (grp=1)and(parent_uuid=' +
'(select uuid from s_nomenclature where name=:name))');
qTree.ParamByName('name').AsString := MyTree.Selected.Text;//непонятно
qTree.Open;
Node.DeleteChildren;
while not Qtree.Eof do
begin //отображаю потомков
TreeNode := MyTree.Items.AddChildObject(Node, qTree.FieldByName('name').AsString,
Pointer(qTree.FieldByName('UUID').A sString));
MyTree.Items.AddChildFirst(TreeNode , '');
TreeNode.ImageIndex := 0;
TreeNode.SelectedIndex := 1;
qTree.Next;
end;
end;

Принцип действия:
1) Формирую только корневые узлы с ложным потомком (чтоб раскрывалось)
2) При раскрытии пользователем узла формируются потомки этого узла.
Перед этим ложный потомок и все остальные потомки удаляются.
...
или
где можно скачать небольшой Freeware-компонент с исходниками для отображения таблицы БД в виде дерева, если ID и PARENT_ID - строки, а не числа?

[soleil@mmc]

вы нам для начала поведайте каким образом работает такой запрос

SELECT * FROM S_NOMENCLATURE WHERE (GRP=1)AND
(SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME))

а то похоже что он просто не дописан

[Alexei91]

вы нам для начала поведайте каким образом работает такой запрос

По наименованию (Name) происходит выбор идентификатора (UUID),
который затем передаётся в SELECT * FROM S_NOMENCLATURE WHERE (GRP=1)AND(<отсюда получаю UUID>).
Самое интересное, что этот запрос работает. А вот передаётся
значение для Name:
qTree.ParamByName('name').AsString := MyTree.Selected.Text;
Здесь qTree - TIBQuery, MyTree - TTreeView.
Смотрите делфийский код. Так вот получается, что в какой-то момент в строчке
qTree.ParamByName('name').AsString := MyTree.Selected.Text
видимо образуется эта ошибка (причём не всегда).
Вся загвоздка в MyTree.Selected.Text - имя узла TreeView, получаемое
при развертывании.

а то похоже что он просто не дописан

Запустите любой запрос. Например,из демки Employee.fdb:
select * from customer where (cust_no=(select cust_no from customer where cust_no=1004)) - будет работать.

[soleil@mmc]

давайте по порядку

ваш запрос

SELECT * FROM S_NOMENCLATURE WHERE (GRP=1)AND
(SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME))

1) внутренний запрос, согласен, возвращает какой-то или какие-то ууид/ууиды

SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME

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

2) первая часть обрамляющего запроса тоже чота там сделает

SELECT * FROM S_NOMENCLATURE WHERE (GRP=1) AND

но дальше мы видим связку по условию "И"
т.е. вернуть все записи, удовлетворяющие условию группа = 1 и УУИД/УУИДЫ

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

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

Запустите любой запрос. Например,из демки Employee.fdb:
select * from customer where (cust_no=(select cust_no from customer where cust_no=1004)) - будет работать.

угу
работать будет, но смысла в нем никакого
проще уж сделать просто запрос

select * from customer where cust_no=1004

[Alexei91]

а что делают эти ууиды - равны, не равны, существуют в этом наборе данных???

UUID - уникальный идентификатор записи в таблице, генерится через функцию uuid_create() из uuidlib.dll.
Parent_UUID - UUID предка.
Например,
UUID записи равен какому-нибудь 'dahSDsaD1Aad1jh!1s12da'.
Parent_uuid='000000000000000000000' - нет предка,это корневой узел.
В общем Parent_UUID хранит UUID предка, а GRP - признак того,что
запись - группа.
Т.к. Name уникален из

SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME

теоретически должен возвращать не более 1 записи с UUID.
Думаю у меня ошибка в делфийском коде => ошибка с запросом.
Посмотрите DELPHI-код:

procedure TForm1.CreateRootsTree;
var
I: integer;
RootNode: TTreeNode;
begin
qTree.SQL.Clear; //Все корневые узлы имеют parent_uuid='''00000000000000000000 00"
qTree.SQL.Add('select * from s_nomenclature where (parent_uuid=' + //grp=1 - признак группы
'''0000000000000000000000'')and(grp =1)');
qTree.Open;
while not Qtree.Eof do //пока есть записи
begin
RootNode := MyTree.Items.AddObject(nil, qTree.FieldByName('name').AsString,
Pointer(qTree.FieldByName('UUID').A sString));
MyTree.Items.AddChild(RootNode, '');
qTree.Next; RootNode.ImageIndex := 0;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
CreateRootsTree;
end;

procedure TForm1.MyTreeCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
Node.ImageIndex := 0;
end;

procedure TForm1.MyTreeExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var
I: integer;
begin
//При раскрытии
qTree.Close;
qTree.SQL.Clear;
qTree.SQL.Add('select * from s_nomenclature where (grp=1)and(parent_uuid=' +
'(select uuid from s_nomenclature where name=:name))');
qTree.ParamByName('name').AsString := MyTree.Selected.Text;//похоже здесь ошибка
qTree.Open;
Node.DeleteChildren;
while not Qtree.Eof do
begin //отображаю потомков
TreeNode := MyTree.Items.AddChildObject(Node, qTree.FieldByName('name').AsString,
Pointer(qTree.FieldByName('UUID').A sString));
MyTree.Items.AddChildFirst(TreeNode , '');
TreeNode.ImageIndex := 0;
TreeNode.SelectedIndex := 1;
qTree.Next;
end;
end;

[Alexei91]

Всё заработало!
Я просто во время отладки навводил несколько записей с одинаковыми Name отсюда и ошибка Multiple rows in singleton select во время раскрытия некоторых узлов дерева.

SELECT * FROM S_NOMENCLATURE WHERE (GRP=1)AND /*подзапрос2*/
(SELECT UUID FROM S_NOMENCLATURE WHERE NAME=:NAME)/*подзапрос1*/)

Подзапрос1 возращал несколько UUID за ход в подзапрос2 или типа того.
Большое спасибо за советы.