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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اصنع شريط تقدم مثل الذي موجود في مشغلات الفيديو معاذ ابراهيم العامري 8 231 منذ 2 ساعة مضت
آخر رد: معاذ العامري
  ماهو جدول Asc ali.alfoly 10 1,560 13-07-18, 04:13 PM
آخر رد: alfaiz678
  لماذا هذا الخطأ خالد كامل1 3 62 03-07-18, 09:55 PM
آخر رد: خالد كامل1
  اين الخطأ في هذا الكووووووووووود anis_derna 3 351 03-07-18, 08:04 PM
آخر رد: elgokr
  مطلوب التعديل على نموذج البحث ZaerAllail 33 446 30-06-18, 10:09 PM
آخر رد: ZaerAllail
  عرض النموذج في وضع التعديل atefkhalf2004 1 87 29-06-18, 03:36 PM
آخر رد: فراس الغزي
  ماهو تصميمك لهذا البرنامج ؟ hichem1 5 157 28-06-18, 03:55 PM
آخر رد: elgokr
  [سؤال] التعديل على ملف txt على dropbox او google drive mohamed haroon 4 538 20-06-18, 02:22 AM
آخر رد: YousefOkasha
  طلب كود التعديل علي قاعدة بيانات اكسس hatem555 3 103 15-06-18, 05:34 AM
آخر رد: elgokr
  [سؤال] ما هو أفضل مكان لوضع حدث لتسجيل الخروج المستخدم من البرنامج وارسال الخطأ للمبرمج؟ dametucorazon 2 88 12-06-18, 10:46 AM
آخر رد: dametucorazon

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


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