Consulta en dos tablas distintas
 

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 :confused:

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

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

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 ;)

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 :confused: 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. :D:D

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).

Sigo con el problema
 

Buen día amigos del clubdelphi :cool:

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! :rolleyes:

¿Y cual es el problema?

Que quiero consultar dos tablas cuyo campo en común es la cédula, pero necesito todas las cédulas de las dos tablas cuándo el turno sea igual al indicado por el usuario.

Sí, ¿pero no te sirve la ayuda que te han dado?, ¿no hacen lo que quieres?, exactamente ¿en qué difieren de lo que necesitas?.
Si lo ves necesario escribe aquí nombres de las tablas y campos y con valores de ejemplo para que esté todo bien claro. Así será más fácil que consigas la ayuda. Es que si simplemente dices que no funciona, no sale, necesitas ayuda... Tienes que ayudar a que te ayuden. Te recuerdo nuestra guía de estilo.
Ten la seguridad de que si no has conseguido más ayuda es, simplemente, porque no está bien clara la exposición de tu duda. Por favor, esfuérzate un poco más, gracias por tu colaboración.

Ok aquí voy de nuevo
 

Bien vuelvo a explicar mi motivo principal de este mensaje para buscar una solución.

Tengo dos tablas la primera es:
Empleados Que tiene estos campos:

1. Cédula (Primary key)
2. Nombres
3. Apellidos
4. Sexo
5. Turno
6. Cargo
7. Fecha de ingreso
8. Patología

Y la segunda es:
Turno_Temporal que tiene estos campos:

1. Cédula
2. FechaIni
3. FechaFin
4. Estado
5. Turno_Temp
6. usuario
7. fecha
8. status

Ahora bien mi problemática consiste en que debo óbtener todas las cédulas de las dos tablas indicadas.

y como parámetros debo evalúar que en la tabla
Empleados el turno indicado sea igual al campo turno de la tabla así: (empleado.turno = Indicado por el usuario)

y en la tabla Turno_Temporal el turno indicado por el usuario sea igual al campo Turno_Temp y el campo estado sea igual a activo
(Turno_Temporal.turno_temp=Indicado por el usuario) and (Turno_Temporal.estado='activo')

Intente hacer esto pero no me funciona, es decir, no me arroja ningún resultado la consulta

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;

¿El campo "cédula" viene a ser como un código identificador del empleado?

Si exactamente eso

Bien, lo que no me queda muy claro, ¿el usuario debe seleccionar el turno de la tabla empleado y el turno de la tabla turno_temporal o sólamente selecciona un turno que debe ser el mismo para las dos tablas?

Por lo que yo he entendido, es tan simple como esto:

Código SQL [-]
select emp.cedula, tur.*  
from tbempleados emp
inner join turno_temporal tur on tur.cedula=emp.cedula
where emp.turno=tur.turno_temp
and emp.turno= :turno
and tur.estado='activo'

Si no es eso es que no te he entendido :(

Solamente selecciona un turno que debe ser el mismo para las dos tablas. :)
Me has captado amigo mio.

¿Entonces te sirve lo que he escrito antes o hay más cosas a tener en cuenta?

Olle creo que hay que tomar en cuenta que tambien necesito la cedula de la tabla turno_temporal, veo que no la estas tomando en consideracion

En caso de yo estar errado por favor me gustaria que me expliques un poco de como funciona la consulta SQL

Gracias :rolleyes:

Pues si necesitas que el usuario seleccione una, se la pasas también como parámetro y listo:

Código SQL [-]
select emp.cedula, tur.*  
from tbempleados emp
inner join turno_temporal tur on tur.cedula=emp.cedula
where emp.turno=tur.turno_temp
and emp.turno= :turno
and tur.estado='activo'
and em.cedula= :cedula

¿Es eso entonces?, ¿hace lo que quieres?

Mmmm te me desviaste un poquito o no has captado bien la idea amigo mio,

en las dos tablas hay muchas cédulas, y necesito que todas esas cédulas se me carguen en un arreglo dinámico (ya esa parte la hice) el problema está en que nose como seleccionar todas esas cédulas en una sola consulta SQL, los únicos parámetros para la consulta son el turno (que es un campo común en las dos tablas) y el estado (que es un parámetro que yo paso internamente en la consulta). pasando estos dos parámetros a la consulta yo quiero que me arroje todas las cédulas que cumplan con esas condiciones, es decir, que todas las cedulas en la tabla empleado que estan en el turno "DIURNO" (por ejemplo) me las seleccione y me las cargue en el arreglo, adicionalmente a esto yo debo comparar todas las cédulas que están el la tabla Turno_Temporal cumplan con la condición del turno (que es indicado por el usuario) y con la condición del estado (que es indicado por parámetro interno en la consulta SQL) tambien se me añadan al arreglo dinánico. para así de este modo poder tener todas las cédulas cargadas en un solo arreglo dinámico.

Espero haberme explicado bien esta vez :) en caso de no entenderme nose de que otro modo explicarme :(