تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته
#1
هل هذا الكود صحيح ؟؟

كود :
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


لماذا يظهر لي رسالة ان الكود غير صحيح ؟؟

واذا تكرمتم تعطوني نفس الكود للحذف جزاكم الله خير
الرد }}}}
تم الشكر بواسطة:
#2
كود التعديل غريب ... وكأنة كود 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 " 
الرد }}}}
تم الشكر بواسطة: سعود
#3
للاسف لم يقم بالتعديل ولكن تظهر الرسالة بانه تمت العملية بالنجاح وعندما تاكدت في القاعدة البيانات لم يقم بتعديل شيء ارجو المساعدة

كود :
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 Sub
الرد }}}}
تم الشكر بواسطة: سعود
#4
تأكد من قيمه @Cus_Private_Number انها صحيحه

....
حاول حذف
هذا
" where " &
" Cus_Private_Number " &
" = " &
" @Cus_Private_Number "

وانظر هل ستتغيل كل الحقول ؟ ام لا ؟
الرد }}}}
تم الشكر بواسطة: سعود
#5
تم وبحمدالله التعديل اما بالنسبة للحذف هل فقط اضيف كلمة Delete ??
الرد }}}}
تم الشكر بواسطة:
#6
PHP كود :
dim cmd as new OledbCommand("Delete From Table1 Where ID=@ID",con)
con.open
cmd
.parameters.AddwithValue("@ID",txtID.Text)
cmd.ExecuteNoNQuery
con
.close 
الرد }}}}
تم الشكر بواسطة:
#7
مشكور اخوي على ردك السريع ولكن لم يعمل

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)
الرد }}}}
تم الشكر بواسطة:
#8
هذه طريقة الحذف اخي الكريم

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.OKMessageBoxIcon.Information
الرد }}}}
تم الشكر بواسطة:
#9
تمت المهمة بنجاح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 57 30-11-16, 08:34 PM
آخر رد: ابو ليلى
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 53 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 60 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 119 23-11-16, 10:12 PM
آخر رد: السرور
  ماهو كود انقاص كميه المباعه من الكميه الموجوده معتز الجازوي 1 55 22-11-16, 09:16 PM
آخر رد: السرور
  التعديل علي datagridview باستخدام sql command dark1459 6 130 21-11-16, 11:55 AM
آخر رد: dark1459
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 106 15-11-16, 12:31 AM
آخر رد: dark1459
  كيفية تغير رسائل الخطأ؟ noway 3 69 11-11-16, 05:37 PM
آخر رد: ممدوح
  [سؤال] التعامل مع الزر الموجود في DataGrideView هل يستطيع حذف الصف الذي به البتن thevirus 1 101 10-11-16, 09:20 PM
آخر رد: ابراهيم النعيمي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم