[melad2002]

السلام عليكم

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

الكود


 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)

[justforit]

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

[عبد العزيز البسكري]

[justforit]

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

[melad2002]

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

[justforit]

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

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

[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

[justforit]

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

---

هذا مثال بسيط 

اضافة تعديل حذف بحث

البحث نفس الكود لكن المثال من اجل الاجراءات الاخرى

Form1 = استخدمت التحرير عبر Datarow

Form2 = استخدمت اجراءات الاتصال المتصل