vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
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.057 
http://www.tools4vb.de/System:  Win7, Win8, Win10kein 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

Dieser Tipp wurde bereits 1.057 mal aufgerufen.

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel