+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : بحث بالتاريخ (/showthread.php?tid=2021)
بحث بالتاريخ - الجندى - 25-02-14
السلام عليكم
هذا مثال رفعه أحد الزملاء جزاه الله خيراً فى المنتدى وكنت اريد معرفة البحث بواسطة التاريخ وقد اضفت زر له لهذا الغرض لكنى حاولت كثير اً ولم افلح
الرجاء المساعدة مع الشرح وجزاكم الله خيراً[attachment=1402][attachment=1402]
الملف فى المرفقات
RE: بحث بالتاريخ - Genius Live - 25-02-14
كود :
SELECTاسماء الحقول FROM اسم الجدول WHERE اسم حقل التاريخ = التاريخ المراد البحث عنهكود :
SELECT ID, NAME, Birthday FROM tabel1 WHERE Birthday = CONVERT(DATETIME, '" & DateTimePicker1.Text & "', 102)
RE: بحث بالتاريخ - الجندى - 25-02-14
جزاك الله خيراً على المجهود الخير
لكن جربت الكود وما نجح
لو ممكن التعديل يكون فى الملف
وجزاكم الله خيراً
RE: بحث بالتاريخ - atefkhalf2004 - 26-02-14
كود البحث يعطي خطأ
RE: بحث بالتاريخ - الجندى - 27-02-14
هل من مساعد يا أعضاء منتدانا الكرام
RE: بحث بالتاريخ - Genius Live - 27-02-14
اذا كنت تستخدم قاعده بيانات اكسس استخدم الاستعلام التالي
SELECT MyDate
FROM tbl
WHERE MyDate Between #2/5/2006 # And #1/8/2006 #
SELECT MyDate
FROM tbl
WHERE MyDate Between #2/5/2006 # And #1/8/2006 #
RE: بحث بالتاريخ - Sajad - 28-02-14
السلام عليكم
اخي العزيز
اولا كان عنك خطأ في الاستعلام
ثانيا الكود المستخدم معقد جدا !!!!!!
ثالثا اجعل خاصية CustomFormat للأداة DateTiemPicker يساوي dd/MM/yyyy
رابعا غير خاصية الـ Format للأداة DateTimePicker الى Custom
وغير كود البحث بالتاريخ الى الكود التالي:
PHP كود :
Dim LSQL As String = "select * from TheTable where TheBirthDate = #" & dtDate.Value & "# order by ID"
Dim LAdapter As New OleDbDataAdapter(LSQL, Con)
Dim LDataSet As New DataSet
Dim mytable As DataTable
Con.Open()
LAdapter.Fill(LDataSet)
Con.Close()
mytable = LDataSet.Tables(0)
dgvList.Columns.Clear()
dgvList.DataSource = mytable
dgvList.Columns("ID").HeaderText = "التسلسل"
dgvList.Columns("TheName").HeaderText = "الاسم"
dgvList.Columns("TheBirthDate").HeaderText = "تاريخ الميلاد"
انا جربته على مثالك والكود مية مية
تنبيه: عند رفعك مثال الى المنتدى تأكد من حذفك للملف التنفيذي قبل الرفع
تحياتي