[مخالف]مساعدتكم يا اخوان ((مستجد في الدوت نت))

السلام عليكم ورحمة الله

ودي اشكر كل القائمين على هذا المنتدى الرائع اولاً

وثانياً عندي مشروع ودي انتهي منه في قواعد البيانات ... البرنامج باختصار عندي برنامج صممت قاعدة البيانات بالـ sql مشكلتي مع :

1) ابغى اضيف Buttons (اضافة سجل جديد للقاعدة) و (حذف السجل الحالي) و (بحث من خلال اي عمود في Table انا اختاره مثلاً )

2) اجتهدت في عمل اربعه buttons للتنقل بين السجلات (آخر سجل) (السجل السالي) (السجل السابق) (اول سجل) ومشت معاي آخر حلاوة بس لما اروح على آخر سجل يوقف وما ينتقل بيت السجلات لازم اعمل كليك على زر التحديث (وهذا بعد انا سويته)

راح ارفق لكم كود البرنامج ولاتقصرون الله يخليكم

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</P> 
	End Sub</P> 
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim T As BindingManagerBase</P> 
		T = Me.BindingContext(DataSet11, "Diress")</P> 
		If T.Position < T.Count - 1 Then T.Position += 1</P> 
 </P> 
	End Sub</P> 
	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Dim T As BindingManagerBase</P> 
		T = Me.BindingContext(DataSet11, "Diress")</P> 
		If T.Position < T.Count - 1 Then T.Position -= 1
	End Sub</P> 
	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Dim T As BindingManagerBase</P> 
		T = Me.BindingContext(DataSet11, "Diress")</P> 
		If T.Position < T.Count - 1 Then T.Position = 0
	End Sub</P> 
	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		Dim T As BindingManagerBase</P> 
		T = Me.BindingContext(DataSet11, "Diress")</P> 
		If T.Position < T.Count - 1 Then T.Position = T.Count - 1
	End Sub</P> 
	Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click</P> 
	End Sub</P> 
	Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click</P> 
	End Sub
End Class