[sniperjawadino]

فكرت في مراسلته أخي
بس مو وجدت أيقونة المراسلة

فأتمنى أن يشاهد الموضوع

كما أتمنى أن أجد عندك مثال مثله يستخدم DataBindings

---

كود :

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