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
  Mysql db'ye bağlantı kurma Dostk 3 136 05-04-2018, Saat: 19:55
Son Yorum: faktoral
  Mysql database bağlantısı serhat 3 154 31-03-2018, Saat: 08:36
Son Yorum: klavye
  Delphi Uygulama Güvenliği hyperxman 12 375 31-03-2018, Saat: 00:29
Son Yorum: mcuyan
  CalendarView tarih değeri dilo 3 131 26-03-2018, Saat: 22:12
Son Yorum: mrmarman
  Delphi Sql Tarih Sorunu Pimapen_Nuri 15 544 14-03-2018, Saat: 17:29
Son Yorum: Pimapen_Nuri



Konuyu Okuyanlar: 1 Ziyaretçi