منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

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

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

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

كود :
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

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

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

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

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

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

وسلامتك

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

alzahrani

سعود

alzahrani

سعود