Delphi 7 Query String ?
-
delphi 7 de yapmam gereken bir proje var, tabloda giristarihi alani var sorguda bugun giris yapan varmi kontrol etmem gerekiyor mysql_num_rows php deki karsiligi :) gelde bunu delphi 7 de yap kontrol edemiyorum kac tane kayit oldugunu Date kullandigimda 23.05 gibi cikti veriyor ve hata aliyorum nerde yanlis yaptigimi gosterirmisiniz tesekkurler.
procedure TForm1.Button1Click(Sender: TObject); begin Query1.DatabaseName:='otel'; Query1.SQL.Add('Select GirisTarihi'); Query1.SQL.Add('FROM oteldb'); Query1.SQL.add('Where GirisTarihi='+DateToStr(Date)); Query1.Open; DataSource1.DataSet:=Query1; if Query1.RecordCount = 0 then begin form3.show; form3.Edit6.text:=(Sender as TButton).Caption; end; end;
-
Bu gibi durumlarda kodu oku ve ne yaptığını kendine söyle :) deli derler ama salla meselaQuery1.SQL.add('Where GirisTarihi='+DateToStr(Date));
üstteki satır sql sorgusu ne olur.? şuan için "24.05.2012" peki bu veri tabanında aynı formatta mı? -
bugunun kodunu yazarmisin hocam date tipinde :)
DateUtils kutuphanesindeki Today fn baska procedurelerden ulasabiliyorum ama query deki stringde ulasamiyorum
-
updullah
-
Hocam SQl sonuc itibari ile bi stringdir...
git mysql servera
Select NOW() çalıştır sonucu al...
Sonra gel koduna, o mysqlin verdiği çıktının aynısını string ile oluştur... sorun çözülür...