15-01-16, 03:58 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 =
" 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
لماذا يظهر لي رسالة ان الكود غير صحيح ؟؟
واذا تكرمتم تعطوني نفس الكود للحذف جزاكم الله خير