مشكلة في الحفظ في الاكسس - نسخة قابلة للطباعة

كود :

   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

كود :

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]

كود :

Public Constr9 As String

    Public conn9 As New OleDbConnection(Constr9)

    'Public cmd9 As OleDbCommand = conn9.CreateCommand

    Public adapt9 As New OleDbDataAdapter

    Public ddda As DataTable

    Public save_user As OleDbCommandBuilder

    Public ds9 As New DataSet

    Public BS9 As New BindingSource









    Public Sub read_data(ByVal xxxx As String)

        Try



            Constr9 = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & xxxx

            conn9.ConnectionString = Constr9

            conn9.Open()



            ds9.Clear()

            Dim str9 As String = "SELECT * FROM mmm"

            'تعريف كائن وفق الأستعلام والأتصال'

            adapt9 = New OleDbDataAdapter(str9, conn9)

            'ملئ الدتا ست بالبيانات'

            adapt9.Fill(ds9, "mmm")

            'سحب البينات من الدتا ست'

            BS9.DataSource = ds9

            BS9.DataMember = "mmm"

            CRM_Form.DataGridView1.DataSource = ds9.Tables(0)







        Catch ex As Exception

            MsgBox("فشل في قراءة البيانات")

        End Try



    End Sub

كود :

   Public conn9 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx.mdb;persist security info=false;")