Hola amigos:
Nuevamente solicito su inestimable ayuda para resolver un problema que me trae complicado.
En una BD Access tengo dos tablas:
TABLASERIES : STUDYUID, SERIESUID
TABLAIMAGES: STUDYUID, SERIESUID, INSTANCEUID
Los campos STUDYUID y SERIESUID son comunes.
Lo que necesito es obtener el primer registro del campo INSTANCEUID para cada una de las SERIESUID.
He utilizado el siguiente código, pero sólo me devuelve 1 registro (INSTANCEUID) a pesar de que existan varias SERIESUID :
Código Delphi
[-]begin
ListBox2.Items.Clear;
ADOQuery8.Close;
ADOQuery8.SQL.Clear;
ADOQuery8.Sql.text:='select SERIESUID from TABLASERIES where STUDYUID like '+QuotedStr(DBEditID.Text+'%') ;
ADOQuery8.Open;
ADOQuery8.First;
while not ADOQuery8.Eof do
begin
ADOQuery6.Close;
ADOQuery6.SQL.Clear;
ADOQuery6.Sql.text:='select first(INSTANCEUID) from TABLAIMAGES where SERIESUID like '+QuotedStr(ADOQuery8.FieldValues['SERIESUID']+'%') ;
ADOQuery6.Open;
ListBox2.Items.Add(ADOQuery6.FieldByName('INSTANCEUID').AsString);
ADOQuery8.Next;
end;
end;
Cualquier ayuda es bien recibida.
Saludos y muchas gracias