Fórum Dúvida difícil de SQL. #174676

Será que alguém pode me ajuda?! Estou parado nisto e nõa consigo solucionar....

Se eu entendi direito, eh so incluir a clausula ´AND I.itipo = ´P´

Não. O que preciso é do qdo o iTipo for P, quer dizer que existe uma estrutura também debaixo dele, ou seja, agora o iComponente passa a ser iPai na verificação. Tenho que descer todos os níveis até o último ser C. E existe no máximo 6 níveis.

sql ansi não resolve isto em uma query, alguns bancos tem extenções nativas que resolvem isto.

Oracle tem a connect by.

Não sei para os demais.

Você sabe pelo informix?

Nossa Galera, será que é tão difícil mesmo?! Se alguém puder me ajudar, eu agradeceria muito, só falta eu resolver isso, e não consigo terminar...

Julianomc:

Achei sua dúvida das mais interessante.
Como não encontrou solução, vou arriscar ajudá-lo.
Ficou extenso. Se ajudar, ou se encontrar a resposta, favor envie-me.


Sua Query:
select E.iCodPai, E.iCodComponente, I.iTipo
from tab1 E, tab2 I
where E.iCodPai = ´4902000150A´ AND
E.iCodComponente = I.iCod

public
procedure NovaQuery(CodPai, Cod: String);

var
Form1 : TForm1;
StrList : TStringList;


procedure TForm1.Create(Sender : TObject);
begin
...
StrList := TStringList.Create;
...
end;

procedure TForm1........
begin

Query1.Close;
.....// Sua Query.
.....
Query1.Open;

Query1.First;
while not Query1.EOF do
begin
if Query1.FieldbyName(iTipo).Value = ´P´ then
NovaQuery(Query1.FieldbyName(E.i´CodPai´).Value , Query1.FieldbyName(´I.iTipo´).Value)
else
StrList.Add(Query1.FieldbyName(E.i´CodPai´).Value + ´ ´ + Query1.FieldbyName(E.´iCodComponente´).Value + ´ ´ + Query1.FieldbyName(´I.iTipo´).Value);
Query1.Next;
end;
...

end;

procedure TForm1.NovaQuery(CodPai, Cod: String);
var
P1, P2: String;
begin
P1:= CodPai;
P2 := Cod;
try
Query.Close;
Query2.Clear;
Query2.Add(´select E.iCodPai, E.iCodComponente, I.iTipo ´);
Query2.Add(´from tab1 E, tab2 I ´);
Query2.Add(´where E.iCodPai = :CodPai AND ´);
Query2.Add(´E.iCodComponente = I.iCod AND´);
Query2.Add(´E.iCodComponente = :Cod);
Query2.ParambyName(´CodPai´).asString := P1;
Query2.ParambyName(´Cod´).asString := P2;
Query2.Open;
Query2.First;
while not Query2.EOF do
begin
if Query1.FieldbyName(I.iTipo).Value = ´P´ then
NovaQuery(Query2.FieldbyName(E.i´CodPai´).Value , Query2.FieldbyName(´I.iTipo´).Value)
else
StrList.Add(Query2.FieldbyName(E.i´CodPai´).Value + ´ ´ + Query2.FieldbyName (E.´iCodComponente´).Value + ´ ´ + Query2.FieldbyName(´I.iTipo´).Value;
Query2.Next;
end;
finally
Query2.Free;
end;

Usando recursividade, talvez resolva.

não conheço informix a solução seria montar a recursividade na mão.

acho que a solução passda resolve

Valeu mesmo.
Vou colocar em prática agora. Qualquer novidade eu te aviso.

Obrigado.