[VB.NET] Verifica raggiungibilità server remoto MySQL

[Phusys]

Sto scrivendo un applicativo per sincronizzare due database: uno locale ed uno remoto; quello locale è un db MSSQL, l'altro è un db MySQL. Per far ciò ho utilizzato il connector di mysql e devo dire che il programma funziona (per ora ho implementato solo la connessione al database remoto) se non fosse per un piccolo dettaglio:
essendo il database remoto, ho necessità di monitorare anche se il dbms è attivo oppure no e quindi visualizzare lo stato di suddetto dbms nella finestra dell'applicazione (sostanzialmente si tratta di un messaggio "Connesso" oppure "Dbms non raggiungibile") solo che se il dbms risulta irraggiungibile il controllo errori viene ignorato e viene generata un'eccezione a runtime.

Il codice che ho al momento implementato è il seguente:

Dim myConnectionString As String
        myConnectionString = "server=127.0.0.1;" _
            & "uid=a;" _
            & "pwd=a;" _
            & "database=b;"

        Try
            Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
            conn.Open()

        Catch ex As MySql.Data.MySqlClient.MySqlException
            Select Case ex.Number
                Case 0
                    LabelStateRemote.Text = "DB Remoto - Errore di connessione"
                Case 1045
                    LabelStateRemote.Text = "DB Remoto - Dati di connessione errati"
            End Select

        End Try

ed a runtime genera la seguente eccezione (riporto solo le prime righe):

Le informazioni su come richiamare il debug JIT (Just-In-Time) anziché questa finestra
sono riportate in fondo al messaggio.

************** Testo dell'eccezione **************
System.Net.Sockets.SocketException: Socket non connesso e indirizzo non fornito durante l'invio su un socket di datagramma che utilizza una chiamata sendto. Richiesta di invio o ricezione di dati annullata
   at System.Net.Sockets.Socket.Shutdown(SocketShutdown how)
   at MySql.Data.Common.SocketStream.Read(Byte[] buffer, Int32 offset, Int32 count)
   at System.IO.BufferedStream.ReadByte()
   at MySql.Data.MySqlClient.PacketReader.ReadHeader()
   at MySql.Data.MySqlClient.PacketReader.OpenPacket()
   at MySql.Data.MySqlClient.NativeDriver.Open()
   at MySql.Data.MySqlClient.Driver.Create(MySqlConnectionString settings)
   at MySql.Data.MySqlClient.MySqlConnection.Open()

sapete aiutarmi?

[oregon]

Se lo modifichi cosi' ...

Catch ex As MySql.Data.MySqlClient.MySqlException
   Select Case ex.Number
      Case 0
         LabelStateRemote.Text = "DB Remoto - Errore di connessione"
      Case 1045
         LabelStateRemote.Text = "DB Remoto - Dati di connessione errati"
      Case Else
         LabelStateRemote.Text = "DB Remoto - Non disponibile"
End Select

... puo' andare?

[Phusys]

niente...sempre uguale

[Kahm]

Originariamente inviato da Phusys
niente...sempre uguale

come hai risolto?
ora anche io ho lo stesso errore!

che purtroppo in locale da me funziona bene
mentre lo stesso programma dato al mio cliente gli da questo errore

p.s.
server mysql remoto e con setessa stringa di connessione

gli ho perfino fatt oscaricare i mysqlconnector ma niente

[Phusys]

ancora non ho risolto...mi viene il dubbio sia un problema del connector..ma son più propenso ad un problema di mia incapacità

[Kahm]

Originariamente inviato da Phusys
ancora non ho risolto...mi viene il dubbio sia un problema del connector..ma son più propenso ad un problema di mia incapacità

ascolta io per sbaglio ieri ero disconnesso da internet, ed avviando l'applicazione ha dato questo stesso tipo di errore!

quindi nn si ocllega al db!
le sluzioni sono
1)firewall
2)linea intenert non attiva

[power.mobile]

basterebbe controllare la socketexception.... o sbaglio?

[Phusys]

Originariamente inviato da Kahm
ascolta io per sbaglio ieri ero disconnesso da internet, ed avviando l'applicazione ha dato questo stesso tipo di errore!

quindi nn si ocllega al db!
le sluzioni sono
1)firewall
2)linea intenert non attiva

si ma io non è che voglio risolvere il problema...voglio poterlo intercettare..nel senso che voglio che mi restituisca un codice di errore quando non trova il dbms in modo tale da poter gestire l'evento non che mi generi un'eccezione.

[illusione]

Ciao
non ho capito bene se è lo stesso problema ma espongo il mio:
Ho fatto un'applicazione utilizzando vbnet e mysql.
Nel locale si collega tranquillamente mentre quando installo
il programma su un altro pc e inserisco come parametri
i dati IP del server non fa la connessione.

Ho provato a fare la stessa connessione in VB6 e funziona tranquillamente.

Non so cosa fare?
Avete qualche consiglio?

Dim myConnString As String = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & Preferenze(0) & ";" _
& "DATABASE=" & Preferenze(3) & ";" _
& "USER=" & Preferenze(1) & ";" _
& "PASSWORD=" & Preferenze(2) & ";" _
& "OPTION=16384;"

myConnection.ConnectionString = myConnString
myConnection.Open()

[illusione]

Ciao Alka
ti chiedo scusa se ogni volta mi rimproveri ma vorrei capire
una volta per tutte come funziona.
Allora:
Io ho un problema che riscontro in diversi utenti.
Se non posso fare la stessa domanda a tutti
e la posso fare solo a uno come fanno gli altri a sapere
del mio problema specialmente se all'interno di una discussione?