09-09-17, 04:15 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_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", TextBox3.Text)
cmd.Parameters.AddWithValue("@Cus_Region", TextBox4.Text)
cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
Form2_Load(e, e)
وسويته بالترتيب بالظبط داخل الفورمة