Solange Sie mit Datenzugriffsobjekten hantieren, ist das Sortieren von Daten eine einfache Angelegenheit. Diese übernehmen Sortierungen etwa über die SQL-Anweisung OrderBy<\/b> oder dezidierte Sort-Methoden. Bei in Arrays untergebrachten Datenmengen unter VBA lässt Sie Access jedoch im Regen stehen. Hier kommen Sie um eigens programmierte Routinen nicht herum. <\/p>\nBeispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1601_Klassenmodule.accdb<\/b> im VBA-Modul mdlSort<\/b>.<\/p>\nAbstract<\/h2>\n
Hin und wieder kommt es vor, dass Sie Daten nicht nur über Recordsets<\/b> verwalten müssen, sondern auch über Arrays<\/b>. Ein Beispiel wäre das Einlesen externer Textdateien, die tabellarischen Aufbau aufwiesen. In der Regel öffnen Sie solche Dateien über die Open<\/b>-Anweisung und speichern ihren Inhalt in eine String-Variable. Die Split-Methode <\/b>ermöglicht anschließend das Auftrennen der Zeilen in die Elemente eines String-Arrays. Möchten Sie diese Elemente nun nach einem bestimmten Kriterium sortieren, so ist eine Sortierroutine gefragt.<\/p>\n
Es existiert ein Unmenge von Sortieralgorithmen mit Namen, wie QuickSort<\/b>, HeapSort<\/b>, MergeSort<\/b>, ShellSort<\/b> oder InsertionSort<\/b>, die in der Regel zwar meist mit nur wenigen Zeilen Programmcode auskommen, jedoch häufig in ihrer Funktionalität nur schwer zu durchschauen sind. Anders beim BubbleSort<\/b>-Algorithmus, der zwar in Hinsicht auf Performance der mit Abstand ineffizienteste ist, dafür jedoch umso leichter zu verstehen. Sollten Sie nicht Hunderttausende Elemente sortieren wollen, so spielt die Performance auf heutigen Rechnern in diesem Fall keine Rolle mehr.<\/p>\nBubbleSort<\/h2>\n
Die Sache ist recht simpel: Sie haben etwa ein eindimensionales Array mit allerlei Zeichenfolgen vor sich, die in aufsteigende Reihenfolge gebracht werden sollen. Dazu vergleicht BubbleSort jedes Element mit jedem und entscheidet, welches größer oder kleiner ist. Trifft dies zu, so vertauscht es die beiden, andernfalls nicht. Ein Beispiel-Listing sagt hier mehr, als viele Worte.<\/p>\n
Listing 1 stellt die Routine SortArray<\/b> vor, wie Sie sie im Modul mdlSort<\/b> der Beispieldatenbank vorfinden. Sie übergeben der Prozedur ein Array mit Elementen, die keinesfalls nur vom Typ String<\/b> sein müssen. Das Ganze funktioniert auch mit Zahlenwerten beliebiger Art, oder auch mit Datumswerten, da als Parameter MyArray<\/b> ein Variant angegeben ist.<\/p>\n Listing 1: Implementation des Bubble-Sort-Algorithmus in der Prozedur SortArray<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public <\/span>Enum eSortArray\r\n eSortAscending = 1\r\n eSortDescending = -1\r\nEnd Enum\r\nSub <\/span>SortArray(MyArray As Variant<\/span>, Optional<\/span> Order As <\/span>eSortArray = eSortAscending)\r\n If <\/span>IsEmpty(MyArray) Then<\/span> Exit Sub<\/span>\r\n \r\n Dim <\/span>i As Long<\/span>, j As Long<\/span>\r\n Dim <\/span>n As Long<\/span>\r\n Dim <\/span>tmp As Variant<\/span>\r\n Dim <\/span>ret As Boolean<\/span>\r\n \r\n n = UBound<\/span>(MyArray)\r\n For i = 0 To n - 1\r\n For j = i + 1 To n\r\n If <\/span>Order = eSortAscending Then<\/span>\r\n ret = (MyArray(i) < MyArray(j))\r\n Else<\/span>\r\n ret = (MyArray(i) > MyArray(j))\r\n End If<\/span>\r\n If <\/span>ret = 0 Then<\/span>\r\n tmp = MyArray(i)\r\n MyArray(i) = MyArray(j)\r\n MyArray(j) = tmp\r\n End If<\/span>\r\n Next<\/span> j\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t