[rnmr]

جرب هذا

طريقة شائعة

كود :

Dim da As New OleDbDataAdapter(String.Empty, con)
Dim dt As New DataTable
Dim WithEvents bs As New BindingSource

Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load

   Dim da As New OleDbDataAdapter("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
   da.Fill(dt)
   bs.DataSource = dt

   TextBox1.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_ID")
   TextBox2.DataBindings.Add("Text", bs, "CUSTOMERDETAILS_CODE")
   TextBox3.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NAME")
   TextBox4.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_COMPANY")
   TextBox5.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_TELEPHON")
   TextBox6.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NOTE")
   TextBox7.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DATE")
   TextBox8.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_CREDIT")
   TextBox9.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DEBIT")
   TextBox10.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_BLANCE")

   DATAG_CLIENONLIN.DataSource = bs

End Sub

' تحديث البيانات في جدول قاعدة البيانات
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   bs.EndEdit()
   Dim b As New OleDbCommandBuilder(da)
   da.Update(dt)
End Sub

' عرض رقم السجل الحالي من مجموع عدد السجلات
Private Sub bs_PositionChanged(sender As Object, e As EventArgs) Handles bs.PositionChanged
   Me.Text = String.Format("{0}/{1}", bs.Position + 1, bs.Count)
End Sub