|
| Autor |
Nachricht |
Elrohir_
Tutorial Leser
Anmeldedatum: 10.09.2007
Beiträge: 59
|
mdb wird unbrauchbar
Verfasst am: 29.09.2007, 23:25 |
|
|
Guten Abend werte Coder und Coderinnen.
Mich beschäftigt wieder einmal ein Problem..
Ich habe auf einem FTP Server eine .mdb datei liegen.
Als ich sie hochgeladen habe, war noch alles in Ordnung, also die Originaldatei kann ich auch öffnen.
Nunja, ich lade die über eine batch datei hoch, und an anderer Stelle auch wieder über eine batch datei runter.
Mein Problem besteht darin, das die Datei, die ich dann vom FTP server bekomme nicht verwendbar ist.
bei der Zeile
| Code: | | Set DBon = OpenDatabase(<DBname>) |
gibt VB mir dann zurück, dass es ein ungültiges Datenbankformat sei.
Vielen dank
EDIT: ich habe immerhin herausgefunden, dass die Datei schon beim Upload beschädigt wird... sie hat dann circa 7KB weniger als das Original. Aber erklären kann ich mir das auch nicht -.- |
|
| |
|
 |
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 30.09.2007, 09:55 |
|
|
Gibt wahrscheinlich ein Problem mit dem Übertragungsmodus. Probier halt mal mit FlashXP aus mit welchem Modus die Datei heil bleibt ( Einstellungen ->Übertragung ->Übertragungsmodus)
ASCII, Binär oder Automatisch, einfach probieren und gucken wo es Probleme gibt. |
|
| |
|
|
Elrohir_
Tutorial Leser
Anmeldedatum: 10.09.2007
Beiträge: 59
|
Verfasst am: 30.09.2007, 12:32 |
|
|
Im moment per ascii, wo es Probleme gibt...
naja, hab jetzt einfach zwei benutzersteuerelemente angelegt:
Download:
| Code: | Option Explicit
Public Function Download()
On Error GoTo 1
Kill "InetList.mdb"
1
On Error GoTo 2
With Inet1
.Cancel
.AccessType = icUseDefault
.Protocol = icFTP
.URL = "<URl>>"
.RemotePort = "21"
.UserName = "<username"
.Password = "<passwort>"
.Execute , "GET InetList.mdb InetList.mdb"
End With
Exit Function
2
MsgBox "Error download", vbCritical & vbOKOnly, "Error"
End Function
|
Delete und dann Upload:
| Code: | Public Function Upload()
Dim a As String
Dim b As String
On Error GoTo 2
Shell ("ElrochatDatakill.bat")
Sleep 750
With Inet1
.Cancel
.AccessType = icUseDefault
.Protocol = icFTP
.URL = "<URL>"
.RemotePort = "21"
.UserName = "<username>"
.Password = "<passwort>"
a = "InetList.mdb"
b = "InetList.mdb"
.Execute , "PUT" & a & "" & b
End With
Exit Function
2
MsgBox "Error upload", vbCritical & vbOKOnly, "Error"
End Function
|
der Download und das entfernen der Datei per batch funktionieren. (da wird die Datei, auf dem FTP server gelöscht, weil da obrige Code ja nicht überschreibt=
Aber der Upload will einfach nicht funktionieren... |
|
| |
|
|
|
|
Registrieren
Login
