Kompletten Inhalt eines ADO-Recordsets schnell in einen String einlesen Mit Hilfe der GetString-Methode des ADO-Recordset Objekts lässt sich der gesamte Inhalt des Recordsets schnell in einen String "umwandeln".
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.109
https://www.tools4vb.com	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 2 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um den Inhalt eines gesamten Recordsets beispielweise in eine Datei zu speichern, kann man ganz einfach die GetString Methode des ADO-Recordsets verwenden. Neben dem Feldtrennzeichen lässt sich hier auch das Zeilentrennzeichen festlegen. Auf diese Weise ist es ein "leichtes", den gesamten Inhalt eines Recordsets in eine Textdatei zu speichern, die man dann bspw. problemlos in Excel öffnen kann.

Optional verfügt die GetStrings-Methode noch einen zusätzlichen Parameter, über den man festlegen kann, wie "leere" Felder zurückgegeben werden sollen.

Aufrufbeispiel:

Dim oRs As ADODB.Recordset
Dim F As Integer
 
' Recordset erstellen
Set oRs = oConn.Execute("SELECT * FROM tblUser", , adCmdTable)
 
' String, der den Inhalt des Recordsets aufnehmen soll
Dim sData As String
 
' Feld-Trennzeichen: Semikolon
' Zeilen-Trennzeichen: vbCrLf
' leere Inhalte "leer" zurückliefern
sData = oRs.GetString(adClipString, , ";", vbCrLf, vbNullString)
 
' Inhalt in TXT-Datei speichern
F = FreeFile
Open App.Path & "\User.txt" For Output As #F
Print #F, sData
Close #F

Einziges Manko der GetString-Methode: Es lässt sich kein Feldbegrenzungszeichen festlegen (bspw. Anführungszeichen etc.).