تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بحث بالتاريخ
#1
السلام عليكم
هذا مثال رفعه أحد الزملاء جزاه الله خيراً فى المنتدى وكنت اريد معرفة البحث بواسطة التاريخ وقد اضفت زر له لهذا الغرض لكنى حاولت كثير اً ولم افلح
الرجاء المساعدة مع الشرح وجزاكم الله خيراً
.rar   SavingDate.rar (الحجم : 104.47 ك ب / التحميلات : 120)
.rar   SavingDate.rar (الحجم : 104.47 ك ب / التحميلات : 120)
الملف فى المرفقات
الرد }}}}
تم الشكر بواسطة:
#2
كود :
SELECTاسماء الحقول FROM اسم الجدول WHERE اسم حقل التاريخ = التاريخ المراد البحث عنه
مثال إذا كنت تستعمل DateTimePicker
كود :
SELECT ID, NAME, Birthday FROM tabel1 WHERE Birthday = CONVERT(DATETIME, '" & DateTimePicker1.Text & "', 102)

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: الجندى
#3
جزاك الله خيراً على المجهود الخير
لكن جربت الكود وما نجح
لو ممكن التعديل يكون فى الملف
وجزاكم الله خيراً
الرد }}}}
تم الشكر بواسطة:
#4
كود البحث يعطي خطأ
الرد }}}}
تم الشكر بواسطة:
#5
هل من مساعد يا أعضاء منتدانا الكرام
الرد }}}}
تم الشكر بواسطة:
#6
اذا كنت تستخدم قاعده بيانات اكسس استخدم الاستعلام التالي
SELECT MyDate
FROM tbl
WHERE MyDate Between #2/5/2006 # And #1/8/2006 #
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

اخي العزيز

اولا كان عنك خطأ في الاستعلام

ثانيا الكود المستخدم معقد جدا !!!!!!

ثالثا اجعل خاصية 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(LSQLCon)
        
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 "تاريخ الميلاد" 

انا جربته على مثالك والكود مية مية

تنبيه: عند رفعك مثال الى المنتدى تأكد من حذفك للملف التنفيذي قبل الرفع

تحياتي
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم