تقييم الموضوع :
  • 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
مشكور اخوي على ردك السريع ولكن لم يعمل

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  شرح عن الخطأ attempted to read or write Adel27213 3 384 05-01-24, 01:01 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] كود التعديل Abdellatif 6 394 21-12-23, 02:01 PM
آخر رد: Abdellatif
  [VB.NET] ماهو اسم هذه الازرار ( + موجب و - سالب ) h2551996 1 249 19-12-23, 10:29 PM
آخر رد: justforit
  كود التعديل لم ينجح معي melad2002 4 298 16-12-23, 12:22 AM
آخر رد: anes
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 238 27-10-23, 04:05 PM
آخر رد: AhmedEissa

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


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