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
  Hangi sürüm delphi kullanmalıyım ? seci20 9 244 14-07-2018, Saat: 18:42
Son Yorum: SercanTEK
Exclamation [ÇÖZÜLDÜ] Delphi EXE Resource TR Dil Sorunsalı mrmarman 6 191 12-07-2018, Saat: 11:09
Son Yorum: mrmarman
  İşlemi hızlandırma? Thread? canbir 14 496 07-07-2018, Saat: 00:51
Son Yorum: ssahinoglu
  Delphi ile recovery mode Lord_Ares 19 575 06-07-2018, Saat: 01:24
Son Yorum: Lord_Ares
  delphi içinden şablon çağırma murtishow76 13 434 29-06-2018, Saat: 13:00
Son Yorum: murtishow76



Konuyu Okuyanlar: 1 Ziyaretçi