تقييم الموضوع :
  • 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
تمت المهمة بنجاح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 74 18-01-17, 05:25 PM
آخر رد: dubai.eig
  [VB.NET] معني رسالة الخطأ يسرى7 10 293 16-01-17, 01:08 AM
آخر رد: يسرى7
  كيفية تغير رسائل الخطأ؟ noway 4 162 12-01-17, 02:05 AM
آخر رد: يسرى7
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 9 295 28-12-16, 05:10 PM
آخر رد: Basil Abdallah
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 70 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 136 24-12-16, 03:47 PM
آخر رد: ابو ليلى
  [سؤال] ماهو الامر الذي..................... thevirus 6 201 19-12-16, 05:26 PM
آخر رد: thevirus
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 379 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد
  [VB.NET] يرجى التعديل على هذا الكود dubai.eig 1 83 10-12-16, 12:18 PM
آخر رد: dubai.eig
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 105 30-11-16, 08:34 PM
آخر رد: ابو ليلى

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


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