حفظ البيانات من جدول في صفحة ويب

[محمد عبد الله ٢]

السلام عليكم و رحمة الله و بركاته

في القاعدة المرفقة نموذج متصفح يحتوي على صفحة ويب بداخلها جدول و عمل من عمل الأستاذ صالح حمادي جزاه الله خيرآ

المطلوب حفظ البيانات الخاصة بالجدول الموجود ضمن المتصفح في الجدول الموجود في القاعدة mytable

و لكم جزيل الشكر 

 

webSaveTest.accdb

[محمد عبد الله ٢]

للرفع

[محمد عبد الله ٢]

للرفع

 

[kanory]

استخدم هذا الكود في الزر لديك .... واعلمنا بالنتيجة ......

    Dim i, j As Integer
    Dim rs As DAO.Recordset
     Set rs = CurrentDb.OpenRecordset("mytable")
For j = 1 To WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length - 1
        rs.AddNew
        rs!t1 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(1).innerText
        rs!t2 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(2).innerText
        rs.Update
 Next
  MsgBox "تم الاستيراد بنجاح"

 

[محمد عبد الله ٢]

بارك الله بك أستاذ kanory

تمت الإجابة و لك الشكر ....

 

[kanory]

وفيك بارك .... الحمد لله رب العالمين ...