[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)




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


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

[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")

[sofiane-phy]

هل من مساعد

[asemshahen5]

اشرح ما تريد بالتفصيل مع مثال بسيط بفورم واحدة التي تريد التعديل عليها و باذن الله سيتم الاجابة عن سؤالك .

بالنسبة لكود الباراميتر :

PHP كود :

.AddWithValue("@MyName", TextBox1.Text).DbType = DbType.String 


اجعله هكذا :

PHP كود :

.AddWithValue("@MyName", TextBox1.Text) 


[sofiane-phy]

(23-11-19, 04:11 PM)asemshahen5 كتب : اشرح ما تريد بالتفصيل مع مثال بسيط بفورم واحدة التي تريد التعديل عليها و باذن الله سيتم الاجابة عن سؤالك .

بالنسبة لكود الباراميتر :

PHP كود :

.AddWithValue("@MyName", TextBox1.Text).DbType = DbType.String 


اجعله هكذا :

PHP كود :

.AddWithValue("@MyName", TextBox1.Text) 


جاري التجريب بارك الله فيك