[marcoszorrilla]

Empezado por Detenido

Estimados, trabajo utilizando Delphi 6 con base de datos paradox y motor BDE. Lo que necesito hacer es realizar una consuta Sql a la tabla de nombre "ingresos" para recuperar los datos correspondientes a los campos "año", "mes" y el campo "codigo" para enviarlos a un informe, lo anterior lo he tratado de hacer utilizando el siguiente código sin éxito:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin if combobox1.Text = 'Enero' then 
        begin                 
form2.query1.close;
                 form2.query1.sql.clear; 
                form2.query1.sql.add('select * from ingresos where extract(year from fdoc) ='+ combobox2.Text +' and extract(month from fdoc)=1 ');                 
form2.Query1.SQL.Add('And código  =:codigo');
               form2.Query1.ParamByName('codigo').Value:= combobox3.Text; 
                
                 form2.query1.open;
                 form2.QuickRep1.Preview
         end

Bueno los objetos utilizados son los que se muestran en la siguiente imagen. También les dejo el error que se genera. Agradecería infinitamente una ayudita para solucionar mi problema. Gracias.

Haz la corrección indicada pues has repetido la palabra reservada SELECT.

Esta consulta debe de abrirse con Open no con ExecSql.


Un Saludo.