ربط الداتابيز بالفيجوال

أرجوا وضع الكود حتى نستطيع مساعدتك

الأخ الفاضل أبو عزام

أشكرك في البداية على اهتمامك

وهذا هو الكود في FORM1

Public Class Form1


	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		' TODO: This line of code loads data into the 'Sameh_mohammedDataSet.emp_connection' table. You can move, or remove it, as needed.
		'Me.Emp_connectionTableAdapter.Fill(Me.Sameh_mohammedDataSet.emp_connection)

	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click, button1.Click
		Me.Emp_connectionTableAdapter.Fill(Me.Sameh_mohammedDataSet.emp_connection)
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Me.Emp_connectionTableAdapter.Update(Me.Sameh_mohammedDataSet)
	End Sub

	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet, "emp_connection").Position = 0
	End Sub

	Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet, "emp_connection").Position -= 1

	End Sub

	Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet, "emp_connection").Position += 1
	End Sub

	Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet, "emp_connection").Position = Me.BindingContext(Me.Sameh_mohammedDataSet, "emp_connection").Count - 1

	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet.emp_connection).AddNew()
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Me.BindingContext(Me.Sameh_mohammedDataSet.emp_connection).RemoveAt(Me.BindingContext(Me.Sameh_mohammedDataSet.emp_connection).Position)

	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

	End Sub

	Private Sub EmpconnectionBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpconnectionBindingSource.CurrentChanged

	End Sub
End Class