21-06-15, 01:48 AM
شوف اخي الكريم سويت مثال جديد ويكون التعديل فقط على قيمة checkbox بالاستعلام عن الاسم
الصفحات : 1 2
21-06-15, 02:30 AM
سلام
عندك خطأين
1: انواع الحقول ليست (نعم/لا) وقد يفس الرقم بالغرض ولكن ليس عملي
2: لديك بارامترات بنفس الاسم وهما @da الخاص بالحقلين day وdata وهذا هو سبب المشكلة
موفقين
عندك خطأين
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موفقين
21-06-15, 01:42 PM
الصفحات : 1 2