Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-10-2011
Avatar de alej.villa
alej.villa alej.villa is offline
Miembro
NULL
 
Registrado: may 2011
Ubicación: Caracas, Venezuela
Posts: 76
Poder: 13
alej.villa Va por buen camino
Question 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

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



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Copiar tablas de BBDD distintas kirkhelek Firebird e Interbase 2 08-04-2010 21:23:36
Consulta Access con tablas en distintas BD. AMINOA2R Firebird e Interbase 5 23-02-2008 02:59:54
Consulta entre tablas de distintas BD kchilo SQL 5 05-09-2007 21:37:13
columnas de distintas tablas jonmendi SQL 1 23-12-2004 10:33:21
Listar datos de tablas distintas Irina Impresión 3 13-05-2003 18:05:45


La franja horaria es GMT +2. Ahora son las 20:05:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi