İki Tarih Arası Sorgulama

[gonulali]

Veri tabanındaki TARIH alanının tipi nedir? datetime olması gerekiyor.

[mrmarman]

@Mikdad

Aşağıdaki kod örneğine göre yeniden düzenleyip bir çalıştırır mısınız ? 

Sorun ve ihtimalen eklenmesi gerekenler :

1. Kendi örneğinizde BETWEEN ifadesini yazmayı unutmuşsunuz, 
   
2. MSACCESS veritabanı sürümüne Date tipi gibi özel parametrelerin Data tipinin de tanımlanmasını istenebiliyor.
   

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  With FDISLEM do
  begin
    SQL.Clear;
    SQL.Add('select * from ISLEM');
    SQL.Add('WHERE TARIH BETWEEN :ilktarih and :sontarih');

    ParamByName('ilktarih').DataType  := ftDate;
    ParamByName('ilktarih').Value     := StrToDateTime( MaskEdit1.Text );

    ParamByName('sontarih').DataType  := ftDate;
    ParamByName('sontarih').Value     := StrToDateTime( MaskEdit2.Text );

    Active := TRUE;
  end;
//...
end;

[csunguray]

(15-05-2023, Saat: 16:59)Mikdad Adlı Kullanıcıdan Alıntı: Selamun aleykum Hocalarım, 
Access veritabannı

Firedac ana Tablom ( Tablo Adı Vefa)
Delphi ide de firedac query ismi FDVefa

Detail Tablom ise ( ISLEM) ( sorgulanacak alan TARIH)
Delphi ide de firedac query ismi  FDISLEM


Detail tablomdaki tarih alanında iki tarih arası sorgulama yapmak istiyorum. 
yardımcı olabilir misiniz?

Aşağıdaki fonksiyonları kullanarak tarihinizi Access'in kabul edebileceği şekilde formatlayabilirsiniz.

function QuotedSQLDate(ADate: TDateTime): String;
begin
  Result := 'CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd', ADate)) + ')';
end;

function QuotedSQLDateTime(ADateTime: TDateTime): String;
begin
  Result := 'CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', ADateTime)) + ')';
end;

[Mikdad]

Hocalarım Allah razı olsun, tüm verdiğiniz kodları denedim, maskeditler yerine Edit te kullandım, hep aynı hata, 
access vt ISLEM tablosunda TARIH alanı tarih/saat seçili. alt taraftan özellik kısmında da kısa tarih olarak belirledim.  ama hala aşağıdaki hatayı veriyor.

[mrmarman]

parametre kullanmak candır gerisi heyecandır derler.
Tarihi string olarak kullanınca ayraç ne olacak hangi formatta olacak karmaşası yaşamanız doğal.

Bir de parametre ile deneyin isterseniz.

[csunguray]

(22-05-2023, Saat: 09:29)Mikdad Adlı Kullanıcıdan Alıntı: Hocalarım Allah razı olsun, tüm verdiğiniz kodları denedim, maskeditler yerine Edit te kullandım, hep aynı hata, 
access vt ISLEM tablosunda TARIH alanı tarih/saat seçili. alt taraftan özellik kısmında da kısa tarih olarak belirledim.  ama hala aşağıdaki hatayı veriyor.

Benim cevabım işinize yaramadı mı? Denemekte veya anlamakta zorluk mu çektiniz?

SELECT * FROM TABLE1 WHERE TARIH1 >= CDATE('2023-01-31') AND TARIH1 <= CDATE('2023-02-28')

Delphi ile kodlarsak:

Query1.SQL.Text := 'SELECT * FROM TABLE1 WHERE TARIH1 >= CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', DateEdit1.Date)) + ') AND TARIH1 <= CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', DateEdit2.Date)) + ')'

[Mikdad]

(22-05-2023, Saat: 10:23)csunguray Adlı Kullanıcıdan Alıntı:

(22-05-2023, Saat: 09:29)Mikdad Adlı Kullanıcıdan Alıntı: Hocalarım Allah razı olsun, tüm verdiğiniz kodları denedim, maskeditler yerine Edit te kullandım, hep aynı hata, 
access vt ISLEM tablosunda TARIH alanı tarih/saat seçili. alt taraftan özellik kısmında da kısa tarih olarak belirledim.  ama hala aşağıdaki hatayı veriyor.

Benim cevabım işinize yaramadı mı? Denemekte veya anlamakta zorluk mu çektiniz?

SELECT * FROM TABLE1 WHERE TARIH1 >= CDATE('2023-01-31') AND TARIH1 <= CDATE('2023-02-28')

Delphi ile kodlarsak:

Query1.SQL.Text := 'SELECT * FROM TABLE1 WHERE TARIH1 >= CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', DateEdit1.Date)) + ') AND TARIH1 <= CDATE(' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', DateEdit2.Date)) + ')'

hocam bu seferde hiç tepki vermiyor. tabloyu kapatıyor sorgulama yapmıyor. 
ben delpide yeniyim, çok fazla kod yazamıyorum. projeler üzerinden kendimi geliştiriyorum. bu projeyi de yaşlı ve engelli bireylerin ev temizliği yaptığımız haneler için kullanıyorum. iki tarih arası rapor isteniyor. 
aslında tam anlamı ile ihtiyaç duyduğum şey
combobox1 den Temizlik Yapıldı veya Adreste Bulunamadı gibi bir seçim yapıp daha sonra iki tarih belirtip sorgulayıp fastreport tan çıktı almak. ama bir türlü yapamadım.

[m_ekici]

Ben bu şekilde kullanıyorum. SQL serverdaki tarih düzenine göre hata alıyor olabilirsin.

SIP_.SQL.Add('AND TARIH Between CONVERT(DATETIME, '''+FormatDateTime('yyyy.mm.dd', IncDay (TARIH1, -1) )+' 00:00:00'', 102) and CONVERT(DATETIME, '''+FormatDateTime('yyyy.mm.dd', TARIH2 )+' 23:59:59'', 102)');

[TuncayDelphi]

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
ab,cd : STRING;
begin
ab := FormatDateTime ('yyyy mm dd', StrToDate(MaskEdit1.Text));
cd := FormatDateTime ('yyyy mm dd', StrToDate(MaskEdit2.Text));
ab := AnsiReplaceText(ab,' ','-');
cd := AnsiReplaceText(cd,' ','-');

FDISLEM.sql.Add('select * from ISLEM');
FDISLEM.sql.Add('WHERE TARIH >=:ilktarih and TARIH <=:sontarih');
FDISLEM.ParamByName('ilktarih').Value := ab+(' 00:00:00');
FDISLEM.parambyname('sontarih').Value := cd+(' 23:59:59');
FDISLEM.open;
end;

bu şekilde çalıştır

[Mikdad]

Destek Olan Tüm Hocalarımdan Allah Razı Olsun. Hakkınızı Helal Edin lütfen. Aşağıdaki kod ile sorunumu çözdüm. Başka bir dostumuzun ihtiyacı olur diye kodu yazıyorum.

Kod: (Select All)

begin
        FDISLEM.Close;
    FDISLEM.SQL.Clear;
    FDISLEM.SQL.Text:='select * from ISLEM where TARIH between :tar1 and :tar2';
    if RzComboBox_Durumu.Text<>'' then
    begin
        FDISLEM.SQL.Text:= FDISLEM.SQL.Text+' and YAPILAN_ISLEM=:PARYAPILAN_ISLEM';
         FDISLEM.Params.ParamByName('PARYAPILAN_ISLEM').AsString:=RzComboBox_Durumu.Text;
    end;

    FDISLEM.Params.ParamByName('tar1').AsDate:=DateEdit_ilktarih.Date;
       FDISLEM.Params.ParamByName('tar2').AsDate:=DateEdit_sontarih.Date;
       FDISLEM.Open;

end;