[sofiane-phy]

السلام عليكم

لدي هذا المثال :

كود :

Imports System.Data.OleDb
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim cs As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Database1.mdb;Persist Security Info=True")
       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
       TextBox1.Text = ""
       DataGridView1.Rows.Clear()
   End Sub
End Class

المطلوب :الحفظ من الداتا غريد فيو على جدول اكسس (.accdb)




ملاحظة : القيم الذي اريد حفظها على جدول الاكسس هي فقط : الكمية المباعة و المتبقية فقط لان كل من الكود بار و الصنف و سعر البيع والشراء موجودة من قبل في الجدول


بارك الله فيكم جميعا