iki tarih arasıdeğişik bir sıralama

[metali]

cemali hocam şöyle bir sorum olacak daha önceden ugrastıgım fakat üstesinden gelemediğim bir sorunu sizle paylasmak istiyorum..

veritabanımda iki alan var başlangıç yılı ve bitiş yılı diye.

ör:

baş. yılı: 12/89
bitiş yılı: 12/99 gibi....

daha da korkunç olanı bu alanların hepsi char bilgi (string). ve ben bunlar arasında tarih aralıgdan sorgulamak istiyorum. bir öneriniz var mı ya da bir yol çizermisiniz.

[cemaliozan]

alanları tarih tipine çevirmelisin... Aksi halde istediğin sorgulama sonucunu elde edemezsin. Neden ? Cevabı sen ver...

[Caylaq]

strtoDate

[Caylaq]

Access ve Query kulanıyorusunz değil mi ?


Evet öyleyse aşağıdaki kodumu kendinize göre ayarlayınız lütfen

Sadece SQL cümlem biraz uzun kolay bir kod, hemen çözersiniz

 
 
 
 
adoquery2.close;                                                                                                                              //BETWEEN :tarih1  and :tarih2
adoquery2.sql.clear;
adoquery2.sql.add('SELECT [_TakasCekleri].*, CekKarti.MusteriKodu, CariKart.Unvani FROM (_TakasCekleri  '+' LEFT JOIN CekKarti ON [_TakasCekleri].CekNo = CekKarti.CekNo) LEFT JOIN CariKart ON    CekKarti.MusteriKodu = CariKart.Musterikodu   ');
adoquery2.sql.add(' where ( [_TakasCekleri].islemtarihi >=:tarih1 and [_TakasCekleri].islemtarihi <=:tarih2 ) '+'  and ([_TakasCekleri].Vade BETWEEN :tarih3  and :tarih4)  and  (([_TakasCekleri.DeleteUser]="") Or ([_TakasCekleri.DeleteUser] Is Null))        ');
// Çek seçili ise
if combobox2.ItemIndex = 0 then  AdoQuery2.Sql.Add(' and ([_TakasCekleri.SenetSahibi] =""  or  [_TakasCekleri.SenetSahibi]  Is Null)  and ( [_TakasCekleri.CekNo] <>""  and  [_TakasCekleri.CekNo]  Is not  Null )  AND [_TakasCekleri.CekmiSenetmi] ="ÇEK" ');
//Senet Seçili ise
if combobox2.ItemIndex = 1 then  AdoQuery2.Sql.Add('   and  ( [_TakasCekleri.CekNo] =""   or  [_TakasCekleri.CekNo]  Is Null )  AND [_TakasCekleri.CekmiSenetmi] ="SENET"    ');
if combobox1.Text <> ''then
begin
AdoQuery2.Sql.Add(' and  [_TakasCekleri.TahsilDurumu]  like "'+combobox1.text+'%"  ');
end;
//if ComboBox1.Text <> ''  then     AdoQuery1.Sql.Add('and  MMkodu like "'+combobox2.text+'%"    ');
AdoQuery2.Parameters.Parambyname('tarih1').DataType := ftDate;
AdoQuery2.Parameters.Parambyname('tarih1').Value := datetimepicker6.date-1;
AdoQuery2.Parameters.Parambyname('tarih2').DataType := ftDate;
AdoQuery2.Parameters.Parambyname('tarih2').Value := datetimepicker7.date;
AdoQuery2.Parameters.Parambyname('tarih3').DataType := ftDate;
AdoQuery2.Parameters.Parambyname('tarih3').Value := datetimepicker1.date-1;
AdoQuery2.Parameters.Parambyname('tarih4').DataType := ftDate;
AdoQuery2.Parameters.Parambyname('tarih4').Value := datetimepicker2.date;
adoquery2.Sql.Add('order by  [_TakasCekleri.Vade]');
adoquery2.Open;
dbgrid1.Columns[0].Width:=80;      //   Çekno
dbgrid1.Columns[1].Width:=80;      //   İşlemTarihi
dbgrid1.Columns[2].Width:=170;      //   takasbank
dbgrid1.Columns[3].Width:=150;      //   takasşube
//dbgrid1.Columns[4].Width:=0;      //   çek banka
//dbgrid1.Columns[5].Width:=0;      //   çek şube
DBGrid1.Columns[4].Visible := false;   //

[cemaliozan]

Caylaq, mesajından alıntı:

strtoDate

SQL yazarken strtoDate diye bir SQL fonksiyonu varmı ? Yoksa benim atladığım veya bilmediğim bir şeymi var ? Mümkünse açarmısın caylaq ?

PHP Kodu:

Var
    Tarih  : TDate;
  begin
     Tarih  := StrToDate('12.12.1988'); // ki encode etmeden bu bile sağlıklı olmayabilir.
  end; 


Bundan bahsetmiyorsun değil mi ?

[metali]

hocam ben bunların hepsini excel'den mysql'e aktarmıstım bu sırada bir dönüsüm mantıgını kuramamaıstım. o yuzden string kaldılar onlar. keşke strtodate('12/89') diye birşey olsa :P

[metali]

myqsl kullanıyordum caylaq bunda ama komutlarından bişeyler cıkarmaya calısayım umarım işime yarayan bişeyler olur

[cemaliozan]

İyide AdoQuery2.Parameters.Parambyname('tarih2').DataTyp e := ftDate;

Parametrenin tipi Date Alanın tipi Char ? Geç oldu ya birazda yaşlılık var pil bitti sanırım...

[metali]

evet hocam sanrıım bunu direk kaynagından sql ile bişeyler yapmalıyım,

convert(datetime,'05/08/2004',101)

şöyle bişeyler buluyorum, ama tam kuramıyorum

[Caylaq]

cemaliozan, mesajından alıntı:

SQL yazarken strtoDate diye bir SQL fonksiyonu varmı ? Yoksa benim atladığım veya bilmediğim bir şeymi var ? Mümkünse açarmısın caylaq ?

PHP Kodu:

Var
    Tarih  : TDate;
  begin
     Tarih  := StrToDate('12.12.1988'); // ki encode etmeden bu bile sağlıklı olmayabilir.
  end; 


Bundan bahsetmiyorsun değil mi ?

Yok Hocam ondan bahsetmiyorum elbette

 
 AdoQuery1.SQL.add('TRANSFORM sum(Format([CariHareket.Tutar],''Currency''))  as Tutaar');

Cemali Hocam Transformla String bir ifadeyi Currency'e çevirip, fastreporta gönderebiliyorum. Kümülatif bakiye için

 
KontrolQry.fieldbyname('Tarih').AsString // Format -> Asdate e çevirebiiriz

Bu dönüşüm zor değil ki

Metali Hocamın bir SQL yazmasına bakar.
Tüm Stringleri date çevierecek, tabloya yeniden yazdıracak.