Between

[marvazoler 0]

Bom dia a todos, estou com dificuldades para acertar o código a baixo!!

Olque esta errado neste codigo?

var txtdataI : tdate;
var txtdataF : tdate;
begin
txtdataI:= StrToDate(txtdataini.text);
txtdataF:= StrToDate(txtdatafin.text);
frm_rellanc.qrp_lanc.Close;
frm_rellanc.qrp_lanc.SQL.Clear;
frm_rellanc.qrp_lanc.SQL.Add('SELECT * FROM lanc where cod_nome =  :matricula ');
frm_rellanc.qrp_lanc.SQL.Add('BETWEEN "txtdataI" AND "txtdataF"');

frm_rellanc.qrp_lanc.ParamByName('matricula').AsInteger := StrToInt(Edit.Text);
frm_rellanc.qrp_lanc.ExecSQL;
frm_rellanc.qrp_lanc.Open;
frm_rellanc.qrp_rellanc.Preview;

Desde ja agradeço!!

[Motta 645]

Falta algo ...

frm_rellanc.qrp_lanc.SQL.Add('SELECT * FROM lanc where cod_nome =  :matricula ');

frm_rellanc.qrp_lanc.SQL.Add('AND CAMPOXPTO ');

frm_rellanc.qrp_lanc.SQL.Add('BETWEEN "txtdataI" AND "txtdataF"');

[marvazoler 0]

achao que estou chegando perto!!

 

var txtdataI : tdate;
var txtdataF : tdate;
begin
txtdataI:= StrToDate(txtdataini.text);
txtdataF:= StrToDate(txtdatafin.text);
frm_rellanc.qrp_lanc.Close;
frm_rellanc.qrp_lanc.SQL.Clear;
frm_rellanc.qrp_lanc.SQL.Add('SELECT lanc.*, func.*, carro.* FROM lanc where cod_nome = :matricula ');
frm_rellanc.qrp_lanc.SQL.Add('and data BETWEEN "txtdataI" AND "txtdataF"');

frm_rellanc.qrp_lanc.ParamByName('matricula').AsInteger := StrToInt(Edit.Text);
frm_rellanc.qrp_lanc.ExecSQL;
frm_rellanc.qrp_lanc.Open;
frm_rellanc.qrp_rellanc.Preview;
frm_rellanc.qrp_rellanc.Width:=1360;
frm_rellanc.qrp_rellanc.Height:=768;

[Motta 645]

O que dá errado ?

 

A query não parace precisar ser montada , pq não fica gravada no componenete e se muda apenas o parametro ?

[thyagoollive 2]

Falta de pesquisar?

frm_rellanc.qrp_lanc.SQL.Add('and data BETWEEN '+chr(39)+FormatDateTime('dd.mm.yyyy',txtdataI)+chr(39)+' AND '+chr(39)+FormatDateTime('dd.mm.yyyy',txtdataF)+chr(39));

[marvazoler 0]

Obrigado a todos!! Deu certo!!