16-08-15, 07:21 PM
السلام عليكم
الكود كان يعمل ولكن ربما قمت بوضعه خطأ او قمت بإضافة شيء خطأ لم افهم الكود رغم اني قمت بكتابته يدويا بدل نسخه و اضافته .
اتمنى من الكل ان ينظر في الكود لمعرفه الخطأ .
الكود كان يعمل ولكن ربما قمت بوضعه خطأ او قمت بإضافة شيء خطأ لم افهم الكود رغم اني قمت بكتابته يدويا بدل نسخه و اضافته .
اتمنى من الكل ان ينظر في الكود لمعرفه الخطأ .
كود :
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)