[سعود]

إقتباس :وقف الخاصية هذه وما راح يضبط معاك بعدها

اخي العزيز الشيء طبيعي جدا لو عطلت امكانية الاضافة ....لم افهم عليك كما يجب.

[alzahrani]

حمل المرفق وجرب الكلام اللي كاتبه في الرد اللي قبل وراح تفهمني

[سعود]

طيب ودك تحفظ من الاكسل الى الاكسس؟
صح الكلام؟
منتظر ردك.

---

جربت الكود التالي وتم حفظ كافة محتويات الداتاجريد الى اكسس

كود :

Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\Database.accdb")

        Dim cm As New OleDb.OleDbCommand("", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        For a = 0 To NotificationDataGridView.Rows.Count - 1
            cm.Parameters.Clear()
            cm.CommandText = "insert into Notification([Notification],[User status],[Planner group]) values(@n,@u,@pg)"
            cm.Parameters.AddWithValue("@n", NotificationDataGridView.Rows(a).Cells.Item(0).Value)
            cm.Parameters.AddWithValue("@u", NotificationDataGridView.Rows(a).Cells.Item(1).Value)
            cm.Parameters.AddWithValue("@pg", NotificationDataGridView.Rows(a).Cells.Item(2).Value)
            cm.ExecuteNonQuery()
        Next

[alzahrani]

جربته ومشي معاي الله يعطيك العافيه أخوي سعود

وعلى فكرة سويت لفه طويله شوي بس ريحت رأسي وضبطت معاي بعد وهي اني أضفت ثلاث مربعات نص وكلها مربوطة عن طريق المعالج بخاناتها في قاعدة البيانات

وبعدها يا طويل العمر الداتاقريد فيو الأول واللي تظهر فيه بيانات الإكسل

بعدها عملت بالأكواد شغله بسيطه انه ينقل المكتوب في الرو اللي انا واقف عليها في الداتاقريدفيو لمربعات النص

وراح تتكرر العملية هذه حسب عدد الرو الموجوده في الداتاقريدفيو

وسلامتك

وأعذرني على شرحي اللي ما ادري وش يبي بس للأسف أنا فاشل في الشرح الكتابي

[سعود]

المهم انك حصلت المطلوب