[sofiane-phy]

عاونوني يرحم والديكم

---

اذا لم تفهموني فأرجو منكم فظلا و ليس امرا التعديل على هذا فقط

كود :

Dim cs As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\DB\MS.accdb")

       For i As Integer = 0 To DataGridView1.RowCount - 2
           Dim sql As String = "INSERT INTO Table1 (MyName, CoName, Address, Phone, Mobile) Values (@MyName, @CoName, @Address, @Phone, @Mobile)"
           Dim cm As New OleDbCommand(sql, cs)
           With cm.Parameters
               .AddWithValue("@MyName", TextBox1.Text).DbType = DbType.String
               .AddWithValue("@CoName", DataGridView1.Rows(i).Cells(0).Value).DbType = DbType.String
               .AddWithValue("@Address", DataGridView1.Rows(i).Cells(1).Value).DbType = DbType.String
               .AddWithValue("@Phone", DataGridView1.Rows(i).Cells(2).Value).DbType = DbType.String
               .AddWithValue("@Mobile", DataGridView1.Rows(i).Cells(3).Value).DbType = DbType.String
           End With
           cs.Open()
           cm.ExecuteNonQuery()
           cs.Close()
       Next

اخذت نفس الجدول ونفس الكود وطبقته في مشروعي لكنني لم اعرف التعديل على هذا الكود

كود :

       Dim cs As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Database1.mdb;Persist Security Info=True")