• 0
Sign in to follow this  
Arlon

Pesquisa Entre Datas

Question

Como fazer uma pesquisa por data usando parâmetros, ou seja, a propriedade params da Query receber o que está sendo digitado em um Edit ou MaskEdit. Pra fazer uma pesquisa por data simples eu uso o código abaixo e ele funciona.

DM.QrConsPedidos.Close;

DM.QrConsPedidos.Sql.Text := 'Select Cliente, Data, Hora, Atendente, Total From Pedidos ' +

'Where (Data) =:DataBusca';

DM.QrConsPedidos.Params[0].AsDate := StrToDate(MaskEdit1.Text);

DM.QrConsPedidos.open;

Close;

Agora, como seria uma pesquisa entre datas com os textos do Edit ou MaskEdit sendo passados como parâmetros? Eu tentei o código abaixo, mas não deu certo. Agradeço qualquer ajuda.

DM.QrRelatPed.Close;

DM.QrRelatPed.SQL.Text := 'Select Data, OS, Desc_od, Fab_od, Desc_oe, Fab_oe, Total from Pedidos ' +

'Where Data Between (Data =:DataBusca1) and (Data =: DataBusca2)';

DM.QrRelatPed.Params[0].AsDate := StrToDate(MaskEdit1.Text);

DM.QrRelatPed.Params[1].AsDate := StrToDate(MaskEdit2.Text);

DM.QrRelatPed.open;

O erro que dá quando eu executo o código acima é:

"EDBEEngineError with message 'Invalid use of keyword'

Token: =?)

Line number: 1'

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Resolvido!!

O certo seria assim:

DM.QrRelatPed.Close;

DM.QrRelatPed.SQL.Clear;

DM.QrRelatPed.Sql.Text := 'Select Data, OS, Desc_od, Fab_od, Desc_oe, Fab_oe, Total from Pedidos ' +

'Where Data between :DataInicial and :DataFinal';

DM.QrRelatPed.ParamByName('DataInicial').AsDate := StrToDate(MaskEdit1.Text);

DM.QrRelatPed.ParamByName('DataFinal').AsDate := StrToDate(MaskEdit2.Text);

DM.QrRelatPed.Prepare;

DM.QrRelatPed.open;

Close;

pode fechar...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this