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

كيفية البحث عن البيانات بين تاريخين باستخدام استعلام ٍsql

مغلق
بدأه السراج المنيـر في 27 سبتمبر 2007 · 2 رد · 1,363 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي برنامج مبرمج في Microsoft Visual Studio 2005 ومربوط مع قاعدة بيانات Access وأريد البحث بين تاريخين يختارهم المستخدم من الأداة DateTimePicker ولنفرض أن تاريخ البداية هو المتغير fromDate وتاريخ النهاية هو المتغير toDate فكيف يمكنني كتابة الاستعلام؟

لقد كانت لي محاولات عديدة باءت بالفشل وهذه بعض المحاولات الفاشلة 

Dim sqlQuery As String = "select num from invoice where date0 >= #" & fromDate & "# and date0 >= #" & toDate & "#"

Dim sqlQuery As String = "select num from invoice where date0 >= '" & fromDate & "' and date0 >= '" & toDate & "'"

أرجو من الأخوة الكرام مساعدتي في حل مشكلتي هذه ولكم جزيل الشكر ووافر الامتنان

#2

فشلت محاولاتك لأنك لم تقم بعمل فرومات صحيح للتاريخ... يعني:

التاريخ fromDate ربما يحتوي القيمة 1/5/2007 حيث 5 هي الشهر و 1 هو اليوم... وهذا خطأ! لأن عبارة SQL ترسل الفرومات الأمريكي للتاريخ وهو كالتالي:

الشهر / اليوم / السنة

وليس

اليوم / الشهر / السنة

جرب التالي بعد التأكد من أن قاعدة البيانات تحتوي على نتائج يمكن إيجادها... وأيضاً التأكد من أن fromDate و toDate هما متغرين من نوع Date :

	Dim sqlQuery As String = "select num from invoice where date0 >= #" & Format(fromDate, "MM/dd/yyyy") & "# and date0 >= #" & Format(toDate, "MM/dd/yyyy") & "#"

وأتمنى لك التوفيق دائماً..

أخوك..

تم تعديل هذه المشاركة بواسطة Adel_N في 27 سبتمبر 2007 في 14:42

In order to understand recursion, one must first understand recursion

alawfiadel@yahoo.com

#3 
			SQL_Query = "Select * From [جلسات الخبراء] "
			SQL_Query = SQL_Query & "Where [موعد الجلسة القادمة] " & _
			"Between Datevalue('" & Now.Date & "') And DateValue('" & Now.AddDays(4) & "')"
			SQL_Query = SQL_Query & " Order By [م] Asc"
			MyCommand.CommandText = SQL_Query
			Try
				MyDataReader = MyCommand.ExecuteReader()
			Catch ex As Exception
				MsgBox(ex.Message)
				MyConn.Close()
				Exit Sub
			End Try

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…