[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل الكود بعد التعديل عليه

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim cmd9 As New OleDbCommand
       Try

           Dim sql As String = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
           cmd9 = New OleDbCommand(sql, conn9)
           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)
           conn9.open()
           cmd9.ExecuteNonQuery()
           conn9.Close()

       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try
MsgBox("تم الحفظ بنجاح")
       Me.Hide()
       CRM_Form.DataGridView1.Show()
   End Sub

[/code]