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:     [ Jetzt bewerten ]	Views:  4.543
www.vb-power.net	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.