[الطالب]

سلام

عندك خطأين

1: انواع الحقول ليست (نعم/لا) وقد يفس الرقم بالغرض ولكن ليس عملي


2: لديك بارامترات بنفس الاسم وهما @da الخاص بالحقلين day وdata وهذا هو سبب المشكلة

كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim sql As String = _
        "UPDATE [login] " & _
        "SET    [user] =  @user, " & _
        "       [pass] =  @pass, " & _
        "       [add] =   @add, " & _
        "       [cars] =  @cars, " & _
        "       [day] =   @day, " & _
        "       [stor] =  @stor, " & _
        "       [entag] = @entag, " & _
        "       [data] =  @data, " & _
        "       [admin] = @admin " & _
        "WHERE  [loginID] = @loginID "
    Dim cmd As New OleDbCommand(sql, Con)
    cmd.Parameters.AddWithValue("@user", txtuser.Text)
    cmd.Parameters.AddWithValue("@pass", Val(txtpass.Text))
    cmd.Parameters.AddWithValue("@add", add.Checked)
    cmd.Parameters.AddWithValue("@cars", car.Checked)
    cmd.Parameters.AddWithValue("@day", day.Checked)
    cmd.Parameters.AddWithValue("@stor", stor.Checked)
    cmd.Parameters.AddWithValue("@entag", entag.Checked)
    cmd.Parameters.AddWithValue("@data", data.Checked)
    cmd.Parameters.AddWithValue("@admin", adm.Checked)
    cmd.Parameters.AddWithValue("@loginID", Val(txtid.Text))

    If Con.State <> ConnectionState.Open Then Con.Open()
    Dim r As Integer = cmd.ExecuteNonQuery()
    Con.Close()

    cmd.Dispose()

    If r > 0 Then
        MsgBox("تمت ---- التعديل بنجاح", 64 + 524288, "نجاح")
    Else
        MsgBox("فشلت ---- عملية التعديل", 64 + 524288, "فشل")
    End If

End Sub

موفقين