+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهو حل هذا الخطأ في الكود (/showthread.php?tid=47966)
ماهو حل هذا الخطأ في الكود - melad2002 - 23-02-24
السلام عليكم
اريد حل لهذا الخطأ في كود التعديل استخدمت اكثر من طريق للكود ولكن لم ينجح معي حتى ببرنامج صانع الاكواد لم اجد الحل
ولكن لدسي ثقة في اعضاء هذا المنتدى لايجاد الحل
وتقبلوا تحياتي
الكود
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)
RE: ماهو حل هذا الخطأ في الكود - justforit - 23-02-24
يوجد بارامتر على الاقل لم تسند له قيمة هذا مفاد رسالة الخطا.
RE: ماهو حل هذا الخطأ في الكود - عبد العزيز البسكري - 23-02-24
RE: ماهو حل هذا الخطأ في الكود - justforit - 23-02-24
لم انتبه لخطا تحديث الاي دي قم بحذفه من الـ set واكتفي فقط بالاستعلام عنه .
RE: ماهو حل هذا الخطأ في الكود - melad2002 - 23-02-24
عزيز التعديل نجح ولكن لايتعديل في قاعدة البيانات اكسس
RE: ماهو حل هذا الخطأ في الكود - justforit - 23-02-24
(23-02-24, 11:46 PM)melad2002 كتب : عزيز التعديل نجح ولكن لايتعديل في قاعدة البيانات اكسس
ممكن تكتب الكود بعد ماعدلت عليه؟
يمكن فيه جزئية ناقصة.
هل اضفت قيمة للبارمتر الاي دي؟ مثل ما وضح الاخ الكريم هنا
RE: ماهو حل هذا الخطأ في الكود - melad2002 - 24-02-24
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
RE: ماهو حل هذا الخطأ في الكود - justforit - 25-02-24
انت تقصد تريد رؤية التحديثات بشكل مباشر و هذا يكون بمناداة الاجراء(الخاص بجلب البيانات) بعد كل تحرير للبيانات.
هذا مثال بسيط
اضافة تعديل حذف بحث
البحث نفس الكود لكن المثال من اجل الاجراءات الاخرى
Form1 = استخدمت التحرير عبر Datarow
Form2 = استخدمت اجراءات الاتصال المتصل
