التحكم في بعض خصائص ال Bindingnavigation

السلام عليكــم ورحمـة الله وبركاتــه ،،

احتجت للتحكم في بعض خصائص ال Binding Navigation لزري الاضافة والحذف فبحثت عن الاكواد وتوصلت اليها بعد تحويلها من C# لل VB بحمد الله واحببت مشاركتها لما قد تفيد الجميع وتضيف لمسة بسيطة على البرامج باقل اكواد ممكنة ... :wink:

اولا: كود التحقق من وجود قيمة حالية

:blush:

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

 Conn.Open()
		Dim cmd As New SqlCommand()
		cmd.CommandText = "Select * from Table where Name = @NameTBX"
		cmd.Parameters.AddWithValue("@NameTBX", Me.NameTextBox.Text)
		cmd.Connection = Conn

		'Checks the query`s result
		'cmd.ExecuteScalar() Will have a value only if the ID is already stored in the database.
		If (cmd.ExecuteScalar() Is Nothing) Then
			Me.Validate()
			Me.BindingSource.EndEdit()
			Me.TableTableAdapter.Update(Me.DataSet.Table)
			MsgBox("Data Saved")
		Else
			MsgBox("This Record is already Exist")
			cmd.Connection.Close()
			Conn.Close()
		End If

ثانيا: تأكيد الحذف من قبل المستخدم

اولا قم بايقاف كود الحذف في الحدث Load للفورم

Me.TableBindingNavigator.DeleteItem = Nothing

ثانيا قم بسؤال المستخدم وتفعيل الحذف في الزر الخاص بالحذف

 If MsgBox("Are You sure?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
			Me.TableBindingSource.RemoveCurrent()
		End If

تحياتي للجميع

:wub: