Kako preskočiti neaktivnu ODBC konekciju?

Situacija je sledeća:

Napravio sam aplikaciju kojom se iz centrale firme može pristupiti udeljenim objektima tj. linkovanim Advantage database tabelama, preko ODBC drajvera, i izvršavati neki jednostavni upiti (tipa koliki je trenutni pazar, stanje zaliha za određeni artikl i sl.), a rezultati se pakuju u privremenu Access tabelu.

To sve radi sasvim pristojno brzo i lepo, pod uslovom da veza između udaljenih prodavnica postoji.
Ali, pošto su u pitanju VPN konekcije, dešava se povremeno da se veza sa nekim objektom prekine (nestane struje, zaglupi se ruter i sl.), a onda i moja aplikacija javi grešku i prestane sa radom...

Dakle, konkretno pitanje glasi - da li, i na koji način je moguće proveriti da li je ODBC konekcija aktivna, i ukoliko nije, da se ista nekako preskoči, tj. da je query ne uzima u obzir u trenutnoj obradi, dok se veza ponovo ne uspostavi?

Po meni bi ti najednostavnije bilo da ubacis obradu greske,
Onda obradiš grešku , ili jednostavno izadjes van iz forme ili programa


On error goto greska

......

tu je tvoj cod , tvoja konekcija
itd....


exit sub ' ili exit function
greska:

err clear
exit sub


ili mozes obraditi gresku, znaci , neka ti ispise broj greske pa da znas koji je broj greske
kad pukne veza..

pa sad kad znas koja je greska ,, npr err = 123


onda bi mogao ispitati

If err=133 then
msgbox " Nema veze sa serverom, pokušajte kasnije..... itd "
err.clear
exit sub

end if



pozdrav

I ja sam razmišljao u tom smeru, samo, problem je izgleda što prvi zakuka ODBC drajver, tj. on javi grešku a ne Access, a ne znam kako da obradim takvu poruku.
Sa druge strane, sve da se takva greška obradi, dosta dugo traje dok drajver ne "ukapira" da veza ne postoji, što nije baš praktično.
Doduše, mogu na ADS serveru da smanjim Client Time Out vreme, ali time ću da zeznem izvršavanje komplikovanih upita, koji zahtevaju više vremena za obradu...

Nego, sad mi pade na pamet, da li je moguće iz Accessa pingovati IP adresu servera, pa onda obraditi response? Mislim da bi na taj način provera veze išla dosta brže.

Ups, ovo sam lupio , pa stoga zaboravite na gore navedeno. Client Time Out naravno važi kad je konekcija već uspostavljena, a ne kada ne postoji.
Pardon.

Evo, cini mi se da ovjde ima par interesantnih ideja:
http://forums.devshed.com/visu...g-52/ping-from-vba-328706.html
Meni se najvise dopada post #13.

A i ovo nije losa lokacija:
http://vbnet.mvps.org/index.html?code/internet/ping.htm

Srecno!

Potpis

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Hej, ovo je više nego dobro! Kodu iz primera #13 treba manje od 1 sekunde da utvrdi da li postoji aktivna konekcija. Baš lepo :)
Inače, iskoristio sam drugu verziju SystemOnline funkcije iz primera, pošto tako ne iskače Command Prompt...


Hvala puno!

PS. Evo, napravio sam i mali primer. Mislim da zaslužuje da se nađe u arhivi foruma. Zatrebaće.

Drago mi je da sam pomogao da ti drugi pomognu.

Hvala tebi na primjeru, ja sam ga vec "spakovao" u svoj spajz. Mozda nekad i zatreba.

Potpis

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric