Select anidados

[jaimeh]

Habia pensado en algo parecido a esto

Código SQL [-]

      'Select DISTINCT t1.Tique, t1.Codigo from CODIGOSFIN as t1 ' +
      ' where Codigo = 1050 ' +
                                'AND Exists ' +
     '(Select t1.Tique from CODIGOSFIN where Codigo = 1024) ' +

//                                 'AND Codigo IN ' +
//      '(Select Codigo from CODIGOSFIN where Codigo = 3)) ' +
      'Order By Tique';

Claro que me da mal

Muchas gracias

[afunez2007]

Pues todavia no entiendo bien lo que quieres hacer, se me ocurre esto: Ingrese esa tabla de datos que pusiste y probe el siguiente codigo:

Código SQL [-]
SELECT DISTINCT TIQUE FROMCODIGOSFIN WHERE CODIGO=1050 OR (CODIGO=1024) or (CODIGO=1030)

y me devuelve lo siguiente:
TIQUE
3
4
5
6

[jaimeh]

es que eso no valdría

Tendría que dar
Tique
5
3

el 5 cumple la condicion de que tiene un Codigo 1050 y un Codigo 1030 y
un codigo 1024

y el 3 lo mismo

espero haberme explicado un poco mejor

Saludos

[afunez2007]

Ahora voy entendiendo que es lo que quieres hacer, depues de varias pruebas creo que la solucion seria asi:

Código SQL [-]
SELECT  TIQUE,COUNT(TIQUE) AS CUENTA FROM CODIGOSFIN  WHERE CODIGO=1024 or CODIGO=1030 or CODIGO=1050    GROUP BY TIQUE HAVING COUNT(*)=3

Esto devuelve:
TIQUE CUENTA
--3------3----
--5------3----

[jaimeh]

Eso es lo mismo que antes

al final lo he hecho con delphi y parece que funciona
algo parecido a esto

Código Delphi [-]

    tblCodigosFin.Open;
    tblCodigosFin.IndexFieldNames := 'TIQUE;CODIGO';

  list := TStringList.Create;
  list.Add('1');
  list.Add('3');
  list.Add('5');

  listSeleccionado := TStringList.Create;

  TiqueAnterior := '';
  tblCodigosFin.First;
  while not tblCodigosFin.Eof do
  begin

    Tique := tblCodigosFin.FieldByName('Tique').AsString;
    Codigo := tblCodigosFin.FieldByName('Codigo').AsInteger;

    if Tique <> TiqueAnterior then
    begin
//       TiqueAnterior := Tique;

       if listSeleccionado.Count =
          list.Count then
       begin

         tblSeleccion.Append;
         tblSeleccion.FieldByName('Tique').AsString := TiqueAnterior;
//       tblSeleccion.FieldByName('Codigo').AsInteger := Codigo;
         tblSeleccion.Post;
       end;

       listSeleccionado.Clear;
       TiqueAnterior := Tique;

    end
    else begin
       if list.IndexOf(IntToStr(Codigo)) >= 0 then
         if listSeleccionado.IndexOf(IntToStr(Codigo)) < 0 then
           listSeleccionado.Add(IntToStr(Codigo));

    end;



    tblCodigosFin.next;
  end;

Gacias a todos y saludos

[afunez2007]

Bien siempre hay distintas formas de hacer, las cosas aunque utilizaste un metodo mas largo, podrias optimizarlo utilizando una query con el codigo que te envie, ya que me parece que seria mas rapido que utilizar un ciclo que recorra la tabla, ya que mencionaste que tenia muchos registros

Saludos

[Axel_Tech]

No la he probado pero creo que la consulta correcta sería algo así:

Código SQL [-]
SELECT DISTINCT TIQUE 
FROM CODIGOSFIN A 
WHERE EXISTS (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE AND CODIGO=1050)
AND EXISTS (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE AND CODIGO=1024)
AND EXISTS (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE AND CODIGO=1030) 
ORDER BY TIQUE