Rubrik: | VB-Versionen: VB6 | 01.07.16 |
Nachfolgende Funktion gibt das Ergebnis einer Datenbankabfrage (Recordset) als String-Liste mit variablen Trennzeichen zurück.
' Erstellt einen Gesamtstring mit dem Feldinhalt des
' Recordsets mit variablen Trennzeichen
'
' Beispiel: SELECT Id FROM tbl... WHERE ...
' Rückgabe: Id1,Id2,Id3,Id4
Public Function StringListFromRs(ByVal sSQL As String, _
Optional ByVal FieldSep As String = ",", _
Optional ByVal FieldDelim As String = "") As String
Dim oRs As ADODB.Recordset
Dim sList As String
' oConn: ADODB.Connection Objekt
Set oRs = oConn.Execute(sSQL, , adCmdText)
If Not oRs.BOF And Not oRs.EOF Then
Do
sList = sList & FieldDelim & oRs(0) & FieldDelim & FieldSep
oRs.MoveNext
Loop Until oRs.EOF
End If
oRs.Close
Set oRs = Nothing
StringListFromRs = TrimRight(sList, FieldSep)
End Function