Export von Daten aus MS Access & Hochladen per FTP

Heute einmal kein Besserwisser-Artikel, sondern eine kleine Anleitung für Programmierer.

Wie exportiere ich Daten aus MS Access? Und wie kann ich diese dann per FTP z.B. in Preissuchmaschinen schieben?

1. Spezifikationen erstellen
   • Manuell Exportieren
   • „Weitere“ anklicken
   • Spezifikationen festlegen
   • „Speichern unter“ wählen
   • Unter dem selben Namen speichern, der in dem Formular-Quelltext verwendet wird (Name Exportspezifikation)
2. Erstellen eines Formulars
3. Erstellen eines Buttons
4. Rechte Taste auf den Button, „Ereignis“ auswählen, „Code Generator“ auswählen
5. Folgenden Code eingeben:

DoCmd.TransferText acExportDelim, „Name Exportspezifikation“, _

„Name Tabelle oder Abfrage“, „C:\Datei.txt“, -1

Für jede Abfrage oder Tabelle, welche Exportiert werden soll muss dieser Code eingeben werden.

Nun müssen zwei Funktionen angelegt werden:

Public Function TextdateiErstellen(strDateiname As String)
Open strDateiname For Output As #1
Print #1, „FTP-USERNAME“
Print #1, „FTP-PASSWORT“
Print #1, „send C:\Datei.txt“
Print #1, „mkdir Verzeichnis“
Print #1, „cd Verzeichnis“
Print #1, „send C:\Datei.txt“
Print #1, „Quit“
Close #1
End Function

Public Function BatdateiErstellen(strDateiname As String)
Open strDateiname For Output As #1
Print #1, „ftp.exe -s:C:\WINDOWS\pass.txt www.planet4one.de“
Print #1, „pause“
Close #1
End Function

Funktionsaufruf zum Dateien für FTP erzeugen:

TextdateiErstellen („C:\Windows\pass.txt“)
BatdateiErstellen („C:\Windows\ftp.bat“)

FTP Verbindung aufrufen:

Dim web As Object
Set web = CreateObject(„WScript.Shell“)
web.Run („C:\Windows\ftp.bat“)
Set web = Nothing

Dies war es schon. Viel Spass beim Testen.
Und hier am Ende noch einmal der gesamte Programmtext:

Public Function TextdateiErstellen(strDateiname As String)
Open strDateiname For Output As #1
Print #1, „FTP-USERNAME“
Print #1, „FTP-PASSWORT“
Print #1, „send C:\froogle_export3.txt“
Print #1, „send C:\billiger_export.txt“
Print #1, „send C:\kaufmonster_export.txt“
Print #1, „send C:\geizhals_export.txt“
Print #1, „send C:\geizkragen_export.txt“
Print #1, „send C:\idealo_export.txt“
Print #1, „send C:\preistrend_export.txt“
Print #1, „send C:\schottenland_export.txt“
Print #1, „send C:\netpreise_export.txt“
Print #1, „mkdir b2b“
Print #1, „cd b2b“
Print #1, „send C:\commerce_preise.txt“
Print #1, „Quit“
Close #1
End Function

Public Function BatdateiErstellen(strDateiname As String)
Open strDateiname For Output As #1
Print #1, „ftp.exe -s:C:\WINDOWS\pass.txt www.planet4one.de“
Print #1, „pause“
Close #1
End Function

Private Sub Exportieren_Click()
‚ Exportieren der einzelnen Abfragen
DoCmd.TransferText acExportDelim, „froogle Exportspezifikation“, _“froogle_export3″, „C:\froogle_export3.txt“, -1
DoCmd.TransferText acExportDelim, „kaufmonster Exportspezifikation“, _“kaufmonster_export“, „C:\kaufmonster_export.txt“, -1
DoCmd.TransferText acExportDelim, „billiger Exportspezifikation“, _“billiger_export“, „C:\billiger_export.txt“, -1
DoCmd.TransferText acExportDelim, „commerce Exportspezifikation“, _“commerce_preise“, „C:\commerce_preise.txt“, -1
DoCmd.TransferText acExportDelim, „geizhals Exportspezifikation“, _“geizhals_export“, „C:\geizhals_export.txt“, -1
DoCmd.TransferText acExportDelim, „geizkragen Exportspezifikation“, _“geizkragen_export“, „C:\geizkragen_export.txt“, -1
DoCmd.TransferText acExportDelim, „idealo Exportspezifikation“, _“idealo_export“, „C:\idealo_export.txt“, -1
DoCmd.TransferText acExportDelim, „preistrend Exportspezifikation“, _“preistrend_export“, „C:\preistrend_export.txt“, -1
DoCmd.TransferText acExportDelim, „schottenland Exportspezifikation“, _“schottenland_export“, „C:\schottenland_export.txt“, -1
DoCmd.TransferText acExportDelim, „netpreise Exportspezifikation“, _“netpreise_export“, „C:\netpreise_export.txt“, -1
‚ Dateien für FTP Transfer anlegen
TextdateiErstellen („C:\Windows\pass.txt“)
BatdateiErstellen („C:\Windows\ftp.bat“)

‚ FTP Transfer starten
Dim web As Object
Set web = CreateObject(„WScript.Shell“)
web.Run („C:\Windows\ftp.bat“)
Set web = Nothing
End Sub