+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته (/showthread.php?tid=14398)
كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - 0theghost0 - 15-01-16
هل هذا الكود صحيح ؟؟
كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Dim sql As String =
" update [Customer] set " &
" ( Cus_Name, Cus_Address, Cus_Region, Cus_Telephone_Number ) " &
" VALUES " &
" ( @Cus_Name, @Cus_Address, @Cus_Region, @Cus_Telephone_Number ) " &
" where " &
" Cus_Private_Number " &
" VALUES " &
" @Cus_Private_Number "
Dim cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Address", TextBox2.Text)
cmd.Parameters.AddWithValue("@Cus_Region", TextBox3.Text)
cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox4.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Subلماذا يظهر لي رسالة ان الكود غير صحيح ؟؟
واذا تكرمتم تعطوني نفس الكود للحذف جزاكم الله خير
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - HASAN6.0 - 15-01-16
كود التعديل غريب ... وكأنة كود Insert ... جرب هكذا
PHP كود :
Dim sql As String =
" update [Customer] set " &
" Cus_Name=@Cus_Name, Cus_Address=@Cus_Address, Cus_Region=@Cus_Region, Cus_Telephone_Number =@Cus_Telephone_Number" &
" where " &
" Cus_Private_Number " &
" = " &
" @Cus_Private_Number "
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - 0theghost0 - 15-01-16
للاسف لم يقم بالتعديل ولكن تظهر الرسالة بانه تمت العملية بالنجاح وعندما تاكدت في القاعدة البيانات لم يقم بتعديل شيء ارجو المساعدة
كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Dim sql As String =
" update [Customer] set " &
" Cus_Name=@Cus_Name, Cus_Address=@Cus_Address, Cus_Region=@Cus_Region, Cus_Telephone_Number =@Cus_Telephone_Number" &
" where " &
" Cus_Private_Number " &
" = " &
" @Cus_Private_Number "
Dim cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Address", TextBox2.Text)
cmd.Parameters.AddWithValue("@Cus_Region", TextBox3.Text)
cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox4.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
End SubRE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - HASAN6.0 - 15-01-16
تأكد من قيمه @Cus_Private_Number انها صحيحه
....
حاول حذف
هذا
" where " &
" Cus_Private_Number " &
" = " &
" @Cus_Private_Number "
وانظر هل ستتغيل كل الحقول ؟ ام لا ؟
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - 0theghost0 - 16-01-16
تم وبحمدالله التعديل اما بالنسبة للحذف هل فقط اضيف كلمة Delete ??
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - 0theghost0 - 16-01-16
مشكور اخوي على ردك السريع ولكن لم يعمل
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Dim cmd As New OleDbCommand("Delete From Customer Where Cus_Private_Number=@Cus_Private_Number", conn)
conn.Open()
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Address", TextBox2.Text)
cmd.Parameters.AddWithValue("@Cus_Region", TextBox3.Text)
cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox4.Text)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("We have been successfully Delete", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - Adrees - 18-01-16
هذه طريقة الحذف اخي الكريم
PHP كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Dim cmd As New OleDbCommand("Delete From Customer Where Cus_Private_Number=@Cus_Private_Number", conn)
cmd.Parameters.AddWithValue("@Cus_Private_Number", ComboBox1.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("We have been successfully Delete", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
RE: كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته - 0theghost0 - 18-01-16
تمت المهمة بنجاح