Ver Mensaje Individual
  #1  
Antiguo 14-07-2011
escorpionrojo43 escorpionrojo43 is offline
Miembro
 
Registrado: abr 2010
Posts: 89
Reputación: 15
escorpionrojo43 Va por buen camino
Ayuda con un reporte y select iff access

Hola Tengo un problemita con un reporte en report builder despues de mucha busqueda logre ejecutar este query en access


Código SQL [-]
SELECT IIF[jugada]= :edit1.text,[valor]*100,IIf([jugada]= :edit2.text,[valor]*10,IIf([jugada]= :edit3.text,[valor]*1," "))) as Virtualfield, *
FROM TICKET_DETALLE where fecha = ateTimePicker1.date;

el asunto es que Virtualfield es un campo virtual y no se como traerlo en el reporte.

tambien tengo esto en mi codigo en delphi
Código Delphi [-]
procedure TFregistroNumeros.Button2Click(Sender: TObject);
begin
    with qry_rep_numeros, sql do
  begin
    //Construye query con datos del reporte.
    Close;
    Clear;
    Add('SELECT =IIf([jugada]='+quotedstr(edit1.Text)+',"Primera",IIf([jugada]='+quotedstr(edit2.Text)+',"Segunda",IIf([jugada]='+quotedstr(edit2.Text)+',"tercera"," "))) AS campo11, *');
    Add('From ticket_detalle');
    Add('WHERE loteria = '+inttostr(combobox1.ItemIndex));
    Add('and fecha = '+'#'+FormatDateTime('yyyy-mm-dd', (DateTimePicker1.Date))+'#');
    Add('order by len(jugada)');
    open;
    if eof then
    begin
      ShowMessage('No se encontraron registros. Por favor verífique los criterios indicados!.');
      exit;
      next;
    end;
    first;
  end;
  rep_ganadores.Print;
end

si es posible tambien tengo un campo disponible en base de datos pero tampoco se como pasar los valores del virtualfield a este campo disponible
Espero que me puedan dar una solucion. Gracias
Responder Con Cita