Napravio sam drugarici program za pracenje rezervacije u njenoj turistickoj agenciji. Ona mi je trazila jos jedan filter tj. da moze da izfiltrira sve putnike koji putuju u naredna xx dana.
Baza je radjena u delphi (access).
Upit sam postavio ovako :
procedure TFrmListaRez.Button1Click(Sender: TObject);
begin
if brdana.Text = '' then brdana.Text:='0';
with qu do
begin
close;
sql.Text:='SELECT aranzmani.datum_polaska, aranzmani.organizator, rezervacije.imeputnika, aranzmani.destinacija, aranzmani.smestaj,'+
'rezervacije.mob, aranzmani.datum_odlaska, aranzmani.vrsta_prevoza FROM aranzmani INNER JOIN rezervacije ON aranzmani.ArID = rezervacije.ArID'+
' WHERE ((aranzmani.datum_polaska)<=DateAdd("d",'+brdana.Text+',Date()))';
Open;
TDateField(FieldByName('datum_polaska')).DisplayFormat:='dd.mm.yyyy';
end;
end;
Molim za pomoc