Rubrik: Datenbanken · ADO | VB-Versionen: VB6 | 13.07.12 |
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: | Views: 12.436 |
www.tools4vb.de | System: WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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.).