StringListFromRs - Ergebnis einer DB-Abfrage als String-Liste Diese Funktion gibt das Ergebnis einer DB-Abfrage (Recordset-Inhalt) als Gesamtstring mit variablen Trennzeichen zurück.
Autor:  Dieter Otter	Bewertung:	Views:  1.955
http://www.tools4vb.de/	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.