السلام عليكم و رحمة الله و بركاته
لما باجي افظ المدخالات في الاكسس مبيحفظش و مبيديش اي خطأ
[/code]
لما باجي افظ المدخالات في الاكسس مبيحفظش و مبيديش اي خطأ
كود :
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
cmd9.CommandText = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
cmd9.Parameters.AddWithValue("@Cient Name", TextBox1.Text)
cmd9.Parameters.AddWithValue("@FaceBook", TextBox2.Text)
cmd9.Parameters.AddWithValue("@Client Number", TextBox3.Text)
cmd9.Parameters.AddWithValue("@Address", TextBox4.Text)
cmd9.Parameters.AddWithValue("@Details", TextBox5.Text)
cmd9.Parameters.AddWithValue("@Feedback", TextBox6.Text)
cmd9.Parameters.AddWithValue("@Code", Date.Now)
'cmd9.ExecuteNonQuery()
conn9.Close()
Me.Hide()
CRM_Form.DataGridView1.Show()
Catch ex As Exception
MsgBox("فشل في قراءة البيانات")
End Try
End Sub