منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp (/showthread.php?tid=39284)



كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp - bahnay0 - 12-08-21

[color=var(--primary-text)]السلام عليكم ورحمة الله وبركاته عندي مشكلة في كود ومحتاج مساعدة ضروري يا اهل الخبرة[/color]
[color=var(--primary-text)]كنت بستعمل الويب براوزر لعرض موقع معين وجلب بيانات من جدول بداخل الموقع ووضعها في داتاجريدفيو وكان الكود شغال تمام وهذا هو الكود :[/color]

[color=var(--primary-text)]Dim mytable As HtmlElement = WebBrowser1.Document.GetElementById("DataGridemplis")[/color]

[color=var(--primary-text)]           Dim dtData As DataTable = New DataTable[/color]

[color=var(--primary-text)]           dtData.Columns.Add("اختر")            [/color]

[color=var(--primary-text)]           dtData.Columns.Add("كود الموظف")[/color]

[color=var(--primary-text)]           dtData.Columns.Add("اسم الموظف")[/color]

[color=var(--primary-text)]            dtData.Columns.Add("الحالة")[/color]

[color=var(--primary-text)]           dtData.AcceptChanges()[/color]

[color=var(--primary-text)]           Dim dr As DataRow = Nothing[/color]

[color=var(--primary-text)]           For Each row As HtmlElement In mytable.GetElementsByTagName("tr")[/color]

[color=var(--primary-text)]               dr = dtData.NewRow[/color]

[color=var(--primary-text)]               Dim cells As HtmlElementCollection = row.GetElementsByTagName("td")[/color]

[color=var(--primary-text)]               Dim i As Integer = 0[/color]

[color=var(--primary-text)]               Do While (i < cells.Count)[/color]

[color=var(--primary-text)]                   dr(i) = cells(i).InnerText[/color]

[color=var(--primary-text)]                   i = (i + 1)[/color]

[color=var(--primary-text)]               Loop[/color]

[color=var(--primary-text)]               dtData.Rows.Add(dr)[/color]

[color=var(--primary-text)]           Next[/color]

[color=var(--primary-text)]           dtData.AcceptChanges()[/color]

[color=var(--primary-text)]           DataGridView2.DataSource = dtData[/color]

[color=var(--primary-text)]ولكن حدث تعديلات في الموقع ولم يعد يعمل على الويب براوزر فاضررت [/color][color=var(--primary-text)]للعمل على فيجوال 2019 واستخدام مكتبة cefsharp[/color]

[color=var(--primary-text)] محتاج اعرف ازاي اجلب بيانات الجدول داخل الموقع إلى الداتاجريدفيو[/color]

[color=var(--primary-text)]أرجو المساعدة ولكم جزيل الشكر[/color]





[color=var(--secondary-text)]أعجبني[/color]







[color=var(--secondary-text)]تعليق[/color]





[color=var(--secondary-text)]مشاركة[/color]