select MAX(TARIH) sorunu

[ngul]

Kod: Tümünü seç

Qtrh.Close;
Qtrh.SQL.Text:='select max(TARIH) as MAXTAR from OITAKIP WHERE SOI=:SN';
Qtrh.Open;
if Qtrh.RecordCount>0 then begin
         TBoikonTARIH.Value:=QtrhMAXTAR.Value+1;
end else begin
         TBoikonTARIH.Value:=Date;
end;

bu şekilde bir sorguda record sayısı 0 olduğunda tarihi 31.12.1899 olarak kaydediyor. sorun nedir yardımcı olurmusunuz? Firebird database kullanıyorum.
SOI=:SN parametre değerini master tablodan alıyor.

[sabanakman]

Kod: Tümünü seç

Qtrh.Close;
Qtrh.SQL.Text:='select max(TARIH) as MAXTAR from OITAKIP WHERE SOI=:SN';
Qtrh.Open;
if Qtrh.RecordCount>0 then begin
         TBoikonTARIH.Value:=QtrhMAXTAR.Value+1;
end else begin
         TBoikonTARIH.Value:=Date;
end;

bu şekilde bir sorguda record sayısı 0 olduğunda tarihi 31.12.1899 olarak kaydediyor. sorun nedir yardımcı olurmusunuz? Firebird database kullanıyorum.
SOI=:SN parametre değerini master tablodan alıyor.

if Qtrh.RecordCount>0 then begin yerine if Trunc(QtrhMAXTAR.AsDateTime)>0 then begin kullan. Delphide tarih değerinin 0 karşılığı belirttiğin değerdir. (30.12.1899)

Kod: Tümünü seç

Qtrh.Close;
Qtrh.SQL.Text:='select max(TARIH) as MAXTAR from OITAKIP WHERE SOI=:SN';
Qtrh.Open;
if Trunc(QtrhMAXTAR.AsDateTime)>0 then begin
         TBoikonTARIH.Value:=QtrhMAXTAR.Value+1;
end else begin
         TBoikonTARIH.Value:=Date;
end;

[ngul]

yardımınız için teşekkürler