[Abu Ehab]

عمرها ما حصلت أنه :
أبوأيهاب يرفع كود خـــطأ ..

طيب :
عملية جراحية سريعه على الكود

PHP كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim myDA As OleDbDataAdapter
    Dim Ds As DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=db2.mdb")
        Dim Da As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM table_user", con)



        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(myDA)

        Ds = New DataSet()
        Ds.Clear()
        Da.Fill(Ds, "MyTable")
        DataGridView1.ColumnCount = 4
        For i As Integer = 0 To Ds.Tables(0).Rows.Count - 1
            DataGridView1.Rows.Add(New String() {Ds.Tables(0).Rows(i).Item(0).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(1).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(2).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(3).ToString()})
        Next
        Dim TotalCostPrice As Integer = (From rr As DataGridViewRow In DataGridView1.Rows _
                              Select CInt(rr.Cells(3).Value)).Sum()


        DataGridView1.Rows.Add(New String() {"Total", "", "", TotalCostPrice})


        For Each r As DataGridViewRow In DataGridView1.Rows

            r.HeaderCell.Value = (r.Index + 1).ToString()
            If r.Cells(0).Value = "Total" Then
                r.DefaultCellStyle.ForeColor = Color.White
                r.DefaultCellStyle.BackColor = Color.Black
            End If



        Next

    End Sub

    ' Save data from DataGridView into Database
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        Me.myDA.Update(Ds.Tables("MyTable"))
        Me.Ds.AcceptChanges()
    End Sub

  

End Class