Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi 7 MySql Tarih işlemi
#1
Merhaba, 

ben delphi 7 ile mysql'e bağlanıp başlangıç tarihi bitiş tarihinden çıakrıp eğer 0 gün kalmış ise bunu kullanıcıya iletip süreniz dolmuştur diye bir mesaj vermek istiyorum, bunun için SQL komutlarında kullanılan çıkarma işlemini kullandım, ama çalışmıyor stabil bunun yerine başka nasıl yol izleyebilirim ? Teşekür ederim. 

örnek kodum 

var
s : TDate;
begin
  MyQuery1.Close;
  MyQuery1.SQL.Clear;
  MyQuery1.SQL.Add('select (created_at - end_at) as user_date from users where name='+#39+edit1.Text+#39);
  MyQuery1.Open;
if MyQuery1.RecordCount = 0 then  begin
MyQuery1.Params.ParamByName('user_date').Value := s;
  if s <= 0 then begin
ShowMessage('Lütfen hesabınızı yeniden aktive edin');
MyQuery1.Close;
WWW
Cevapla
#2
Siz s'ye değer atamamışsınız.
user_date ile aldığınız değeri s'ye aktarmanız gerekmiyor mu?
There's no place like 127.0.0.1
WWW
Cevapla
#3
(18-05-2017, Saat: 14:27)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSiz s'ye değer atamamışsınız.
user_date ile aldığınız değeri s'ye aktarmanız gerekmiyor mu?

Merhaba Hocam, 

Burda değer atamışım 

MyQuery1.Params.ParamByName('user_date').Value := s;
WWW
Cevapla
#4
(18-05-2017, Saat: 14:31)dicle_gsm Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-05-2017, Saat: 14:27)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSiz s'ye değer atamamışsınız.
user_date ile aldığınız değeri s'ye aktarmanız gerekmiyor mu?

Merhaba Hocam, 

Burda değer atamışım 

MyQuery1.Params.ParamByName('user_date').Value := s;

MyQuery1.Params.ParamByName('user_date').Value := s;
bu satırın önüne
showmessage(datetostr(s));
yazın size ne mesajı verecek

“Do. Or do not. There is no try.”
Cevapla
#5
Siz parametreye "s" değerini atamış oluyorsunuz (ki onuda yapamazsınız aslında), "s" ye önceden bir değer ataması yapmamışsınız. Hem orda recordcount neden "0" çıksın, sıfır çıkarsa zaten users tablonuz boş demektir, boş olunca userdate alanınızda boş gelir, hiçbi şekilde kontrol yapamazsınız.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#6
Herkes cevap verdiği için teşekür ederim, bir hocamızın yardımı ile sorunu çözdüm, 

var
 MyDate: TDateTime;
begin
  MyQuery1.Close;
  MyQuery1.SQL.Clear;
  MyQuery1.SQL.Text := 'SELECT created_at FROM users WHERE name = :asd';
  MyQuery1.ParamByName('asd').AsString := 'asd';
  MyQuery1.Open;
MyDate := MyQuery1.FieldByName('created_at').AsDateTime;
Memo1.Lines.Add(DateTimeToStr(MyDate));
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ile Json Parse İşlemi yhackup 11 675 Dün, Saat: 14:33
Son Yorum: hakanharbeli
Question delphi 10.1'den 10.2' ye geçiş BY-HAYALET 10 170 Dün, Saat: 12:33
Son Yorum: BY-HAYALET
  Php vb. kullanmadan Mysql upload nehirnnn 18 397 12-02-2018, Saat: 11:13
Son Yorum: esistem
  Delphi ile NVİ KPS (Kimlik Paylaşım Sistemi) web servislerine bağlanma. csunguray 9 313 07-02-2018, Saat: 13:30
Son Yorum: ismailkocacan
  Delphi Eval Hakkında narkotik 8 183 26-01-2018, Saat: 01:46
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi