تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات
#1
السلام عليكم اخواني الكرام
كل عام وانتم بخير واللهم بلغنا رمضان جميعا معافين غير مرضي ولا مكروبين 

لدى سؤال تعبت فى البحث عنه 

لدي برنامج بالفيجول بيسك 2015 استخدم فيه الكود التالي للحفظ  
كود :
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
       Try
           dt55.Rows.Add()
           Dim pos500 As String = dt55.Rows.Count - 1
           dt55.Rows(pos500).Item(1) = TextBox2.Text
           If DateTimePicker7.CustomFormat = " " Then
               dt55.Rows(pos500).Item(2) = DBNull.Value
           Else
               dt55.Rows(pos500).Item(2) = DateTimePicker1.Value.Date
           End If
           If DateTimePicker8.CustomFormat = " " Then
               dt55.Rows(pos500).Item(3) = DBNull.Value
           Else
               dt55.Rows(pos500).Item(3) = DateTimePicker2.Value.Date
           End If
       Catch ex As Exception
       End Try
       save_data()

       MsgBox("تمت اضافة التجديد بنجاح", Title:="تمت")
   End Sub

وكود الحفظ الاصلي
كود :
Sub save_data()
       Dim save55 As New OleDbCommandBuilder(da55)
     save55.QuotePrefix = "["
       save55.QuoteSuffix = "]"
       da55.Update(dt55)
       dt55.AcceptChanges()
   End Sub

وذلك الامر يستغرق بعض الوقت حتى يتم الحفظ وظهور رسالة تاكيد الحفظ


ما اريده


*** اريد ان يظهر شريط الــ    ProgressBar   حتي تتم عملية الحفظ

او

***ظهور صورة GIF  لدائرة التحميل المعتادة للويندوز 

كيف يمكنني هذا

جزاكم الله خير

سبحان الله وبحمده  ***   سبحان الله العظيم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في ترتيب البيانات mostafa12 1 52 أمس, 07:18 PM
آخر رد: mostafa12
  سؤال حول قواعد البيانات ابو روضة 11 168 15-10-19, 05:02 AM
آخر رد: elgokr
  طريقة حفظ بإسم لجدول موجود في قاعدة البيانات مع بقاء الجدول الأساسي جيولوجي مبتدئ 11 215 15-10-19, 05:00 AM
آخر رد: elgokr
  [سؤال] سؤال محاسبي عن كيفية احتساب تكلفة مادة بالسالب محمد كريّم 5 120 13-10-19, 11:05 PM
آخر رد: sendbad100
  كيفية جلب اسم السيرفر Emam emam 3 110 09-10-19, 02:33 AM
آخر رد: Emam emam
Bug [VB.NET] الاتصال بقاعدة البيانات على الشبكة مشكل أتعبني حقا sniperjawadino 4 153 08-10-19, 06:15 PM
آخر رد: sniperjawadino
  [VB.NET] مسار قاعدة البيانات محمد اسماعيل 12 261 06-10-19, 01:52 PM
آخر رد: محمد اسماعيل
  طلب يا اخوانى فى قواعد البيانات (اكسس 2007) خالد كامل1 3 88 26-09-19, 11:58 PM
آخر رد: خالد كامل1
  [كود] اكواد العمليات الحسابية على قواعد البيانات ( جزاكم الله خير مقدما ) أبو يزن 12 5,545 25-09-19, 11:37 PM
آخر رد: أبووسم
  [VB.NET] كيفية اضافة البيانات من اكسس إلى داتاغريد عن طريق حقل كومبو بوكس Alhootti1 9 335 24-09-19, 04:43 PM
آخر رد: Alhootti1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم