Mega Code Archive
Ada query ile iki tarih arasını sorgulama
<![CDATA[
//Nuh EROĞLU
//nuheroglu@hotmail.com
procedure TForm5.Button1Click(Sender: TObject);
var
basalangiczamanitampon: String ;
bitiszamanitampon : string ;
basalangiczamani: String ;
bitiszamani : string ;
begin
basalangiczamanitampon := DateToStr(DateTimePicker1.Date);
bitiszamanitampon := DateToStr(DateTimePicker2.Date);
basalangiczamani := (basalangiczamanitampon);
bitiszamani := (bitiszamanitampon);
With Form4 do begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from veriler');
ADOQuery1.SQL.Add('where Kayit_Tarihi between '''+basalangiczamani+''' and '''+bitiszamani+'''');Form4.ADOQuery1.Active:=True;
ADOQuery1.SQL.Add('ORDER BY Tarih');
ADOQuery1.Active:=True;
QuickRep1.Preview;
end;
end;
]]>