Hallo Gerry,
SQL Compact ist im Durchsatz grob vergleichbar mit einer Access Datenbank.
Zunächst wäre die erste Schleife immer vorzuziehen, denn setorientierte
Befehle, die alle benötigten Daten abrufen, sind auch bei Standard-SQL vorzuziehen.
Die zweite (Loop 2) hatte ich quasi als Worst Case eingebaut, denn mir waren 8ms einfach zu schnell ;-)
Generell sollte man das eher vermeiden, denn dabei werden etliche Befehle
mehr an die Datenbank gesendet. Und im Falle von Linq müssen die jedesmal
erstellt werden.
Mein Prozessor ist nun einige Tage neuer (Quad Core - von dem hier einer genutzt wird, dafür weniger Taktrate),
und vermutlich auch die Platte schneller (spielt bei dem Volumen aber kaum eine Rolle).
Woraus sich die besseren Zeiten ergeben dürften.
Das Äquivalent mit DataTable/ADO.NET für die zweite Variante liegt hier etwas unter 1000ms,
Was also gut ein drittel Aufschlag für Linq2Sql (1370ms) bedeutet.
Um Linq ebenfalls dort hinzubringen, kann man eine CompiledQuery verwwenden -
damit ist Linq2SQL bei mir etwa 20ms langsamer.
Unten Code zum Vergleichen und Testen auf Deiner Seite.
Gruß Elmar
' Kompilierte Abfrage für Loop2
Private Shared SendItemById As Func(Of SQLCompact.DBAlerts, Integer, IQueryable(Of SQLCompact.SendItem)) = _
CompiledQuery.Compile(Of SQLCompact.DBAlerts, Integer, IQueryable(Of SQLCompact.SendItem))( _
Function(context As SQLCompact.DBAlerts, idAlert As Integer) _
context.SendItems.Where(Function(i) i.IDAlert = idAlert))
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AlarmsList = From c In _db.Alarms Select c
Dim sw = Stopwatch.StartNew
For Each MyAlarm In AlarmsList
Dim idAlert = MyAlarm.IDAlert
For Each MySendItem In SendItemById(_db, idAlert)
Console.WriteLine("Item 2: {0} - {1}", MySendItem.IDSendItem, MySendItem.IDAlert)
Next
Next
sw.Stop()
Console.WriteLine("Loop 2: {0} ms", sw.ElapsedMilliseconds)
Console.WriteLine()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Grobes Äquivalent für die zweite Schleife
Using connection As New SqlCeConnection(My.Settings.DBAlertsConnectionString)
' Entspricht From c In _db.Alarms Select c
Dim alarmTable As New DataTable("Alarm")
Using alarmAdapter = New SqlCeDataAdapter("SELECT * FROM Alarm", connection)
alarmAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
alarmAdapter.MissingMappingAction = MissingMappingAction.Passthrough
alarmAdapter.Fill(alarmTable)
End Using
Dim sw = Stopwatch.StartNew
' Entspricht From v In _db.SendItems Where v.IDAlert = idAlert Select v
Dim sendItemTable As New DataTable("SendItem")
Using sendItemAdapter = New SqlCeDataAdapter("SELECT * FROM SendItem WHERE IDAlert=@IDAlert", connection)
sendItemAdapter.SelectCommand.Parameters.Add("@IDAlert", SqlDbType.Int)
sendItemAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
sendItemAdapter.MissingMappingAction = MissingMappingAction.Passthrough
sendItemAdapter.FillSchema(sendItemTable, SchemaType.Source)
For Each alarmRow As DataRow In alarmTable.Rows
sendItemAdapter.SelectCommand.Parameters("@IDAlert").Value = alarmRow("IDAlert")
sendItemTable.Clear()
sendItemAdapter.Fill(sendItemTable)
For Each sendItemRow As DataRow In sendItemTable.Rows
Console.WriteLine("Item 2: {0} - {1}", sendItemRow("IDSendItem"), sendItemRow("IDAlert"))
Next
Next
End Using
sw.Stop()
Console.WriteLine("Loop 2: {0} ms", sw.ElapsedMilliseconds)
End Using
Console.WriteLine()
End Sub
