Buscar coincidencia datos con dos tablas Paradox BCB6

[lmpadron]

Saludos Yugo ... Ecfisa

Empezado por Yugo

(...) Por lo tanto, tendría que usar un bucle for

también puedes usar WHILE

while (TuQuery->Eof)
        {
           //todo tu codigo
           TuQuery->Next();
        }

Otra cosa, no tienes que crear una variable de tipo String, asignarle un valor (en este caso la sentencia SQL) y después asignarle esa variable al Query1->SQL->Text.

Empezado por Yugo

(...) Por lo tanto, tendría que usar un bucle for

Query1->SQL->Add(sConsulta);

Puedes hacerlo de esta manera

  Query1->SQL->Clear();
  Query1->SQL->Add("SELECT * FROM  tabla1 WHERE tabla1.Frec1 =  tabla2.Frec2.x AND  tabla1.Id1 = tabla2.Id2.x  ORDER BY Nombre1");

Empezado por ecfisa

Los datos que se encuentren disponibles en Query1 ya han cumplido la condición que deseas

Como dice Ecfisa, en el SQL ya haces la comparación cuando usas el WHERE y los resultados obtenidos son solo aquellos que cumplen la condición, en el evento AfterScroll solo debes escribir si las comparaciones son secundarias y no puedes reducir los datos a mostrar.

Empezado por Yugo

(...)//Hacer que la etiqueta contenga el nombre (ordenado alfabéticamente)

Labelx->Caption = Query1->FieldByName("Nombre1")->AsString;

Has probado usar un DBGrid enlazado al Query1 en vez de tantos Label??? De esta forma si la consulta devuelve alguna coincidencia ya el usuario la ve directo en el DBGrid, sino entonces este permanece vació o puedes si quieres lanzar algún mensaje o algo parecido.
Espero haber sido de ayuda

Ecfisa ... un gusto verte !!! Saludos