Ver Mensaje Individual
  #2  
Antiguo 20-10-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
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
__________________
Siempre Novato
Responder Con Cita