Textdatei aus Abfrage mit Pipe erzeugen

[Mexi123]

Hallo.

vielleicht hat jemand eine Idee für mich ...

Ich möchte aus einer Abfrage heraus eine Textdatei erzeugen. Zur Trennung der Spalten will ich ein Pipe verwenden.

Mein bisheriger Ansatz war

Code [Auswählen] Erweitern


DoCmd.OutputTo acQuery, "MeineAbfrage", "MS-DOSText(*.txt)", "C:\_Datei.txt", False, "", 0


Das Ergebnis ist zwar hübsch  ) ... aber ... ich brauche eine Datei, welche "zeichengetrennt" die Daten zur Verfügung stellt.

Danke schon einmal

[Hondo]

Hallo,
das geht so nicht.
Am einfachsten ist es ein Recordset aufzumachen und in einer Schleife über alle DS die Daten in eine Textdatei schreiben.
Hier mal ein Beispiel:

Code (vb) [Auswählen] Erweitern

Sub test()
    Dim rs As DAO.Recordset
    Dim strTextstring As String
    Set rs = CurrentDb.OpenRecordset("qryTeilnehmer")

    Open "c:\users\public\test.txt" For Output As #1
    Do While Not rs.EOF
        strTextstring = rs!Id & ";" & rs!Vorname & ";" & rs!Nachname & ";" & rs!Strasse & ";" & rs!PLZ & ";" & rs!Ort & ";" & rs!Telefon & ";" & rs!Email
        Write #1, strTextstring
        rs.MoveNext
    Loop
    Close #1
    rs.Close
    Set rs = Nothing
End Sub

[DF6GL]

Hallo,

es geht auch mit

Docmd.TransferText ......

unter Angabe einer vorher angelegten Exportspezifikaton (in der u. a. das Pipe-Zeichen als Trennzeichen definiert wird)...

[Mexi123]

Hallo Hondo,
Halllo DF6GL,

vielen Dank für Eure Tipps ... ich habe mich für die zweite Variante "DoCmd.TransferText" entschieden.

Der MS Assistent ist zwar ein bisschen zickig was Pipe betrifft, aber das kennt man ja von Assistenten 

Der Ansatz mit der Exportspezifikation war mir bis dato nicht richtig bekannt.

Nochmals danke und ein herzliches Wochenende