[احمد عبد الحكيم]

بسم الله الرحمن الرحيم
السلام عليكم شباب وكل سنه وانتو طيبين ورمضان كريم عليكم
هل من الممكن عمل update ل checkBox فى قاعدة البيانات
بطريقة الباروميتار

[الطالب]

سلام

هذه هي الطريقة

كود :

cmd.Parameters.AddWithValue("@chk", CheckBox1.Checked)

موفقين

[احمد عبد الحكيم]

اخى الكريم طالب السلام عليك
لقد قمت بعمل مثل ما طلبت لاكن الكود لا بعمل تحديث نهائيا

[الطالب]

سلام

احتمال نوع الحقل ليس (نعم/لا) في قاعدة بيانات الاكسس

موفقين

[احمد عبد الحكيم]

لا اخى الكريم نوع الحقل نعم/لا فى القاعدة ولقد قمت بعمل كود للحفظ وتم الحفظ لاكن التعديل لايعمل
وهذا هو الكود

PHP كود :

If Con.State = ConnectionState.Open Then
            Con.Close()
        End If
        Con.Open()
        Dim cmdInsH As New OleDbCommand
        cmdInsH.Connection = Con
        cmdInsH.CommandType = CommandType.Text
        cmdInsH.CommandText = "UPDATE [salse].[login] SET [user] = @us ,[pass] = @pass ,[add] = @ad,[cars] = @ca,[day] = @da,[stor] = @sto,[entag] = @ent,[data] = @da,[admin] = @adm WHERE loginID = @id"
        cmdInsH.Parameters.AddWithValue("@id", txtid.Text)
        cmdInsH.Parameters.AddWithValue("@us", txtuser.Text)
        cmdInsH.Parameters.AddWithValue("@pass", txtpass.Text)
        cmdInsH.Parameters.AddWithValue("@ad", add.Checked)
        cmdInsH.Parameters.AddWithValue("@ca", car.Checked)
        cmdInsH.Parameters.AddWithValue("@da", day.Checked)
        cmdInsH.Parameters.AddWithValue("@sto", stor.Checked)
        cmdInsH.Parameters.AddWithValue("@ent", entag.Checked)
        cmdInsH.Parameters.AddWithValue("@da", data.Checked)
        cmdInsH.Parameters.AddWithValue("@adm", adm.Checked)
        cmdInsH.ExecuteNonQuery()
        Con.Close()


        MsgBox("تمت ---- التعديل بنجاح", 64 + 524288, "نجاح") 


[احمد عبد الحكيم]

نفس المشكلة اخى الكريم فهى لا تعمل
انا ثوف ارفق لك المشروع مع القاعدة

[hminfo]

جرب الكود التالي :اعدترتيب البارامترات

كود :

cmdInsH.CommandText = "UPDATE [salse].[login] SET [user] = @us ,[pass] = @pass ,[add] = @ad,[cars] = @ca,[day] = @da,[stor] = @sto,[entag] = @ent,[data] = @da,[admin] = @adm WHERE loginID = @id"
       cmdInsH.Parameters.AddWithValue("@us", txtuser.Text)
       cmdInsH.Parameters.AddWithValue("@pass", txtpass.Text)
       cmdInsH.Parameters.AddWithValue("@ad", add.Checked)
       cmdInsH.Parameters.AddWithValue("@ca", car.Checked)
       cmdInsH.Parameters.AddWithValue("@da", Day.Checked)
       cmdInsH.Parameters.AddWithValue("@sto", stor.Checked)
       cmdInsH.Parameters.AddWithValue("@ent", entag.Checked)
       cmdInsH.Parameters.AddWithValue("@da", Data.Checked)
       cmdInsH.Parameters.AddWithValue("@adm", adm.Checked)
       cmdInsH.Parameters.AddWithValue("@id", txtid.Text)

       cmdInsH.ExecuteNonQuery()

[احمد عبد الحكيم]

اخى الكريم والعزيز
لقد قمت بعمل مشروع بسيط حتى ترى بنفسك ان المشكلة لم تحل

  checkBox.rar (الحجم : 127.38 ك ب / التحميلات : 53)

[سعود]

اخي .. نوع الاعمدة كلها رقم!

---

اخي الكريم .. الجملة التالية كما تعلم واذكرك انها تمنع معرفة الخطا
On Error Resume Next

---

ايضا استخدمت جملة try في الاضافة دون صيد للخطا ...

[احمد عبد الحكيم]

اخى الكريم سعود ااكد لك اننها صحيحة فى مشروعى لاكن عند نق الجدول لهذه القاعدة تم تحويلها الى رقم