[arsende]

MySQL de kullandığım fonksiyon ve bir soruguyu ekliyorum.

Anlaman için böyle sorugu ekliyorum..

'------------------------
SonTarih=Date()
T1=day(SonTarih)
T2=month(SonTarih)
T3=year(SonTarih)
SorguTarihi=T3&"-"&T2&"-"&T1  '  vt de  format 2006-12-12
'------------------------

SET SQLTop = Baglantix.Execute("SELECT COUNT(ID) FROM program WHERE program_durum=1 and program_baslama_tr  >= '"&SorguTarihi&"' ")

yenitarih=Date()

tarih >= '"& tarihSorgu (tarihSorgu) &" .................

	function tarihKaydet ( hangiTarihi )
		
		if isdate(hangiTarihi) then
			dim duzenlenmisTarih
			duzenlenmistarih = year(hangitarihi)&"/"
			duzenlenmistarih = duzenlenmistarih & month(hangitarihi)&"/"
			duzenlenmistarih = duzenlenmistarih & day(hangitarihi)
		end if

	tarihKaydet = duzenlenmisTarih
	end function

	function tarihSorgu ( hangiTarihi )
		
		if isdate(hangiTarihi) then
			dim duzenlenmisTarih
			duzenlenmistarih = year(hangitarihi)&"-"
			duzenlenmistarih = duzenlenmistarih & month(hangitarihi)&"-"
			duzenlenmistarih = duzenlenmistarih & day(hangitarihi)
		end if

	tarihSorgu = duzenlenmisTarih
	end function


	function tarihGoster ( hangiTarihi )
		
		if isdate(hangiTarihi) then
			dim duzenlenmisTarih
			duzenlenmistarih = duzenlenmistarih & day(hangitarihi)
			duzenlenmistarih = duzenlenmistarih &"/"&month(hangitarihi)
			duzenlenmistarih = "/"&year(hangitarihi)
		end if

	tarihGoster = duzenlenmisTarih
	end function

VT de tarihler bu şekilde ise sorun olmaz "2006-12-12" değil ise o formata göre sorguyu düzenlersiniz.


Access'ten geçiş sancılı oluyor eğer execute metodunu fazla kullanmadıysanız herşey SQL ve execute ile olsun hız performans süper, her zaman recordset çalışır derler ama henüz göremedim..