Rubrik: Datenbanken · ADO | VB-Versionen: VB5, VB6 | 14.09.04 |
Recordset nach ASCII exportieren (ADO) Wie man ein beliebiges Recordset schnell nach ASCII exportieren kann, das zeigen wir Ihnen in diesem Beispiel. | ||
Autor: Roland Wutzke | Bewertung: | Views: 12.999 |
www.vb-power.net | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit dem nachfolgenden Tipp möchten wir Ihnen eine Möglichkeit vorstellen, wie Sie ein beliebiges Recordset schnell und bequem in ein ASCII-Textfile exportieren können.
Nicht nur, dass die Routine gemessen an ihrer Leistung sehr klein ist; sie ist zudem auch noch ultraschnell.
Fügen Sie den nachfolgenden Code in ein Modul ein:
' Recordset nach ASCII exportieren Public Sub ExportRSToASCII(ExpRST As ADODB.Recordset, sFile As String, _ Optional ByVal Delimiter As String = ";") Dim ExpString As String Dim F As Integer With ExpRST ExpString = .GetString(adClipString, , Delimiter, vbCrLf) End With F = FreeFile Open sFile For Output As #F Print #F, ExpString Close #F End Sub
Aufgerufen wird die Routine wie folgt:
ExportRSToASCII myRecordset, "C:\Export.txt"
Optional kann als dritter Parameter ein Feldtrenner angegeben werden. Als Standardwert wird ein Semikolon (;) verwendet.