عندي مشكلة في اضافة التاريخ في برنامجي

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

فياليت توضح لي ماتريد

ياهلا والله اخوي ابو عزام

شاكر مرورك على موضوعي

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

وانا استخدم maskedtextbox لإدخال التاريخ لكن عند حفظ المعلومات لا يحفظ التاريخ المدخل بل يحفظ القيمة الموجودة في textbox1 + رقم 1

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

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

الشئ الثاني .. طلب ياليت لو تساعدوني فيه..

2- لاحظة بعض المبرمجين يستخدمون هذه الاداة dateTimePicker او اداة مشابهه لها لإدخال التاريخ ويكون التاريخ بالهجري فإن وجد كود او طريقة لاستخدام هذه الاداه في ادخال التاريخ (هجري) اكون لك من الشاكرين

صورة توضيحية لشكل التاريخ في البرنامج

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

معليش اذا ماعليك كلفة ذكرت في ردك

اقتباس

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

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

لك مني اطيب تحيه استاذي

وما زلت انتظر من يحل مشكلتي

مرحباً أخي الكريم :)،

بالنسبة لما يقصده الأخ ( أبو عزام ) :

استخدام المعاملات اي ( Parameters ) فهي تساعدك على ترتيب وإعداد القيم المطلوبة لإضافة سجل بشكل متقن وآمن أكثر من استخدامات الأوامر النصية،

كمثال :

Dim _DBasePath As String = "FileName"
	Private Function AddNewRecord(ByVal fullname As String, _
	ByVal profession As String, ByVal placeofbirth As String, _
	ByVal dateofbirth As Date) As String
		Dim ValidInfo As Boolean = ((fullname <> "") And _
		(profession <> "") And (placeofbirth <> ""))

		If Not ValidInfo Then
			Return "You have to fill the fields before you add a new record ."
		End If
		If Not File.Exists(_DBasePath) Then
			Return "The specified data base file wasn't found ."
		End If
		Dim ConnStr As String = String.Format("Data Source=.\" & _
		"SQLEXPRESS;AttachDbFilename={0};Integrated Security=True" & _
		";User Instance=True", _DBasePath)
		Dim Conn As New SqlConnection(ConnStr)
		Try
			Dim CMD As New SqlCommand( _
			"Insert Into Employees (FullName, Profession, PlaceOfBirth, DateOfBirth) " & _
			"Values (@FullName,  @Profession, @PlaceOfBirth, @DateOfBirth)", Conn)
			With CMD.Parameters
				.Add("@FullName", SqlDbType.NVarChar, 50, "FullName").Value = fullname
				.Add("@Profession", SqlDbType.NVarChar, 30, "Profession").Value = profession
				.Add("@PlaceOfBirth", SqlDbType.NVarChar, 50, "PlaceOfBirth").Value = placeofbirth
				.Add("@DateOfBirth", SqlDbType.SmallDateTime, 4, "DateOfBirth").Value = dateofbirth
			End With
			Conn.Open()
			Dim Msg As String = String.Format("{0} row(s) was affected .", CMD.ExecuteNonQuery)
			CMD.Dispose()
			Conn.Close()
			Return Msg
		Catch SQEx As SqlException
			Conn.Close()
			Return (SQEx.Message)
		Catch Ex As Exception
			Conn.Close()
			Return (Ex.Message)
		End Try
		Return ""
	End Function

وبالنسبة لآداة الـ( DateTimePicker ) فهي لاتدعم التاريخ الهجري :( ولايمكن تغيير هذا الشيء لأن مصدره الـ( Windows ) .