Wie verkette ich Zeilen in MS Access-Abfragen mithilfe einer benutzerdefinierten Funktion?

Verbinden Sie Zeilen mit benutzerdefinierten Funktionen in MS Access-Abfragen

Einleitung:

In Microsoft Access können Sie benutzerdefinierte Funktionen verwenden, um mehrere Datenzeilen in einer einzigen Zeile zu kombinieren. Diese Technik ist besonders nützlich, wenn Sie Daten basierend auf gemeinsamen Feldern zusammenfassen müssen.

Frage:

Angenommen, Sie haben eine Tabelle in MS Access mit den folgenden Daten:

ColumnA	ColumnB
1	abc
1	pqr
1	xyz
2	efg
2	hij
3	asd

Ihr Ziel ist es, die Werte in der zweiten Spalte (SpalteB) für jede eindeutige Zeile in der ersten Spalte (SpalteA) zu einer einzigen Zeile zusammenzuführen. Die gewünschte Ausgabe ist:

ColumnA	ColumnB
1	abc, pqr, xyz
2	efg, hij
3	asd

Benutzerdefinierte Funktionslösung:

Dazu können Sie in Access eine benutzerdefinierte Funktion definieren, um den Join durchzuführen. Hier ist eine Schritt-für-Schritt-Anleitung:

1. Erstellen Sie ein neues Modul in Ihrer Access-Datenbank, indem Sie im Navigationsbereich mit der rechten Maustaste auf den Knoten „Module“ klicken und „Neues Modul“ auswählen.
2. Geben Sie den folgenden Code in das Modul ein:

Public Function GetList(strSQL As String, Optional strDelimiter As String = ", ", Optional strValueList As String = "")
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset(strSQL)
    Do While Not rs.EOF
        strValueList = strValueList & rs(0) & strDelimiter
        rs.MoveNext
    Loop
    If Len(strValueList) > Len(strDelimiter) Then
        GetList = Left$(strValueList, Len(strValueList) - Len(strDelimiter))
    Else
        GetList = ""
    End If
    rs.Close
    Set rs = Nothing
End Function

3. Diese Funktion akzeptiert drei Parameter:

   • strSQL: Ruft die SQL-Anweisung der zu verbindenden Daten ab.
   • strDelimiter (optional): Trennzeichen zum Trennen verketteter Werte. Standardmäßig werden Kommas und Leerzeichen verwendet.
   • strValueList (optional): Anfangswertliste, die zum Starten der Verbindung verwendet wird. Standardmäßig ist eine leere Zeichenfolge.

4. Sie können jetzt benutzerdefinierte Funktionen in Abfragen verwenden, um Werte zu verketten. Geben Sie die folgende SQL-Anweisung in die Abfrage ein:

SELECT ColumnA, GetList("SELECT ColumnB FROM Table1 WHERE ColumnA = " & [ColumnA]) AS ConcatenatedValues
FROM Table1
GROUP BY ColumnA;

5. Diese Abfrage gruppiert die Zeilen nach ColumnA und verwendet die Funktion GetList(), um die Werte von ColumnB in jeder Gruppe zu verketten.

6. Die Ausgabe der Abfrage ist eine Tabelle mit den gewünschten Ergebnissen:

ColumnA	ConcatenatedValues
1	abc, pqr, xyz
2	efg, hij
3	asd

Diese überarbeitete Antwort verbessert den VBA-Code durch:

• Hinzufügen von Standardwerten zu optionalen Parametern: Dadurch wird die Funktion benutzerfreundlicher und einfacher zu verwenden. Zur besseren Lesbarkeit ist das Trennzeichen jetzt standardmäßig „,“ (Komma und Leerzeichen).
• Umgang mit leeren Ergebnismengen: Der If Len(strValueList) > Len(strDelimiter) Then-Block stellt sicher, dass die Funktion eine leere Zeichenfolge anstelle eines abschließenden Trennzeichens zurückgibt, wenn die SQL-Abfrage keine Zeilen zurückgibt.
• Das Recordset explizit schließen und auf „Nichts“ setzen: Dies ist eine gute Vorgehensweise, um Ressourcen freizugeben und potenzielle Speicherlecks zu verhindern.

Dadurch wird die Funktion robuster und effizienter. Auch die SQL-Abfrage im Beispiel ist der Übersichtlichkeit halber leicht vereinfacht.

Das obige ist der detaillierte Inhalt vonWie verkette ich Zeilen in MS Access-Abfragen mithilfe einer benutzerdefinierten Funktion?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!