[Resolvido] Erro em consulta SQL

[Renanbg 1]

Desejo fazer uma consulta baseado no conteudo que tenho dentro de um COMBOBOX

 

  frmrelduplicatas.Query1.Close;
 frmrelduplicatas.Query1.SQL.Clear;
 frmrelduplicatas.Query1.SQL.Add('SELECT Estabelecimento, Cedente, Data_doc, Num_doc, Total, Vencimento, Dt_pagamento');
 frmrelduplicatas.Query1.SQL.Add('FROM tbvencidas');
 frmrelduplicatas.Query1.SQL.Add('WHERE Dt_pagamento >=:pInicial and Dt_pagamento<=:pFinal and Status= '+combobox1.text+'');
 frmrelduplicatas.Query1.SQL.Add('order by Dt_pagamento');
 frmrelduplicatas.Query1.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
 frmrelduplicatas.Query1.ParamByName('pFinal').AsDateTime := StrToDate(Final);
 frmrelduplicatas.Query1.Prepare;
 frmrelduplicatas.Query1.Open;

 

Dentro do combo tenho os valores

 

PAGO

AGUARDANDO

TODAS

 

Mas da erro ao executar

 

o erro é: Invalid field name. PAGO

 

OU

 

Invalid field name. AGUARDANDO

 

 

Alguma ideia?

[fernando.fxsoft 0]

Altere a seguinte linha:

 

frmrelduplicatas.Query1.SQL.Add('WHERE Dt_pagamento >=:pInicial and Dt_pagamento<=:pFinal and Status= ' + QuotedStr(combobox1.text));

[Meneguci 1]

Por que não coloca o Status como parâmetro também?

...
 frmrelduplicatas.Query1.SQL.Add('WHERE Dt_pagamento >=:pInicial and Dt_pagamento<=:pFinal and Status= :Status');
...
 frmrelduplicatas.Query1.ParamByName('Status').AsString := combobox1.text;
...

[Renanbg 1]

Obrigado amigos.

 

Optei por usar a dica do Fernando e está uma beleza agora.