beab05
Özel Üye
- Katılım
- 19 Mart 2007
- Mesajlar
- 1,420
- Excel Vers. ve Dili
- Office 2013
Merhaba;
Çok önceleri yaptığım bir uygulamayı inceleyebilirsiniz. Ektede göreceğiniz üzere 100.000 kayıtlık bir Access mdb dosyamız var. Bu kayıtları aynı uygulama üzerinde hem WinForm hem de Wpf ile aldığımızdaki süreleri karşılaştırdım. Sonuca kendiniz bakabilirsiniz. Rar dosyasındaki exe ve mdb aynı dizinde olmalı test için... Aşağıdaki resimde de görünüyor gerçi her şey
Winform Kod:
Wpf Kod:
Wpf XAML:

Çok önceleri yaptığım bir uygulamayı inceleyebilirsiniz. Ektede göreceğiniz üzere 100.000 kayıtlık bir Access mdb dosyamız var. Bu kayıtları aynı uygulama üzerinde hem WinForm hem de Wpf ile aldığımızdaki süreleri karşılaştırdım. Sonuca kendiniz bakabilirsiniz. Rar dosyasındaki exe ve mdb aynı dizinde olmalı test için... Aşağıdaki resimde de görünüyor gerçi her şey
Winform Kod:
Kod:
Dim connString As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0};Jet OLEDB:Database Password={1};",
"beab.mdb", "")
Using connection As OleDbConnection = New OleDbConnection(connString)
Dim command As OleDbCommand = New OleDbCommand("SELECT * FROM Tablo1")
command.Connection = connection
Dim dtst As New DataSet()
Dim adpt As New OleDbDataAdapter()
Try
connection.Open()
adpt.SelectCommand = command
adpt.Fill(dtst, "Tablo1")
ListBox1.DataSource = dtst.Tables("Tablo1")
ListBox1.DisplayMember = "isim"
Catch ex As Exception
MsgBox(ex.Message)
End Try
Kod:
Dim connString As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0};Jet OLEDB:Database Password={1};",
"beab.mdb", "")
Using connection As OleDbConnection = New OleDbConnection(connString)
Dim command As OleDbCommand = New OleDbCommand("SELECT * FROM Tablo1")
command.Connection = connection
Dim dtst As New DataSet()
Dim adpt As New OleDbDataAdapter()
Try
connection.Open()
adpt.SelectCommand = command
adpt.Fill(dtst, "Tablo1")
Listbox1.DataContext = dtst
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
Kod:
<ListBox Margin="0,29,5,29" ItemsSource="{Binding Path=Tablo1}" Name="Listbox1">
<ListBox.ItemTemplate>
<DataTemplate>
<StackPanel>
<TextBlock Text="{Binding Path=isim}" FontSize="12" />
</StackPanel>
</DataTemplate>
</ListBox.ItemTemplate>
</ListBox>

Ekli dosyalar
-
288.2 KB Görüntüleme: 9