[سعود]

هذا مثال قد يؤنسك لانه باستخدام المكون BindingSource

وهذا كلاس الفورم

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim sql As String = "select * from tb"
   Dim dt As DataTable
   Dim bs As BindingSource
   Dim da As OleDb.OleDbDataAdapter
   Dim cm As OleDb.OleDbCommandBuilder

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dt = New DataTable
       bs = New BindingSource
       da = New OleDb.OleDbDataAdapter(sql, con)
       cm = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       bs.DataSource = dt

       tid.DataBindings.Add("text", bs, "tid")
       tn.DataBindings.Add("text", bs, "tn")
       age.DataBindings.Add("text", bs, "age")
       mo.DataBindings.Add("text", bs, "mo")

       d.DataSource = bs


   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       bs.MoveNext()
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       bs.MovePrevious()
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       bs.MoveFirst()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       bs.MoveLast()
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       If MsgBox("هل انت متاكد من رغبتك باضافة صف جديد؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
       bs.AddNew()
   End Sub

   

   Private Sub btnupd_Click(sender As Object, e As EventArgs) Handles btnupd.Click
       If MsgBox("هل انت متاكد من رغبتك بحفظ ", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
       bs.EndEdit()
       da.Update(bs.DataSource)
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       If MsgBox("هل انت متاكد من رغبتك بحفظ الصف الحالي كمعدل؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
       Dim drv As DataRowView = bs.Current
       drv(1) = tn.Text
       drv(2) = age.Text
       drv(3) = mo.Text
     
   End Sub
End Class