Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

DOS-BOX in Access darstellen

Mitglied: moeller67

moeller67 (Level 1) - Jetzt verbinden

03.01.2007, aktualisiert 05.01.2007, 5859 Aufrufe, 10 Kommentare

Ich möchte DOS-Befehle (dir, copy, ftp etc.) über verschiedene Button in Access auslösen.
Über die Befehl "Shell(cmd......etc.)" eigendlich kein Problem.
Nur wird dann ein DOS-Fenster geöffnet
und z.B. das Ergebnis von "dir" in diesem Fenster angezeigt.

Ich möchte aber kein zusätzliches DOS-Fenster, sondern das Ergebnis z.B. in einem Formular-Feld
von Access. Alle über die Button ausgeführten Befehle (und Ergebnisse) werden in diesem Formular oder -Listenfeld
angezeigt.

DOS in Access sozusagen.

Ich hoffe auf Hilfe.
Mitglied: SlainteMhath
03.01.2007 um 16:49 Uhr
Was Du als erstes brauchst ist eine Funktion ähnlich der hier:

01.
Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer  
02.
 
03.
 
04.
Function ShellAppAndWait(ByVal pstrApp As String)  
05.
    Dim intTaskID As Integer  
06.
 
07.
 
08.
    intTaskID = Shell(pstrApp, vbHide)  
09.
    Do While GetModuleUsage(intTaskID) <> 0  
10.
        DoEvents  
11.
    Loop  
12.
End Function 
Der Aufruf wäre dann in etwa so:
01.
ShellAppAndWait(environ("comspec") & " /C dir c:\*.* > " & environ("temp") & "\x.txt")
Dann kannst Du die Datei %TEMP%\x.txt einlesen und im Formular darstellen.
Bitte warten ..
Mitglied: moeller67
03.01.2007 um 21:40 Uhr
Oh SlainteMhath du bist doch echt ein Genie, leider
habe ich noch einen Laufzeitfehler 53 "Datei nicht gefunden: Kernel".
Außerdem bin ich auch zu blöd die Textdatei im Formular darzustellen. Wie geht das?

Was will ich eigendlich, vielleicht verstricke ich mich auch in komplizierten Blödsinn.
Ich will im Access einen Dateiaustausch via ftp darstellen. Unsere Verkäufer melden sich via UMTS in ein VPN ein. Innerhalb dieses VPN läuft ein ftp-Server. Über dieses Acces-Tool soll der Verkäufer per ftp Dateien senden und empfangen können (besonders einfach für Verkäufer). Wichtig dabei ist, das der Verkäufer auch sieht, das seine Dateien wirklich angekommen sind. Und auch welche Dateien er bekommen hat.
Ich wollte das über die integrierte DOS-Box darstellen, vielleicht geht es auch einfacher.
Klar würde es auch über eine externes cmd-Fenster gehen ist aber unkomfortabel und nicht so schön.

Ich kenne mittlerweile Access ganz gut, auch ein müh VBA, aber hier bin ich doch stark überfordert. Vielleicht kannst du mir helfen.
Bitte warten ..
Mitglied: SlainteMhath
04.01.2007 um 08:42 Uhr
Achso, sag doch gleich, das Du was mit FTP machen willst

Schick mir mal Deine Mailadresse per PM, dann schick ich dir ein Stück VBA-Code und eine DLL mit der sowas geht.
Bitte warten ..
Mitglied: moeller67
04.01.2007 um 08:46 Uhr
Hallo SlainteMhath, meine Mail ist stephan.moeller@klaus-stapler.de
Bitte warten ..
Mitglied: SlainteMhath
04.01.2007 um 10:17 Uhr
Mail ist unterwegs
Bitte warten ..
Mitglied: moeller67
05.01.2007 um 14:45 Uhr
Lieber SlainteMhath melde dich nochmal,
ich hatte dir 2 Mails geschrieben, sind die angekommen?
Bitte warten ..
Mitglied: SlainteMhath
05.01.2007 um 14:47 Uhr
Lieber SlainteMhath melde dich nochmal,
ich hatte dir 2 Mails geschrieben, sind die
angekommen?
Das Mailkonto lese ich nicht regelmaessig

Gibts Probleme mit dem Code?
Bitte warten ..
Mitglied: moeller67
05.01.2007 um 14:50 Uhr
Jetzt nehme ich mal die Mail's und kopiere sie einfach:

1.
Hallo,

vielen Dank erstmal.

- empfangen klappt einbandfrei (kann ich das ganz noch auf Dateitypen begrenzen? .mdb, .jpg etc)
=ftpGetAllFiles("meinftpserver";"user";"meinpass";"/";"C:\ftp\Eingang";1)


- senden klappt leider noch nicht. "Datentypen stimmen nicht überein" (kann ich das ganz noch auf Dateitypen begrenzen? .mdb, .jpg etc)
=ftpPutFiles("meinftpserver";"user";"meinpass";"C:\ftp\Ausgang";"/";1)

- wie kann ich den gesamten Status während des Anmeldens, Senden oder Empfangen nun sichtbar machen?
Ich hab in deiner Funktion was von MSGBOX gelesen, doch beim "Empfangen" macht er zwar seine Arbeit, doch angezeigt wird nichts.

Vielen Dank

Gruß
Stephan Möller


2.
Hallo,
ich hab noch einen Fehler, wenn ich mich über VPN einwähle
geht auch das Dateien empfangen nicht. Folgender Fehler:
Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt"
Beim Debuggen markiert er "ftp.CloseConnection" gelb.
Die Verbindung ins VPN steht, per Dos erreiche ich auch den ftp-Server

In der Firma über Netzwerk geht es ja auch, nur hier am Notebook über die VPN-Einwahl nicht.

Gruß
Stephan Möller
Bitte warten ..
Mitglied: SlainteMhath
05.01.2007 um 15:18 Uhr

- senden klappt leider noch nicht.
"Datentypen stimmen nicht
überein" (kann ich das ganz noch
auf Dateitypen begrenzen? .mdb, .jpg etc)

=ftpPutFiles("meinftpserver";"user";"meinpass";"C:\ftp\Ausgang";"/";1)
Die Funktion ftpPutFiles hat folgende Parameter:
Host As String, User As String, Password As String => selbsterklärend

LocalFile() As String => ein Array das Typs String

RemoteFile() As String => ein Array das Typs String

Optional FailIfExists As Boolean => Wahr=Abbruch, falls Datei auf dem Server schon existiert.

Zu LocalFile() und RemoteFile():
Das sind wie gesagt Arrays. Das ganze ist so gedacht, das die Members des Arrays LocalFile als auf dem
Server den Namen/Pfad aus RemoteFile bekommen.

Beispiel:
LocalFile(1)="C:\WAS\AUCH\IMMER.TXT"
RemoteFile(1)="/was/anderes.txt"
=> aus die Lokale Datei "C:\WAS\AUCH\IMMER.TXT" wird auf dem Server als "anderes.txt" im Verzeichnis "/was"
abgelegt.

Du wirst also um ein bischen VBA Programmierung nicht drumrum kommen. Die Funktionen sind nicht
zur Verwendung in einem Control im Formular o.Ä. gedacht.


- wie kann ich den gesamten Status
während des Anmeldens, Senden oder
Empfangen nun sichtbar machen?
Ich hab in deiner Funktion was von MSGBOX
gelesen, doch beim "Empfangen"
macht er zwar seine Arbeit, doch angezeigt
wird nichts.
Gar nicht. Diese Funktionalität bietet die DLL nicht. Die Funktionen geben jeweils
TRUE falls die Aktion erfolgreich war oder FALSE wenn nicht.


2.
Hallo,
ich hab noch einen Fehler, wenn ich mich
über VPN einwähle
geht auch das Dateien empfangen nicht.
Folgender Fehler:
Laufzeitfehler 91 "Objektvariable oder
With-Blockvariable nicht festgelegt"
Beim Debuggen markiert er
"ftp.CloseConnection" gelb.
Die Verbindung ins VPN steht, per Dos
erreiche ich auch den ftp-Server
Hm, ich fürchte da kann ich dir leider nicht helfen. Das scheint evtl.
ein problem mit der Netzwerklibrary der MyFTP.dll zu sein, die sich
nicht mit deinem VPN Client verträgt o.Ä. (Die DLL ist nicht von mir
selber, also keine Ahnung, was da genau schief läuft.)

HTH,
Slainte
Bitte warten ..
Mitglied: moeller67
05.01.2007 um 15:25 Uhr
Ich hatte es ja vorher über Shell(ftp.....), so funktioniert es ja.
Nur wird dabei ein DOS-Fenster geöffnet, wo Übertragungsstatus (Transfer...OK) etc.
drin stehen. Ich würde diesen Status aber gerne im Formular darstellen. Ich muß sehen
ob die Dateien angekommen sind.
Vielleicht fällt dir ja noch durch Zufall was ein.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Dos-Box, seltsame(s) Zeichen - Was und woher?

gelöst Frage von Franz-Josef-IIBatch & Shell6 Kommentare

Ich "spiele" mich ja gerade mit dumpedid (Monitorerkennung) herum und habe seit einiger Zeit folgendes Phänomen: Die erste Zeile ...

Voice over IP

Fritz!Box 7360 als DECT Access Point

Frage von Bander82Voice over IP4 Kommentare

Hallo Zusammen. Ist Situation: Equip: TAE Dose mit T-Online Digitalisierungsbox Premium Fritz.Box als WLan Accesspoint DECT Telefon (No Name) ...

Batch & Shell

Umlaute in cmd-Datei darstellen

Tipp von frankenfrankBatch & Shell15 Kommentare

Umlaute lassen sich mit cmd sehr einfach darstellen. Es ist keine Konvertierung oder ein drittres Programm nötig. Der folgende ...

Microsoft Office

Access 2010 Formular in Datenblattansicht Zeile farbig abhänig vom Feldinhalt darstellen

Frage von thomas1972Microsoft Office3 Kommentare

Hallo, ich habe ein UFO in der Form Datenblattansicht im Momenten werden die Zeilen jeweils 2 farbig abwechselnd angezeigt, ...

Neue Wissensbeiträge
Windows Server
DP mit Benutzerdatenträger und VDS-SAN-policy
Tipp von lcer00 vor 3 StundenWindows Server

Hallo zusammen, ich habe gerade einen halben Tag mit Recherche zu dem Thema hinter mir und endlich ein Ergebnis. ...

Internet

Europa baut Zensurinfrastruktur auf: EU-Parlament stimmt für Upload-Filter, Leistungsschutzrecht und gegen KI-Forschung

Information von Frank vor 3 TagenInternet9 Kommentare

Eine sehr schlechte Entscheidungen für die Zukunft Europas ist gefallen: Der Rechtsausschuss im EU-Parlament stimmte heute morgen in einer ...

Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 5 TagenWindows 102 Kommentare

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 6 TagenVideo & Streaming9 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Sophos UTM 110 120 in Betrieb nehmen und IP Adresse am Cisco Switch herausfinden
Frage von KabuntelLAN, WAN, Wireless11 Kommentare

Hallo, ich mache in Rahmen meiner Umschulung zum Fachinformatiker - Systemintegration ein Praktikum. Gestern hat mir mein Chef gleich ...

DSL, VDSL
886VA und VDSL 50
Frage von agent00nixDSL, VDSL9 Kommentare

Ich bekomme nicht die vertraglich vereinbarten 50 Mbit/s US sondern nur 15 Mbit/s Was mache ich falsch ? Hier ...

Switche und Hubs
VPN Router empfehlung
Frage von mstSwitche und Hubs9 Kommentare

Moin Leute ich hab mal eine Frage an die VPN und Netzwerkprofis unter euch. Folgendes Szenario, ich habe einen ...

Firewall
Firewall Vorteil und Nachteil
gelöst Frage von vegeta500Firewall7 Kommentare

Hallo , ich habe eine Fragen (Theoretische), Welches Sicherheitsproblem kann eine gewöhnliche Firewall nicht lösen