Ver Mensaje Individual
  #8  
Antiguo 15-08-2012
rufo rufo is offline
Miembro
 
Registrado: jul 2006
Posts: 240
Reputación: 20
rufo Va por buen camino
Gracias amigos por responder, exacto como dice tengo un campo donde almaceno el mes y les pongo el codigo que he estado usando sin tener resultados.

Código Delphi [-]
if (combobox3.text<>'') and (combobox4.Text<>'') then
      begin
        with dm1.Q_Vanual do
        begin
          active:=false;
          sql.clear;
          sql.add('select * from ventas_anuales');
          sql.add('where datos_factura.mes');
          sql.Add('and datos_factura.N[mes]');
          active:=true;
          if recordcount=0 then
         messagedlg('No se encontraron ventas de los meses selecionado, intente de nuevo',mtinformation,[mbok],0);
         listbox11.Clear;
         listbox12.Clear;
         listbox13.Clear;
         listbox4.Clear;
         listbox20.Clear;
         listbox21.Clear;
         listbox22.Clear;
         listbox23.Clear;
       while not(eof) do
        begin
         listbox11.Items.add(fieldbyname('id_folio').asstring);
         listbox12.Items.add(fieldbyname('nombre').asstring);
         listbox13.Items.Add(fieldbyname('importe').AsString);
         listbox20.Items.Add(fieldbyname('dia').AsString);
         listbox21.Items.Add(fieldbyname('mes').AsString);
         listbox22.Items.Add(fieldbyname('ano').AsString);
         listbox4.Items.Add(fieldbyname('iva').AsString);
         listbox23.Items.Add(fieldbyname('total').AsString);
        next;
        end;
      end;
      end;

en la consulta de access cree un campo que se llama N[mes] para poder hacer la consulta, al ejecutar la consulta si me funciona ya que si en la consulta especifico de que Mes a que Mes me arroja los resultados, el problema es en planteamiento en delphi, al momento de ejecutar mi aplicacion y hacer click me arroja el siguiente mensaje

"Error de sintaxis (falta operador) en la expresion de consulta 'datos_factura.mes and datos_factura.N[mes]'

Espero me ayuden a que operador estara faltandome y gracias de antemano.
Responder Con Cita