[sofiane-phy]

من فظلكم اريد تعديل هذا الكود من اجل اوراق الاعمال تأخذ اي اسم من غيرsheet1

كود :

Dim ds As New DataSet
          Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
          da.Fill(ds, "[Sheet1$]")
          grd.DataSource = ds.Tables("[Sheet1$]")

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
كما وعدتك اخي المثال كما في الصور






اذا لم يعمل معك المثال عليك بتحميل المكتبة وفق الصور التالية








مراجع المشروع




بالنسبة للتقديرات تستطيع ان تعمل جدول في قاعدة بيانات او ان تخزنها في اعدادت البرنامج (كونها محدودة)
و بعدها تعمل مقارنة مع حقل الاختبار و تضع التقدير المناسب (العملية بسيطة)
و كذلك بالنسبة للاختبارات معادلة بسيطة و تلف على سطور الجدول و تعبئ الناتج.

في الملف المرفق البرنامج مع ملف اكسل يحتوي على 3 اوراق تجريبية , المثال على VS-2019 متوافق VS-2015
المثال يستخدم مكتبة ClosedXml  .
الملفات القديمة 2003 و ماقبلها ذات الاحقة(xls) لا تعمل مع البرنامج.

الجزء الاصعب (الاستيراد و الترحيل تم حله).
بالتوفيق اخي الكريم

[sofiane-phy]

السلام عليكم و رحمة الله و بركاته
كما وعدتك اخي المثال كما في الصور






اذا لم يعمل معك المثال عليك بتحميل المكتبة وفق الصور التالية








مراجع المشروع




بالنسبة للتقديرات تستطيع ان تعمل جدول في قاعدة بيانات او ان تخزنها في اعدادت البرنامج (كونها محدودة)
و بعدها تعمل مقارنة مع حقل الاختبار و تضع التقدير المناسب (العملية بسيطة)
و كذلك بالنسبة للاختبارات معادلة بسيطة و تلف على سطور الجدول و تعبئ الناتج.

في الملف المرفق البرنامج مع ملف اكسل يحتوي على 3 اوراق تجريبية , المثال على VS-2019 متوافق VS-2015
المثال يستخدم مكتبة ClosedXml  .
الملفات القديمة 2003 و ماقبلها ذات الاحقة(xls) لا تعمل مع البرنامج.

الجزء الاصعب (الاستيراد و الترحيل تم حله).
بالتوفيق اخي الكريم

بوركت أخي ، جزاك الله خيرا وزادك من العلم النافع

[sofiane-phy]

مساعدة من فظلكم ، اولا كل الشكر للأخ ابوليلى على الرد السريع و المشروع جزاه الله خيرا
لكن تبقى المشكلة في ان الملف المستورد يكون من صيغة الامتداد (.xls ) ; و هو ملف يحتوي على بيانات الطلاب محمي مطلوب منا ان لا نعدل عليه لكي يقبله موقع الرقمنة في عملية الاستيراد اليه .
ممكن تساعدوني بارك الله فيكم