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

Gepostet in der Kategorie Allgemein - Kommentare (1)