Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: MySql Tarih Formatında Sql Sorgusu  (Okunma sayısı 384 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı dynamo

  • Delphi 3 Level 4
  • ****
  • İleti: 137
  • Rep: +3/-1
MySql Tarih Formatında Sql Sorgusu
« : 22 Eylül 2011 09:03:01 »
mysql , sql sorularında tarih formatı yyyy-mm-dd olduğundan sorgular da bu şekilde olmalıdır,yoksa hata veriyor.Bunu, tarih formatını dönüştürecek bir fonksiyon ile haledebiliriz:

Kod: [Seç]
//Formatting Date Values for MySql SQL in Delphi    //tablo sorgusu ve insert/update için
function DateForMySql(const date : TDate) : string;
begin
  result := FormatDateTime('yyyy-mm-dd', date) ;
end;

Kod: [Seç]
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   tarih1,tarih2:TDate;
begin
   //windows tarih formatı farklı ise hata vermesin---------------------
   DateSeparator:='.';
   TimeSeparator:=':';
   ShortDateFormat:='dd'+DateSeparator+'mm'+DateSeparator+'yyyy';
   //--------------------------------------------------------------------------------
   
   tarih1:=Datetimepicker1.Date;
   tarih2:=Datetimepicker1.Date;
   s:='SELECT * from hareketler WHERE '+
      ' tarih>='''+DateForMysql(tarih1)+''' AND tarih<='''+DateForMysql(tarih)+'''  ';

   MyQuery1.Close;
   MyQuery1.SQL.Clear;
   MyQuery1.SQL.Add(s);
   MyQuery1.Open;
end;
« Son Düzenleme: 15 Ekim 2011 19:41:59 by dynamo »