Muchas gracias
Daniel.
Por lo que veo yo andaba más perdido que otras veces.
El código final que funciona como lo que necesitaba es :
Código Delphi
[-]begin
ListBox2.Items.Clear;
with ADOQuery6 do
begin
ADOQuery6.Close;
ADOQuery6.SQL.Clear;
ADOQuery6.SQL.Add('Select distinct T1.SERIESUID');
ADOQuery6.SQL.Add('(Select first(T2.INSTANCEUID) from IMAGES T2 where T2.SERIESUID = T1.SERIESUID)');
ADOQuery6.SQL.Add('from IMAGES T1');
ADOQuery6.SQL.Add('where STUDYUID like '+QuotedStr(DBEditID.Text+'%'));
ADOQuery6.Open;
ADOQuery6.First;
while not ADOQuery6.Eof do
begin
ListBox2.Items.Add(ADOQuery6.FieldByName('Expr1000').AsString);
ADOQuery6.Next;
end;
end;
end;
Mi conocimiento de Sql es bastante pobre y en este código hay cosas que no comprendo y que van en contra de mis estandares, como el hecho de que la claúsula lleve 2 from y 2 where ¿?
Un abrazo