Da imam sličan problem ja bih razmišljao ovako.

1. Ako je problem sa mrežom probao bih da u svoj kod ubacim ping IPAdresaServera na kome je instaliran SQL Server ako ping vraća pakete onda je sa mrežom sve u redu
2. Ako je sa mrežom sve u redu a treba proveriti da li je SQL Server Offline/Online onda bih razmišljao da koristim SQL-DMO ili u novije vreme se koristi WMI.

Možda postoji neko jednostavnije rešenje ali ja bih razmišljao u ovom pravcu ako bih imao sličan problem.
Nadam se da sam ti makar malo pomogao.

Ako pogledas moconn.connectiontimeout property videces da je read only, medjutim u connectionstringu mozes dodati:


Dim con As New SqlConnection("connection timeout=5;user id...")

Connection timeout se odredjuje u (integer) sekundama koliko dugo ce sistem cekati pre nego sto izbaci sistemsku gresku ukoliko konekcija nije dostupna. Ako sam dobro razumeo problem, onda treba da smanjis timeout (ja sam gore stavio 5 sekundi) i da u nativnom kodu uhvatis exeption.



Dobra vest je da u visal basic-u 2005 ima novi application event: NetworkAvailabilityChanged

Npr.


Partial Friend Class MyApplication
Friend conav As Boolean



Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged

' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.


If e.IsNetworkAvailable Then

conav = True

Else

conav = False

End If
End Sub
End Class

Sve sto sada treba uraditi je proveriti da li je conav true, ako jeste onda con.open, ako nije, onda drugi put :)

Pozdrav, nadam se da sam barem malo pomogao.

Hvala na savetima, mislim da mi je za sada metoda sa PINGom najbliskija po konceptu.

Ma imao sam ti ja "problem" sa ping-om. Provajderi onemogucuju ping iz bezbedonosnih razloga i onda mozes da ga pingujes koliko hoces, jednostavno: nema pinga. Ako to kod tebe nije slucaj, onda je ok.

Pozz.