Office: (Office 2003) Ping.mit VBA ?

Hallo

Ich habe hier ein Projekt in dem einige per odbc eingebundene Tabellen sind. (TCP )

Nun ist es so dass dieser DB Server nicht immer erreichbar ist.

Ich möchte daher.vor einer Interaktion mit diesen Tabellen den DB Server anpingen und dann per.VBA entsprechend reagieren

Wir mache ich so was ?

Cu GTR

:)

 

Dr. Googel dürfte da diverse Lösungen liefern.

 

Hi

Ob du es glaubst oder nicht....

Ich suche seit 2 Stunden auf Google und finde nix gescheites...
Einige vielversprechende Lösungen für VB. Aber nix mit VBA...

Bisher bester Ansatz ist Ausführung des Windows ping Befehls. Ergebnis in eine Datei und die einlesen und analysieren. Aber irgendwie habe ich noch die Hoffnung dass es da was besseres gibt

Cu gtr

 

Hi GTRDriver,

warum machst Du nicht einfach einen ADO Recordset. Falls der Server nicht erreichbar ist, dann bekommst Du eine entsprechende Fehlermeldung. Da merkst Du Dir den Code und den kannst Du dann abfangen.

Noch mehr würde ich Dir empfehlen bei solchen Konstellationen keine Tabellen einzubinden sondern nur über ADO zu arbeiten. Beim DAtenschreiben nur Transaktionen zu benutzen.

VG
trekking

 

Hallo zusammen

erstmal danke - ich hab jetzt was bei google gefunden das auch funktioniert:

Code:

Hab das jetzt mal getestet und das scheint genau das zu sein was ich gesucht habe ...

Bezüglich der Anforderung:

Es geht um eine kleine Access Anwendung auf Windows Tablets (gleich 2 dinge die eigentlich nicht passen - Tablet mit Windows und Access als touch Anwendung - aber dennoch es klappt wunderbar ...)

Dabei kann der User innerhalb des Firmen WLAN die Daten Syncen (das sind nur ca. 400 Datensätze (mysql) das dauert bei stehendem WLAN gerade mal 2 Sekunden.

Ich möchte eben das Syncen nur erlauben wenn der Server pingbar ist ..

 

Hi Gtr,

dies hab ich mir mal aus Informationen ausm Internet zusammengestelt. Es ist zwar für VB6 aber das müsste in VBA ganz genauso gehen, da es nur Windows-APIs aufruft.
Code:

Die Funktion Ping kehrt als True (-1) zurück, wenn die IP geantwortet hat, ansonsten False (0).
Die beiden ausgeremten Zeilen hab ich benutzt, um Hops und RTT in Textboxen anzuzeigen.

 

Hi

danke für den Code - hab das grad mal probiert- super - das läuft noch wesentlich flüssiger ...

Für meine zwecke reicht da 1 erfolgreicher Ping - daher Wert =1 und mega flott

Danke dir !

 

Gern geschehen.
Als VB6-Guru fühl ich mich manchmal einfach nur... alt. *wink.gif*

 

Hi

Ich SAG immer das Ziel ist der weg und nicht umgekehrt

Access mit VBA ist einfach extrem schnell wenn es um spezialisierte zugeschnittene Anwendungen.geht.

Ich hatte neulich mal ein Gespräch mit einem gestandenen c Programmierer und hatte ihm auf Nachfrage einige Projekte die ich mit access realisiert habe gezeigt. Der war vollkommen vor den Kopf gestoßen was mit access geht. Er hatte access. Ksher nur quasi zu schnellen validieren von abfragen oder zum testweisen Connecticut für odbc Quellen verwendet ...

 

Als VB6-Programmierer hab ich Access auch hauptsächlich zum Verwalten von Datenbanken und Ausprobieren von Abfragen eingesetzt, bin aber mit den Access-Mechanismen einigermaßen vertraut, obwohl z.B. die Formulare doch ziemlich unterschiedlich zu VB6-Forms sind.
Dennoch ist mir das Potenzial von Access und dessen Möglichkeiten voll bewusst. Vor allem, weil sich Lösungen so rasch zusammenbauen lassen, wo in VB6 mehr Arbeit dahintersteht.
Das Schöne an VBA ist, dass eigentlich alle API-Aufrufe genauso funktionieren wie in VB6.

 

Hallo

Hat evtl jemand eine Idee warum diese hier gezeigte Lösung nicht unter windows 10 funktioniert ?

Win7/8.1 Server 2012 etc. kein Problem.
Unter Win10 bekomme ich immer ein FALSE zurück - also "nicht pingbar"

CU
GTR

 

Ping in Windows 10 erlauben: GUI, PowerShell, netsh, GPO

 

Hallo

ich meine ausgehender PING...

Also die Anwendung läuft auf win10 und pingt einen 2012R2 an.

Firewall hab ich mal komplett abgeschaltet - aber leider keine besserung ...

CU

 

Eventuell kann man das Problem anderweitig umgehen. Ist zwar nicht die schönste Lösung, aber machbar. Erstelle mit C# oder VB.NET eine kleine Ping-App (verstecktes Console-Fenster), die die URL anpingt (gibt mehrere Methoden in .NET, um eine Erreichbarkeit festzustellen), das Ergebnis in gewünschter Form aufbereitet und dieses in eine Textdatei abspeichert (als CSV vielleicht). Diese kannst Du dann im Anschluss mit Access einlesen und die Textdatei wieder löschen. Mit .NET erstellte Ping-Funktionen funktionieren auch unter Win10 ohne Probleme (mir ist dazu zumindestens noch kein Problem begegnet). Alternativ kann man das Ergebnis auch in die Zwischenablage kopieren und in VBA auslesen. Diese kleine App startest Du aus Access heraus.

Ich hatte mal mit einem Projekt zu tun, wo mehrere Funktionen bzw. Features gefordert waren, die mit Access bzw. VBA schlichtweg einfach nicht möglich bzw. nur mit einem riesigen Aufwand zu realisieren waren. Ich habe in dem Verzeichnis der Datenbank ein Verzeichnis "Tools" angelegt und dort meine kleinen "Apps", geschrieben in C#, abgelegt. Die Ergebnisse wurden entsprechend aufbereitet und abgespeichert. Die Einlesung erfolgt(e) dann mit Access.

Alternativ kann man imho mit VB6 eine dll mit den entsprechenden Funktion erstellen und einbinden (sofern Du noch einen Zugriff auf VB6 hast). Aber bei VB6 muss ich dann passen, da ich ab .NET 1.0 den Schwenk zu C# gemacht habe und mein Wissen dazu eher verstaubt ist (obwohl es eine tolle Zeit war *biggrin.gif* ).

 

>Für meine zwecke reicht da 1 erfolgreicher Ping
>daher Wert =1 und mega flott
Was meist du denn damit?