[mrfodri]

تم إضافة كود تحديث قاعدة البيانات وستحدث الداتاجريد معها

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       da = New OleDbDataAdapter("select*from stock ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

       For i As Integer = 0 To dt.Rows.Count - 1

           dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       Next

       Dim cb As New OleDbCommandBuilder(da)
       da.Update(dt)
       dt.AcceptChanges()

   End Sub

End Class

---

ملاحظة: من صورة قاعدة بيانات الأكسس واضح في الجدول stock أن alkmiya نوعها (نص) والمفروض يكون نوعها (رقم)