[alfeysal2]

اخوي انت لم تعمل جملة update

---

كود :

 'Public Sub update_("أسم الاجراء")(ByVal "ضع هنا نوع البرايمتر" As String, ByVal ID2 As Integer)
    '    Dim Cmd As New OleDbCommand(" update * From Products where (ID=@ID2) ", Con)
    '    Cmd.Parameters.Add("ضع هنا نوع البرايمتر", OleDbType.VarChar).Value = "ضع هنا نوع البرايمتر"
    '    Cmd.Parameters.Add("ID2", OleDbType.Integer).Value = ID2
    '    Con.Open()
    '    Cmd.ExecuteNonQuery()
    '    Con.Close()
    '    Cmd = Nothing
    'End Sub