منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

اريد حل لهذا الخطأ في كود التعديل استخدمت اكثر من طريق للكود ولكن لم ينجح معي حتى ببرنامج صانع الاكواد لم اجد الحل
ولكن لدسي ثقة في اعضاء هذا المنتدى لايجاد الحل 
وتقبلوا تحياتي

الكود


 Public Sub Update_Empotab()
        Dim saveSQL As String

        saveSQL = "Update Empotab Set ID = @ID,codID = @codID,numID = @numID,NAME = @NAME,ID_number = @ID_number,status = @status,Type = @Type,phone = @phone,education = @education,takhasus = @takhasus,almsrf1 = @almsrf1,dateof = @dateof,rgmalhsab = @rgmalhsab,aldrgh1 = @aldrgh1,alalaow = @alalaow,salary = @salary,aldman = @aldman,altdamn = @altdamn,alghad = @alghad,altkafl = @altkafl,alksmeat = @alksmeat,safesalray = @safesalray Where ID = @ID"
        cmd = New OleDb.OleDbCommand(saveSQL, con)
        cmd.Parameters.AddWithValue("@codID", Txt1.Text)
        cmd.Parameters.AddWithValue("@numID", Txt2.Text)
        cmd.Parameters.AddWithValue("@NAME", Txt3.Text)
        cmd.Parameters.AddWithValue("@ID_number", Txt4.Text)
        cmd.Parameters.AddWithValue("@status", Combo1.Text)
        cmd.Parameters.AddWithValue("@Type", Combo2.Text)
        cmd.Parameters.AddWithValue("@phone", Txt5.Text)
        cmd.Parameters.AddWithValue("@education", Combo3.Text)
        cmd.Parameters.AddWithValue("@takhasus", Txt6.Text)
        cmd.Parameters.AddWithValue("@dateof", DTime1.Text)

        cmd.Parameters.AddWithValue("@almsrf1", Combank.Text)
        cmd.Parameters.AddWithValue("@rgmalhsab", Txtrgmh.Text)
        cmd.Parameters.AddWithValue("@aldrgh1", Cbodrgh.Text)
        cmd.Parameters.AddWithValue("@alalaow", Cboalow.Text)
        cmd.Parameters.AddWithValue("@salary", Txtsalry.Text)

        cmd.Parameters.AddWithValue("@aldman", Txtdman.Text)
        cmd.Parameters.AddWithValue("@altdamn", Txttdamn.Text)
        cmd.Parameters.AddWithValue("@alghad", Txtgehd.Text)
        cmd.Parameters.AddWithValue("@altkafl", Txttkfl.Text)
        cmd.Parameters.AddWithValue("@alksmeat", Txtgksm.Text)
        cmd.Parameters.AddWithValue("@safesalray", Txtsafe.Text)

        con.Open()
       )
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Record Updated successfullY", vbInformation)

يوجد بارامتر على الاقل لم تسند له قيمة هذا مفاد رسالة الخطا.

لم انتبه لخطا تحديث الاي دي قم بحذفه من الـ set واكتفي فقط بالاستعلام عنه .

عزيز التعديل نجح ولكن لايتعديل في قاعدة البيانات اكسس

(23-02-24, 11:46 PM)melad2002 كتب : [ -> ]عزيز التعديل نجح ولكن لايتعديل في قاعدة البيانات اكسس

ممكن تكتب الكود بعد ماعدلت عليه؟
يمكن فيه جزئية ناقصة.
هل اضفت قيمة للبارمتر الاي دي؟ مثل ما وضح الاخ الكريم هنا

Public Sub Update_Empotab()
        Dim saveSQL As String

        saveSQL = "Update Empotab Set codID = @codID,numID = @numID,NAME = @NAME,ID_number = @ID_number,status = @status,Type = @Type,phone = @phone,education = @education,takhasus = @takhasus,almsrf1 = @almsrf1,dateof = @dateof,rgmalhsab = @rgmalhsab,aldrgh1 = @aldrgh1,alalaow = @alalaow,salary = @salary,aldman = @aldman,altdamn = @altdamn,alghad = @alghad,altkafl = @altkafl,alksmeat = @alksmeat,safesalray = @safesalray Where ID = @ID"
        cmd = New OleDb.OleDbCommand(saveSQL, con)
        cmd.Parameters.AddWithValue("@codID", Txt1.Text)
        cmd.Parameters.AddWithValue("@numID", Txt2.Text)
        cmd.Parameters.AddWithValue("@NAME", Txt3.Text)
        cmd.Parameters.AddWithValue("@ID_number", Txt4.Text)
        cmd.Parameters.AddWithValue("@status", Combo1.Text)
        cmd.Parameters.AddWithValue("@Type", Combo2.Text)
        cmd.Parameters.AddWithValue("@phone", Txt5.Text)
        cmd.Parameters.AddWithValue("@education", Combo3.Text)
        cmd.Parameters.AddWithValue("@takhasus", Txt6.Text)
        cmd.Parameters.AddWithValue("@dateof", DTime1.Value)

        cmd.Parameters.AddWithValue("@almsrf1", Combank.Text)
        cmd.Parameters.AddWithValue("@rgmalhsab", Txtrgmh.Text)
        cmd.Parameters.AddWithValue("@aldrgh1", Cbodrgh.Text)
        cmd.Parameters.AddWithValue("@alalaow", Cboalow.Text)
        cmd.Parameters.AddWithValue("@salary", Txtsalry.Text)

        cmd.Parameters.AddWithValue("@aldman", Txtdman.Text)
        cmd.Parameters.AddWithValue("@altdamn", Txttdamn.Text)
        cmd.Parameters.AddWithValue("@alghad", Txtgehd.Text)
        cmd.Parameters.AddWithValue("@altkafl", Txttkfl.Text)
        cmd.Parameters.AddWithValue("@alksmeat", Txtgksm.Text)
        cmd.Parameters.AddWithValue("@safesalray", Txtsafe.Text)
        cmd.Parameters.AddWithValue("@ID", Txt1.Text)
        con.Open()
        Load_Data()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Record Updated successfullY", vbInformation)

       
    End Sub

انت تقصد تريد رؤية التحديثات بشكل مباشر و هذا يكون بمناداة الاجراء(الخاص بجلب البيانات) بعد كل تحرير للبيانات.

---