Club Delphi  
    Paypal   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
  #2  
Antiguo 15-07-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Quizás tenga demasiados niveles de IF anidados.

¿Porqué no lees simplemente el campo jugada?. Luego con Delphi puedes traducir ese código al texto que quieras:
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 jugada AS campo11, *');
    Add('From ticket_detalle');
//    Add('where (fecha = ' +'#'+ FormatDateTime('yyyy-mm-dd', (DateTimePicker1.Date)) + '#)');
//    Add('and loteria = '+inttostr(combobox1.ItemIndex) + 'and (jugada = ' + quotedstr(edit1.text));
//    Add('or  jugada = ' + quotedstr(edit2.text) + 'or jugada = ' + quotedstr(edit3.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;
  if (qry_rep_numeros.FieldByName('campo11').AsString = edit1.Text) then campo11 := 'Primera' else
  if (qry_rep_numeros.FieldByName('campo11').AsString = edit2.Text) then campo11 := 'Segunda' else
  [...]
  else
     campo11 := 'Error';
  rep_ganadores.Print;
end;
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
Consulta demasiado compleja oscarac SQL 7 10-03-2011 14:46:16
Expresion regular Ivan_25 .NET 2 13-04-2009 09:58:47
La consulta es demasiado compleja mane Conexión con bases de datos 0 26-12-2007 10:00:07
Expresion Regular D-MO Varios 3 30-06-2007 18:51:59
expresion matematicas Irina Impresión 4 21-05-2003 00:49:51


La franja horaria es GMT +2. Ahora son las 18:37:18.


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