Buna XY Problemi deniyor. Yani gercek sorunuzu sormak yerine cozum oldugunu sandiginiz seyi soruyorsunuz.
6000 satir cok cok fazla oldugundan diyorsunuz. Size 6000 satirin cok fazla oldugunu dusunduren nedir? Sanirim yanlis gittiginiz yol. 2 noktada yanlisi bir yol aliyorsunuz:
1) O excel datasini okumak icin OLE otomasyon yani COM kullaniyorsunuz. COM cagrilari yavasliklariyla bilinirler ve siz 6000 * 7 + bir miktar daha COM cagrisi yapiyorsunuz. Onun yerine basit sekilde baska metodlarla o veriyi okusaniz cok buyuk hiz farki
olur. Size donmayi yasatan muhtemelen burasi. Makinenizin nasil bir sey oldugunu, ne kadar bir sureden bahsetmizi bilmiyoruz.
2) Listview kullaniyorsunuz. Bu da bir yavaslik nedeni. DataGridView yerine ListView kullanmak icin ozel bir nedeniniz yoksa burada da hiz kazanabilirsiniz.
Ben kendi makinemde (Ryzen 9 3900XT, 32 Gb RAM, Gen4 NVME) 8000 satili bir excel ornek dosyasi yaratarak denedim, Listview kullanarak formun goruntulenmesi 3.2 - 3.3 saniye. DataGridView ile 0.4 - 0.6 saniye.
Excel'den veriyi EPPLus ile okudum (Nuget).
Sub Main
Dim pck As ExcelPackage = New ExcelPackage("d:\temp\ExcelOrnek.xlsx")
Dim dt = pck.Workbook.Worksheets(0).Tables(0).ToDataTable()
ShowData(dt)
End Sub
Private Sub ShowData(ByVal t As DataTable)
Dim f As Form = New Form()
Dim lvOrnek As ListView = New ListView With {
.Dock = DockStyle.Fill,
.View = View.Details
}
f.Controls.Add(lvOrnek)
lvOrnek.LabelEdit = True
lvOrnek.AllowColumnReorder = True
lvOrnek.FullRowSelect = True
lvOrnek.GridLines = True
For Each c As DataColumn In t.Columns
lvOrnek.Columns.Add(c.ColumnName, -2)
Next
f.Show()
lvOrnek.Items.Clear()
For Each r As DataRow In t.Rows
Dim ekle As ListViewItem = New ListViewItem()
ekle.Text = r(0).ToString()
For i As Integer = 1 To t.Columns.Count - 1
ekle.SubItems.Add(r(i).ToString())
Next
lvOrnek.Items.Add(ekle)
Next
lvOrnek.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
End Sub
Listview yerine DataGridView kullanarak:
Sub Main
Dim pck As ExcelPackage = New ExcelPackage("d:\temp\ExcelOrnek.xlsx")
Dim dt = pck.Workbook.Worksheets(0).Tables(0).ToDataTable()
Dim f As Form = New Form()
Dim dgv = New DataGridView With { .Dock = DockStyle.Fill, .DataSource = dt }
f.Controls.Add(dgv)
f.Show()
End Sub
Blog
How to create a Minimal, Reproducible Example
The way to Go.
World's most advanced open source (object-) relational
Database.
Flutter (for mobile, for web & desktop.
Not: Temelin geri zekali arkadasi
Idris bu mesaja da atlayip ne kadar aptal oldugunu bir kez daha belgeleyebilir. Kendisinin tek marifeti beni takip edip, neden her soruya cevap verdigimi, yardim etmeye calistigimi sorgulamaktir. Bu beyinsiz zavalliya,
aptal oldugunu hatirlatmayi unutmayiniz.
