[سعود]

كودك صحيح فقط ينقص commandbuilder

كود :

Dim ss As String = "select * from tb"        

Dim aad As New OleDbDataAdapter(ss, con)
        Dim co As New OleDbCommandBuilder(aad)
        Dim dss As New DataSet
        dss.Clear()
        aad.Fill(dss, "tb")




        For Each row As DataRow In dss.Tables("tb").Rows
            row.Item("c3") = row.Item("c1") + row.Item("c2")
        Next
        aad.Update(dss, "tb")
        getdaat()
        MsgBox("تمت عملية التعديل   بنجاح", MsgBoxStyle.DefaultButton1, " ")