Select anidados

[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

[rgstuamigo]

Esta creo que tambien Funciona:

Código SQL [-]
Select distinct Tiques from CodigosFin cf
Where Codigos in(1050,1024,1030)
and (Select count(cf.Tiques)from CodigosFin aux where cf.Tiques=aux.Tiques)>=3;

Saludos...

[jaimeh]

Muchas gracias a todos por contestarme

Pensaba que ya se había acabado el hilo y por eso no volví a mirarlo.

Lo de Axel si funciona , yo había pensado algo por el estilo pero no sabía como implementarlo. Lo que si, es que es mas lento que haciéndolo sólo
con delphi. He hecho algo como lo siguiente porque
podrían ser para 100 códigos o más

Código Delphi [-]

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



   qrySeleccion.SQL.Clear;
   qrySeleccion.SQL.Add(
     'SELECT DISTINCT Tique ' +
     'FROM CODIGOSFIN A ' +
     'WHERE EXISTS ' +
       ' (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE ' +
       ' AND CODIGO= ' + list[0] + ' ) ');

   for i := 1 to list.Count -1 do
     qrySeleccion.SQL.Add(
      ' AND EXISTS ' +
        ' (SELECT TIQUE FROM CODIGOSFIN B WHERE A.TIQUE=B.TIQUE ' +
        ' AND CODIGO= ' + list[i] + ' ) ');


     qrySeleccion.SQL.Add('ORDER BY TIQUE, CODIGO');

     qrySeleccion.Open;

Lo de tuAmigo lo he probado aunque no lo entiendo muy bien y para
mas de 100 códigos se podría complicar la cosa.

Código SQL [-]
     'Select distinct Tiques from CodigosFin cf ' +
     ' Where Codigo in(1,3,5) ' +
     ' and (Select count(cf.Tique) from CodigosFin aux ' +
        ' where cf.Tique=aux.Tique)>=3 ';

Me da un error:
Cannot use un aggregate function in a where clause, use habing instead


Y lo que hice yo tiene un pequeño bug que lo he solucionado

Código Delphi [-]
  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;

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


    tblCodigosFin.next;
  end;

        if listSeleccionado.Count =
          list.Count then
       begin

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

       end;

ahora si me da bien y es bastante rápido

Muchas gracias a todos y pido disculpas por no haber contestado antes

[rgstuamigo]

Empezado por jaimeh

...
Pensaba que ya se había acabado el hilo y por eso no volví a mirarlo.
...

En realidad un hilo en el Club Delphi nunca termina, siempre hay personas quienes quieren agregar algo.... Y quien mas que tú, para estar pendiente y atento al hilo que iniciaste.

Empezado por jaimeh

...
Lo de tuAmigo lo he probado aunque no lo entiendo muy bien y para
mas de 100 códigos se podría complicar la cosa.
...

Bueno no acabo de entenderte , primero dices que solo quires buscar para tres específicos códigos(1050,1024,1030), ahora ya dices que van a ser mas de 100 códigos, pues entonces mas bien te convendria sacar todos los Tiques que se repiten 3 o mas veces algo asi:

Código SQL [-]
Select distinct Tiques from CodigosFin cf
where(Select count(cf.Tiques)from CodigosFin aux where cf.Tiques=aux.Tiques)>=3;

Saludos...