vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik:    |   VB-Versionen: VB601.07.16
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 OtterBewertung:     [ Jetzt bewerten ]Views:  1.930 
http://www.tools4vb.de/System:  Win7, Win8, Win10, Win11kein 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