Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub TestConnexion() Dim CnxString As String = "" Dim Cnx As New OracleConnection(CnxString) Try Cnx.Open() If Cnx.State <> ConnectionState.Closed Then Cnx.Close() MessageBox.Show("Test de connexion => OK !", _ "Test de connexion", _ MessageBoxButtons.OK, _ MessageBoxIcon.Information) End If Catch ex As OracleException MessageBox.Show("Test de connexion => Erreur : " & Environment.NewLine & _ ex.Message, _ "Test de connexion", _ MessageBoxButtons.OK, _ MessageBoxIcon.Information) End Try End Sub