15 | Upload students' names from an Excel file - VB.NET & SQL Server

شرح الكود:

١. إجراء  Click:

  • Private Sub lb_download_file_Click(sender As Object, e As EventArgs) Handles lb_download_file.Click:

  • هذا الإجراء يُنفذ عندما ينقر المستخدم على العنصر (مثل زر أو رابط) الذي يحمل الاسم lb_download_file.
  • المعلمات sender و e تحتوي على معلومات حول النقر، مثل الكائن الذي تم النقر عليه.


٢. Try...Catch :

  • يُستخدم هذا البناء للتعامل مع الأخطاء بطريقة آمنة. إذا حدث استثناء (خطأ) أثناء تنفيذ الكود داخل الجزء Try، سيتم الانتقال إلى الجزء Catch لمعالجة الخطأ.

٣. File.Copy :

  • File.Copy("Students List.xlsx", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Students.xlsx"):

  • هذا السطر يقوم بنسخ ملف يُدعى "Students List.xlsx" من موقعه الحالي إلى سطح المكتب.
  • Environment.GetFolderPath(Environment.SpecialFolder.Desktop) يحصل على مسار مجلد سطح المكتب الخاص بالمستخدم.
  • & "\Students.xlsx" يضيف اسم الملف الجديد بعد تحديد المسار.

٤. Message Box عند النجاح:

  • MsgBox("تم حفظ نسخة من ملف أكسل على سطح المكتب بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "حفظ نسخة احتياطية"):

  • إذا تم نسخ الملف بنجاح، ستظهر رسالة تُخبر المستخدم بأن النسخة الاحتياطية تم حفظها بنجاح.

٥. Catch :

  • Catch ex As Exception:


  • إذا حدث أي خطأ أثناء محاولة نسخ الملف (مثل عدم وجود الملف الأصلي أو عدم وجود إذن الكتابة في المكان المستهدف)، سيتم القبض على الاستثناء.
  • MsgBox(ex.Message) يعرض رسالة الخطأ للمستخدم، مما يساعد في تحديد المشكلة.

خلاصة

هذا الكود يقوم بعملية نسخ ملف أكسل إلى سطح المكتب مع معالجة الأخطاء بطريقة آمنة. إذا نجحت العملية، يخبر المستخدم بذلك، وإذا واجهت أي مشكلة، تظهر رسالة توضح ما حدث.


الكود كاملا داخل lb_download_file

Private Sub lb_download_file_Click(sender As Object, e As EventArgs) Handles lb_download_file.Click

        Try

            File.Copy("Students List.xlsx", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Students.xlsx")

            MsgBox("تم حفظ نسخة من ملف أكسل على سطح المكتب بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "حفظ نسخة احتياطية")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

End Sub

إذا كان لديك أي أسئلة أخرى أو تحتاج إلى مزيد من التوضيح، فلا تتردد في طرحها!

يمكنكم متابعة الدرس عن طريق اليوتيوب



تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

7 | Display column's stages from the database into ComboBox's Stage - VB.NET & SQL Server

صورة
١. تعريف المتغيرات: Dim con As New SqlConnection(conString) Dim dtstages As New DataTable con: يقوم بإنشاء اتصال جديد بقاعدة البيانات باستخدام سلسلة الاتصال conString. dtstages: هو كائن من نوع DataTable، يُستخدم لتخزين البيانات التي سيتم استرجاعها من قاعدة البيانات. ٢. مسح محتويات dtstages dtstages.Clear() يتم مسح أي بيانات قد تكون موجودة سابقًا في dtstages لضمان أن البيانات الجديدة ستكون نظيفة. ٣. فتح الاتصال: con.Open() يتم فتح الاتصال بقاعدة البيانات. ٤. استخدام الأمر SqlCommand: Using cmd As New SqlCommand("SELECT ID,stage FROM tbl_stages WHERE status='Available'", con) يتم إنشاء كائن جديد من SqlCommand لتنفيذ استعلام SQL، والذي يقوم باختيار ID و**stage** من جدول tbl_stages حيث الحالة (status) هي "متاحة" (Available). con: هو الاتصال بقاعدة البيانات الذي سيتم استخدامه لتنفيذ الأمر. ٥. تعيين نوع الأمر ووقت التنفيذ: cmd.CommandType = CommandType.Text cmd.CommandTimeout = 420 CommandType.Text: يشير إلى أن الأمر هو نص SQL عادي. CommandTimeout: يحدد الوقت ا...
قراءة المزيد

26 | Filter Students List based on students' stage and Group in DataGridView - VB.NET & SQL Server

صورة
أولاً :  cbox_stage_SelectedIndexChanged   شرح الكود : هذا الكود يتعامل مع الحدث SelectedIndexChanged للـ ComboBox المسمى cbox_stage ، حيث يقوم بتحديث cbox_group بناءً على stage المختار في cbox_stage . ١ . الحدث SelectedIndexChanged : Private Sub cbox_stage_SelectedIndexChanged(sender As Object , e As EventArgs) Handles cbox_stage.SelectedIndexChanged هذا الحدث يُنفَّذ كلما تم تغيير اختيار cbox_stage ، أي عندما يختار المستخدم قيمة مختلفة في الـ ComboBox . ٢ . إعداد الاتصال بقاعدة البيانات : Dim con As New SqlConnection(conString) Dim dtstage As New DataTable() dtstage.Clear() يتم إنشاء SqlConnection باستخدام ( conString ( السلسلة التي تحتوي على تفاصيل الاتصال بقاعدة البيانات . يتم أيضًا إنشاء DataTable جديد يُستخدم لتخزين البيانات المسترجعة من قاعدة البيانات . ٣ . مسح مصدر البيانات للمجموعة : cbox_group.DataSource = Nothing قبل تحميل البيانات الجديدة للمجموعة ( cbox_group )، يتم مسح DataSource الحالي. ٤ . إعداد استعلام SQL: Usi...
قراءة المزيد

8 | Get selected Stage and Group IDs from their ComboBoxes - VB.NET & SQL Server

صورة
 ١. تعريف الإجراء : Private Sub cbox_group_SelectedIndexChanged(...) : هذا هو إجراء خاص (Sub) يتم تنفيذه عندما يتغير العنصر المحدد في ComboBox يسمى cbox_group . sender As Object : يمثل العنصر الذي تم تغيير اختياره (في هذه الحالة، cbox_group ). e As EventArgs : يمثل معلومات الحدث، وهي قياسية في أحداث .NET. ٢. التعامل مع الحدث : Handles cbox_group.SelectedIndexChanged : تشير إلى أن هذا الإجراء سيتم استدعاؤه عند تغيير الفهرس المحدد في cbox_group . ٣. التحقق من الفهرس المحدد : If cbox_group.SelectedIndex = 0 Then : يتحقق مما إذا كان الفهرس المحدد في cbox_group هو 0 (أي الخيار الأول في القائمة). إذا كان صحيحًا، يتم تنفيذ الكود داخل هذا الشرط. ٤. تحديث cbox_group_id : cbox_group_id.Text = "" : إذا كان الفهرس 0، يتم مسح النص في cbox_group_id . Else : إذا كان الفهرس المحدد ليس 0، يتم تنفيذ الكود التالي. cbox_group_id.Text = cbox_group.SelectedIndex : يتم تعيين نص cbox_group_id إلى قيمة الفهرس المحدد في cbox_group . خلاصة : هذا الكود يقوم بتحديث عنصر ComboBox آخر يسمى cbox_group_i...
قراءة المزيد