السلام عليكــم ورحمـة الله وبركاتــه
السؤال
كيف يمكنني ان استرجع البيانات من الجدول الى ListBox وتظهر البيانات بشكل تسلسلي مربوطة بـProgressbar ?
ماهو الكود اللازم لعمل ذلك
ارجو التفاعل من الخبراء
شكرا
السلام عليكــم ورحمـة الله وبركاتــه
السؤال
كيف يمكنني ان استرجع البيانات من الجدول الى ListBox وتظهر البيانات بشكل تسلسلي مربوطة بـProgressbar ?
ماهو الكود اللازم لعمل ذلك
ارجو التفاعل من الخبراء
شكرا
ما احد يعرف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
!!!!!!!!!!!!!!!!
السؤال مفهوم او غير مفهوم ؟؟؟
ردوووو علينا
تم تعديل هذه المشاركة بواسطة عبدالعزيز حبيش في 13 ديسمبر 2008 في 16:15
لقيت حل ولكن ربما يحتاج تعديل وانا لازلت مبتدئ
هذي الصورة :

والصورة توضح اظهار بيانات حقل معين من الجدول الى listbox سطر سطر بالتتالي عن طريق progressbar
تم تعديل هذه المشاركة بواسطة عبدالعزيز حبيش في 14 ديسمبر 2008 في 02:43
ارجو التفاعل اذا امكن من الخبراء المكرمين
السلام عليكم
اخي الكريم العملية بسيطة جدا على فهمي لمطلبك ..
قم بتعبئة اللست بوكس عن طريق حلقة تكرارية وضع كود زيادة القيمة لشريط التقدم داخل الحلقة التكرارية ..
هذا كود توضيحي للعملية ..
Try Dim Cmd As New SqlCommand Cmd.Connection = Cn Cmd.CommandType = CommandType.Text Cmd.CommandText = "select Name from tabel1" Cmd.Connection.Open() Dim dr As SqlDataReader dr = Cmd.ExecuteReader(CommandBehavior.CloseConnection) Do While dr.Read ListBox1.Items.Add(dr.GetString(0)) ProgressBar1.Value += 1 Loop dr.Close() Catch ex As SqlException MsgBox(ex.Message) Finally Cn.Close() End Try
ولكن يجب اسناد قيمة الشريط النهائية قبل بدء عملية التعبئة .. مما سيسبب بعض المشاكل
واي استفسار انا حاضر
تحياتي
اشكرك على مشاركتك
اريدك ان تحلل هذا الكود وهو يعمل بشكل ممتاز ومعمول بتقنية LINQ TO SQL ولكن كلما زادت عدد السجلات كلما بطء في اظهار البيانات
الكود :
Try Dim I, W As Integer ProgressBar1.Minimum = 0 ProgressBar1.Maximum = TextBox7.Text - (2) For I = 0 To 1 Dim DataGrid = From red In DB.Daleels _ Where red.Id _ Select red For Each rd In DataGrid ProgressBar1.Value = I Application.DoEvents() System.Threading.Thread.Sleep(100) I = DataGridView1.Rows.Add(rd.Id, rd.name1, rd.number1) W = I / (TextBox7.Text - 1) * (100) Label7.Text = "COMPLETED : " & W & " % " Next Next TextBox7.Clear() Catch ex As Exception End Try
اذا كان الكود يحتاج تصحيح ارجو المساعدة لانني عملته بنفسي
عندي سؤال : اذا كان عدد سجلات الجدول تفوق الـ 10000 سجل هل سيحصل تجمد للبرنامج عند استدعاء البيانات كاملة من الجدول واظهارها في datagridveiw ؟
ارجو الرد
تم تعديل هذه المشاركة بواسطة عبدالعزيز حبيش في 7 فبراير 2009 في 10:11
بالنسبة للكود بصراحه انا للحين ما قرأة عن الـ Linq ...
اما بالنسبة اذا كان السجلات يفوق الـ 10000 ممكن انك تستخدم الـ Threading
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…