Consulta en dos tablas distintas

[alej.villa]

Buenas noches amigos foreros

esta vez me dirijo a ustedes para que juntos búsquemos una solución.

Tengo dos consultas separadas en donde consulto (valga la redundancia) un dato en común que es la cédula del empleado, tengo dos tablas llamadas empleados y turno_temporal. La tabla empleados almacena todos los datos básicos de los empleados (cédula, nombre, apellidos, sexo, turno, etc.) y la tabla turno_temporal almacena (cédula, turno_temp, fecha_ini, fecha_fin, estado). siento este último para saber si está activo o inactivo.

bien tengo la primera consulta sql en donde selecciono la cédula del empleado según el turno de trabajo que es pasado por un parámetro y el resultado de la consulta almacenado en un arrreglo dinámico string.

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select cedula From empleados');
  dm.Query.SQL.Add('Where turno=:xfiltro');
  DM.Query.Parameters.ParamByName('xfiltro').DataType:=ftString;
  dm.Query.Parameters.ParamByName('xfiltro').Value:=ComboBox1.Text; //aquí paso por parámetro el turno
  dm.Query.Open;
    while not dm.Query.Eof do
    Begin
        SetLength(miArreglo, n+1);
        miArreglo[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
end;

bien una vez realizada la primera consulta, sigo con la segunda consulta cargandola en un arreglo diferente de esta manera

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select cedula From Turno_Temporal');
  dm.Query.SQL.Add('Where estado =:estado');
  dm.Query.SQL.Add('AND turno_temp = :turno');
  DM.Query.Parameters.ParamByName('estado').DataType:=ftString;
  dm.Query.Parameters.ParamByName('estado').Value:='activo';
  DM.Query.Parameters.ParamByName('turno').DataType:=ftString;
  DM.Query.Parameters.ParamByName('turno').Value:=ComboBox1.Text;
  dm.Query.Open;
    while not dm.Query.Eof do
      Begin
        SetLength(ArregloTurno, n+1);
        ArregloTurno[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
  end;

Ahora bien mi motivo principal o pregunta es
¿Cómo puedo hacer para que el resultado de la segunda consulta se añada al arreglo de la primera consulta sin borrarme/modificarme algún dato?
intente lo siguiente pero me da un resultado que no es el esperado.
hice una consulta en donde me uniera todos las cedulas según el turno seleccionado de esta manera

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select a.cedula, b.cedula From Empleados a, Turno_Temporal b');
  dm.Query.SQL.Add('Where a.turno = :turno and ((b.turno_temp = :turno) and (b.estado =:estado))');
  DM.Query.Parameters.ParamByName('estado').DataType:=ftString;
  dm.Query.Parameters.ParamByName('estado').Value:='activo';
  DM.Query.Parameters.ParamByName('turno').DataType:=ftString;
  DM.Query.Parameters.ParamByName('turno').Value:=ComboBox1.Text;
  dm.Query.Open;
    while not dm.Query.Eof do
      Begin
        SetLength(Arreglo, n+1);
        Arreglo[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
  end;

pero la cantidad de columnas afectadas es de 2000 cuando deberian ser no mayor a 200

Espero haberme explicado bien y puedan ayudarme con esta sencilla consultilla
Gracias de antemano!

[[Caral]]

Hola
Tal vez usando un DISTINCT, creo que necesitaras un group by.
Algo asi:

Código Delphi [-]
begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select a.cedula, b.cedula From Empleados a, Turno_Temporal b');
  dm.Query.SQL.Add('Where a.turno = :turno and ((b.turno_temp = :turno) and (b.estado =:estado))');
  dm.Query.SQL.Add('Group by a.cedula, b.cedula');
  DM.Query.Parameters.ParamByName('estado').DataType:=ftString;
  dm.Query.Parameters.ParamByName('estado').Value:='activo';
  DM.Query.Parameters.ParamByName('turno').DataType:=ftString;
  DM.Query.Parameters.ParamByName('turno').Value:=ComboBox1.Text;
  dm.Query.Open;
    while not dm.Query.Eof do
      Begin
        SetLength(Arreglo, n+1);
        Arreglo[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
  end;

Es solo una idea, no te fies mucho.
Saludos

[alej.villa]

Buenos dias caral la verdad intente hacer eso y no dio ningunnn resultado, si alguien sabe que debo hacer o que puedo hacer se los agradeceria

[orioncomputer]

Saludos Alej.villa

No soy muy experto en programación en delphi, pero si se como se realiza la consulta SQL que deseas, te detallo un ejemplo y luego tu lo condicionas al DM que desees, ahora bien no entiendo el porque tienes que hacer la consulta por etapas, pero bueno yo te mostrare un ejemplo de como consultas directamente preguntando a la tabla por las tres variables de una vez, pienso que si tu objetivo final es la ultima consulta porque no reducir las 2 o 3 consultas previas a una sola.

Acá te detallo la Consulta

Código SQL [-]
SELECT  A.Cedula, B.Cedula
FROM  Empleado AS A INNER JOIN
    Turno_Temporal AS B ON A.Cedula = B.Cedula AND A.Turno = B.Turno_Temp
GROUP BY A.Cedula, B.Cedula
HAVING  (A.Cedula = 'CCCC') AND (B.Estado = 'EEEEE') AND (B.Turno_Temp = 'TTTTT')

Como veras los Campos con las "C", "E" y "T", deben ser reemplazados en tu consulta por las variables que tienes.
Bueno de no entender, por acá estamos a la orden

[alej.villa]

Empezado por orioncomputer

Saludos Alej.villa
pienso que si tu objetivo final es la ultima consulta porque no reducir las 2 o 3 consultas previas a una sola.

Acá te detallo la Consulta

Código SQL [-]
SELECT    A.Cedula, B.Cedula 
FROM    Empleado AS A INNER JOIN         
Turno_Temporal AS B ON A.Cedula = B.Cedula AND A.Turno = B.Turno_Temp 
GROUP BY A.Cedula, B.Cedula 
HAVING    (A.Cedula = 'CCCC') AND (B.Estado = 'EEEEE') AND (B.Turno_Temp = 'TTTTT')

Como veras los Campos con las "C", "E" y "T", deben ser reemplazados en tu consulta por las variables que tienes.
Bueno de no entender, por acá estamos a la orden

Buen día orioncomputer
quiero hacer exáctamente eso que tu dices en tu mensaje, en vez de realizar 2 ó 3 consultas quiero hacer una sola.
Según entiendo de tu código SQL el me filtraría todas las cédulas que sean iguales en las dos tablas (Empleados y Turno_Temporal) cierto? de ser esto cierto la consulta no es la correcta puesto que necesito todas las cédulas de la tabla empleados y de la tabla tabla Turno_Temporal que coincidan con el turno (Que es seleccionado por el usuario).

[alej.villa]

Buen día amigos del clubdelphi

he intentado hacer de todo tipo de consulta que me resuelva mi problematica, pero no logró dar con la solución
¿será que alguien puede ayudarme?

PD: Es lo único que me falta para terminar mi sistema.

¡Gracias de antemano!