Ayuda con error! expresion demasiado compleja en la expresion de consulta

[[oscarac]]

mm me parece que lo que escorpionrojo43 quiere es ubicar las posibles combinaciones de una jugada de loteria o algo similar.

identificar de acuerdo a las bolillas emitidas (edits) cuantas jugadas hay que contengan alguna de las bolillas e identificar si tienen 1, 2 o 3 aciertos


o estoy equivocado?

[escorpionrojo43]

Empezado por oscarac

mm me parece que lo que escorpionrojo43 quiere es ubicar las posibles combinaciones de una jugada de loteria o algo similar.

identificar de acuerdo a las bolillas emitidas (edits) cuantas jugadas hay que contengan alguna de las bolillas e identificar si tienen 1, 2 o 3 aciertos


o estoy equivocado?

oscarac tienes la razon esa la situacion
me podrian ayudar con eso?. queria utilizar "case" pero mi base de datos es access y no se como usar "case" ya que cuando lo intento me da error de sentencias. he buscado por muchas paginas y no he conseguido nada.

[[oscarac]]

te cuento que no existe Case en Access y se Utiliza iif

mmm se me ocurre lo siguiente
me imagino que tu tienes un campo donde guardas la Jugada compuesta por 3 Numero

Ejemplo
01-06-24
09-24-03
03-07-70

Esa informacion Guardarla en otra tabla pero descompuesta por cada uno de las combinaciones

Ejemplo
Dato - Proviene
01 ----> 01-06-24
06 ----> 01-06-24
24 ----> 01-06-24
09 ----> 09-24-03
24 ----> 09-24-03
03 ----> 09-24-03
03 ----> 03-07-70
07 ----> 03-07-70
70 ----> 23-07-70
...
...

Entonces Solo "jalo" en el query las bolillas que se "salgan"
digamos que salen las bolillas 03-21-24

entonces las posibles combinaciones serian
por la Bolilla 03
09-24-03
por la Bolilla 24
09-24-03
01-06-24

Código SQL [-]
Select From tablaDescompuesta from Campo = :Edit1.text or Campo = :Edit2.Tex or Campo = :Edit3.text

entiendes la idea?

[escorpionrojo43]

Empezado por oscarac

te cuento que no existe Case en Access y se Utiliza iif

mmm se me ocurre lo siguiente
me imagino que tu tienes un campo donde guardas la Jugada compuesta por 3 Numero

Ejemplo
01-06-24
09-24-03
03-07-70

Esa informacion Guardarla en otra tabla pero descompuesta por cada uno de las combinaciones

Ejemplo
Dato - Proviene
01 ----> 01-06-24
06 ----> 01-06-24
24 ----> 01-06-24
09 ----> 09-24-03
24 ----> 09-24-03
03 ----> 09-24-03
03 ----> 03-07-70
07 ----> 03-07-70
70 ----> 23-07-70
...
...

Entonces Solo "jalo" en el query las bolillas que se "salgan"
digamos que salen las bolillas 03-21-24

entonces las posibles combinaciones serian
por la Bolilla 03
09-24-03
por la Bolilla 24
09-24-03
01-06-24

Código SQL [-]
Select From tablaDescompuesta from Campo = :Edit1.text or Campo = :Edit2.Tex or Campo = :Edit3.text

entiendes la idea?

Lo siento oscar pero como que se me hace dificil de entender lo que me dices, podrias ser mas espesifico?

[[oscarac]]

que en OTRA tabla grabes cada uno de los componentes de la Jugada con su respectiva jugada de origen
y que cuando consultes por cada uno de los edits ya tienes las jugadas ganadoras

Select From tablaDescompuesta from Campo = :Edit1.text or Campo = :Edit2.Tex or Campo = :Edit3.text

[escorpionrojo43]

Muchas Gracias amigos. este club me ha ayudado mucho en esto.
Aquí pongo el código a disposición de quien lo necesite.

Código Delphi [-]
procedure TFregistroNumeros.Button2Click(Sender: TObject);
var campo11:string;
begin
    with qry_rep_numeros, sql do
  begin
    //Construye query con datos del reporte.
    Close;
    Clear;
    Add('SELECT IIf([jugada]= '+quotedstr(edit1.Text)+',"Primera", ');
    Add('IIf([jugada]= '+quotedstr(edit2.Text)+',"Segunda", ');
    Add('IIf([jugada]= '+quotedstr(edit3.Text)+',"Tercera", ');
//Determina el pale de 1ra y 2da, 1ra y 3ra, 2da y 1ra y 3ra y 1ra
    Add('IIf([jugada]= '+quotedstr(edit1.Text + edit2.Text)+' or [jugada] = '+ quotedstr(edit1.Text + edit3.Text)+' or [jugada]= '+quotedstr(edit3.Text + edit1.Text)+ 'or [jugada]= '+quotedstr(edit2.Text + edit1.Text)+',"P1",');
//Determinia el pale 2da y 3ra Y 3ra y 2da
    Add('IIf([jugada]= '+quotedstr(edit2.text) +'+'+ quotedstr(edit3.text)+' or [jugada] = '+ quotedstr(edit3.text) + '+' +quotedstr(edit2.text)+',"P2", ');
//Determina si es una tripleta
    Add('IIf([jugada]= '+quotedstr(edit1.text + edit2.text + edit3.text) + ' or [jugada]= ' + quotedstr(edit1.text +  edit3.text + edit2.text)+' or [jugada]=' + quotedstr(edit2.text + edit1.text + edit3.text)+  'or [jugada]= '+ quotedstr(edit2.text + edit3.text + edit1.text)+' or [jugada]= '+quotedstr(edit3.text + edit2.text + edit1.text)+ ' or [jugada]= '+quotedstr(edit3.text + edit1.text + edit2.text)+' ,"Tripleta",');
    Add('" ")))))) AS campo11, *');
    Add('From ticket_detalle');
    Add('where (  (Fecha = ' +'#'+ FormatDateTime('yyyy/mm/dd', datetimepicker1.Date)+'#'+')');
    Add('and   (loteria ='+ inttostr(Combobox1.ItemIndex)+')');
    Add('and   (  ([jugada] = ' + quotedstr(edit1.text)+ 'or  [jugada] = ' + quotedstr(edit2.text) + 'or [jugada] = ' + quotedstr(edit3.text)+')');
    Add('or    (  [jugada] =  ' + quotedstr(edit1.Text + edit2.Text)+' or [jugada] = '+ quotedstr(edit1.Text + edit3.Text)+' or [jugada]= '+quotedstr(edit3.Text + edit1.Text)+ 'or [jugada]= '+quotedstr(edit2.Text + edit1.Text)+')))');
    Add('order by len(jugada),jugada');
    open;
    if eof then
    begin
      ShowMessage('No se encontraron registros. Por favor verífique los criterios indicados!.');
      exit;
      next;
    end;
    first;
  end;
  campo11 := qry_rep_numeros.FieldByName('campo11').AsString;
  rep_ganadores.Print;
end;

Bueno solo me faltan algunos detalles de afinación y un par de condiciones mas. pero así es como me ha quedado. si creen que se puede mejorar me hacen saber.