طلب مساعدة بخصوص تسريع تعبئة السجلات من قاعدة البيانات

بسم الله الرحمن الرحيم

اصدفائي اعضاء المنتدى ارجو منكم افادتي و لو باي معلومة ممكن ان تكون مفيدة

  Sub getAttachFiles(ByRef lv As ListView, ByVal TableName As String)
		Dim conn As New sqlconn
		Dim dt As DataTable = dtSearch(" * ", TableName, " and fk_ProjectNo='" & ProjectNo & "' order by FileNo")
		Dim str(5) As String
		For i As Integer = 0 To dt.Rows.Count - 1
			str(0) = dt.Rows(i)("FileNo").ToString
			str(1) = dt.Rows(i)("FileName").ToString.Replace("C:\Temp\", "")
			str(2) = dt.Rows(i)("FileExtention").ToString
			str(3) = dt.Rows(i)("DescFile").ToString
			str(4) = CDate(dt.Rows(i)("DateUpload")).ToString("dd/MM/yyyy")
			str(5) = dt.Rows(i)("FileNotes").ToString
			Dim item As New ListViewItem(str)
			lv.Items.Add(item)
			lv.Items(i).SubItems(0).Tag = dt.Rows(i)("FileName").ToString
			' if 1 then old
			lv.Items(i).SubItems(1).Tag = 1
		Next
	End Sub

الادات المستخدمة

ListView

لعرض السجلات من الداتا بيس

الكود السابق يقوم بتعبئة لست فيو من ناتج جملة استعلام و لكن المشكلة انه يعبئ خلية خلية في لست فيو ايتم

و من ثم بعد ذلك يضعها رو رو في اللست فيو و كما تعلمون ان هذا يستغرق و قت طويل

سؤالي , هل يعرف احدكم كيف اقوم بتعبئة اللست فيو دفعة وادة مثل الادات داتا جرد فيو

و ايضا اذا كان ذلك مستحيلا هل يعرف احدكم كنترول آخر غير اللست فيو و الداتا جرد فيو يقوم بتعبئة ريكورد

المشكلة تتلخص في البطئ الشديد في التعبثة لانها تاخذ فور لوب لتعبئتها فانا اقوم بوضع الفين ملف او اكثر فبيها و هذا ياخذ و قت طويل جدا , هذا عدى ان كودها موجود في اللود