[theghost]

السلام عليكم

الكود كان يعمل ولكن ربما قمت بوضعه خطأ او قمت بإضافة شيء خطأ لم افهم الكود رغم اني قمت بكتابته يدويا بدل نسخه و اضافته .

اتمنى من الكل ان ينظر في الكود لمعرفه الخطأ .

كود :

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
       Dim sql As String =
           " DELETE FROM [Saller] " &
           " WHERE " &
           " (  Saller_Company,  Saller_Adderess,  Saller_Name,  Saller_Skype, Saller_Email, Saller_Email0, Saller_Phone, Saller_Phone0, Saller_Contry ) " &
           " VALUES " &
           " ( @Saller_Company, @Saller_Adderess, @Saller_Name, @Saller_Skype, @Saller_Email, @Saller_Email0, @Saller_Phone, @Saller_Phone0, @Saller_Contry ) "

       Dim cmd As New OleDbCommand(sql, conn)
       cmd.Parameters.AddWithValue("@Saller_Company", TextBox1.Text)
       cmd.Parameters.AddWithValue("@Saller_Adderess", TextBox2.Text)
       cmd.Parameters.AddWithValue("@Saller_Name", ComboBox1.Text)
       cmd.Parameters.AddWithValue("@Saller_Skype", TextBox3.Text)
       cmd.Parameters.AddWithValue("@Saller_Email", TextBox4.Text)
       cmd.Parameters.AddWithValue("@Saller_Email0", TextBox5.Text)
       cmd.Parameters.AddWithValue("@Saller_Phone", TextBox6.Text)
       cmd.Parameters.AddWithValue("@Saller_Phone0", TextBox7.Text)
       cmd.Parameters.AddWithValue("@Saller_Contry", TextBox8.Text)


       conn.Open()
       cmd.ExecuteNonQuery()
       conn.Close()

       MessageBox.Show("The data has been deleted successfully", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

[قناص المدينة]

انت تريد ان تحذف حقل معين لا تحتاج الى هذا كله تحتاج الى معرفة رقم المعرف او id واسم الجدول يعني
تحتاج الى

DELETE code
FROM Saller
WHERE code = @code


cmd.Parameters.AddWithValue(" @code", TextBox1.Text)

الباقي كما هو مع مراعاة تغير التسميات