الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد عمل بحث بين تاريخين ASP

مغلق
بدأه ismail_mohamed ali في 12 سبتمبر 2006 · 8 رد · 660 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

ارجو وضع لي كود عمل بحث بين تاريخين في المثال المرفق لاني لم اوصل الي اي شي في عمل هذا الكود وانا مبتدئ

gewamed.rar

#2

السلام عليكم

لاستخدام التاريخ في البحث اولا يجب التاكد من ان المستخدم ادخل تاريخ للبحث منه

وايضاانه ادخل تاريخ صحيح فاذا كان كذالك نضعه كشرط في الاستعلام

 dim EVDATE_Where
   EVDATE_Where=""
   if trim(T1)<>"" then
	  if isdate(T1) then 
		 EVDATE_Where=" And EVDATE = #" & T1 & "# "
	  else
		 '// show message that is not a valid date 
		 '// or \do what ever
	  end if
   end if

وهنالك شيئ اخر عند استخدام النصوص بالبحث يجب استبدال ال ' ب '' لعدم وقوع اخطاء وعدم اللعب بجملة الsql

حاول ان تضع علامة ' داخل الحقل وستعرف ماذا اقصد بالشق الأول

   function ToSQLString(strValue)
	  ToSQLString=replace(strValue,"'","''")
   end function

   sql="SELECT TYPE,TITLE,EVDATE,WABADDRESS FROM EV WHERE TYPE='" & ToSQLString(evselect) & "'" + _
	   EVDATE_Where  & " And WABADDRESS like '%" & ToSQLString(T2)& "%' And TITLE like '%" & ToSQLString(T3)& "%'"

والله اعلم

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#3

اخي Mo7eb_Alrasool ممكن تضع هذا الكود بدخل الصفحة المرفق وشكرا لك

#4

السلام عليكم

هذا ملفك مع اضافة الكود

sh_ev.rar

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#5

اخي اولا شكرا جدا علي سرعة الرد

ولكن انا اريد ايضا عملية BETWEEN بين تاريخين ارجو منك عمل لي هذه الخطوه واكون شكر جدا وانا حولت في الاول عمله بطريقة الموجود في الملف الرفق

وارجو ان تساعدني وشكرا لك

الملف

test_sh.rar

#6

السلام عليكم

dim EVDATE_Where
   EVDATE_Where=""
   if trim(T1)<>"" then
	  if isdate(T1) and not isdate(T4) then 
		 EVDATE_Where=" And format(EVDATE,'dd/mm/yyyy') = '" & T1 & "' "
	  elseif isdate(T1) and isdate(T4) then 
		 EVDATE_Where=" And format(EVDATE,'dd/mm/yyyy') BETWEEN '"&T1&"' and '" & T4 &"'"  
	  end if
   end if

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#7

شكرا اخي علي المساعده ومش عارف اقول لك تعبير عن المجهود الذي تبذله من اجلي ومن اجل الاخيرين

-------------------------------------------------------------

انا وضعت الكود ولم يرجع بمجموعة التواريخ التي تكون بين الفترتين ومشعرف اية السبب وانا ارفقت لك الملف لتصحح الخطا واشكرك

EV3.rar

#8

السلام عليكم

اخ الكريم اولا انت ليش غيرت نوع البيانات للحقل EVDATE

من DateTime الى Text?

جرب الكود التالي وراح يشتغل ان شاء لله

dim EVDATE_Where
   EVDATE_Where=""
   if trim(T1)<>"" then
	  if isdate(T1) and not isdate(T4) then 
		 EVDATE_Where=" And cdate(format(EVDATE,'dd/mm/yyyy')) = cdate('" & T1 & "') "
	  elseif isdate(T1) and isdate(T4) then 
		 EVDATE_Where=" And cdate(format(EVDATE,'dd/mm/yyyy')) BETWEEN cdate('"&T1&"') and cdate('" & T4 &"')"  
	  end if
   end if

لي تعليق بسيط بجصوص الحقل TYPE الموجودفي الجدول EV الافضل ان تضع رقم النوع بدل الأسم وان تنشئ جدولا جديدا وان تضع فيه رقم الType والTYPE

أظن ان الجدول EVD ممكن ان يكون هو الذي اتكلم عنه ولكنك تستخدم الاسم بدل المفتاح الرئيسي

ولكن الربط يجب ان يكون المفتاح من الجدول EVD بالمفتاح الاجنبي EVD_ID (الذي سوف تنشئه وتستبدله بالحقل TYPE)

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#9

جزاك الله خيراً اخي العزيز

وشكرا جدا جدا علي المساعده

هذا الموضوع مغلق.

مواضيع مشابهة