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

بحث بتاريخ الميلاد يوم وشهر فقط

مغلق
بدأه كفاح في 1 سبتمبر 2006 · 6 رد · 1,165 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ياخوانى

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

بمعنى احتاج عمل بحث باليوم والشهر فقط ؟

نوع حقل التاريخ فى قاعدة البيانات ( تاريخ / ووقت)

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

	 Dim ConditionCriteria As Boolean = True
		DataSet11.Clear()
		OleDbDataAdapter1.SelectCommand.CommandText = "select * from [Emp]where [Pirthdate]like'" & DateTimePicker1.Text & "'"
		ConditionCriteria = False
		TextBox1.Focus()
		If ConditionCriteria = True Then
			OleDbDataAdapter1.Fill(DataSet11)
		End If
		Try
			Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
			Me.DataGrid1.DataSource = DataSet11.Tables("Emp")
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

أرجوا المساعدة ياخوانى

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

#2

السلام عليكم

استخدم ال DATEPART للحصول على اليوم والشهر من التاريخ المحدد

مثال

use northwind

SELECT DATEPART(day, BirthDate)as 'day', DATEPART(month, BirthDate)as 'Month'
from   Employees

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#3

اشكرك اخى وليد على الرد لكن انا استخدام قاعدة بيانات اكسيس

هل من حل اخر ؟؟

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

#4

السلام عليكم

الكود السابق عبارة عن جملة sql تشتغل Access او Ms sql server

بالتوفيق ان شاء الله

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#5

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

	   Dim ConditionCriteria As Boolean = True
		DataSet11.Clear()
		OleDbDataAdapter1.SelectCommand.CommandText = "SELECT DATEPART(day, Pirthdate)as 'day', DATEPART(month, Pirthdate)as 'Month' from [Emp] where [Pirthdate]like'" & DateTimePicker1.Text & "'"
		ConditionCriteria = False
		If ConditionCriteria = True Then
			OleDbDataAdapter1.Fill(DataSet11)
		End If
		Try
			Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
			Me.DataGrid1.DataSource = DataSet11.Tables("Emp")
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

WindowsApplication1.rar

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

#6

بسم الله الرحمن الرحيم

يا أخى انا لست محترفا فى هذا الموضوع ولكنك قمت بكتابة ما يلى

		ConditionCriteria = False
		If ConditionCriteria = True Then
			OleDbDataAdapter1.Fill(DataSet11)
		End If

وهذا معنا ان ما داخل عبارة IF لن يتم تنفيذه فأين تفوم بالحصول على البيانات بدون ملء الداتاسيتDataset11؟؟

bartkr7.png
#7

عندي طريقة بسيطه وبدائية :

SELECT * FROM Emp WHERE MONTH(Pirthdate)=6 AND DAY(Pirthdate)=26

طبعا انت بدل 6 و 26 تضع متغير الشهر بدل 6 ومتغير لليوم بدل 26

والسلام عليكم

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

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