Alors voila mon problème, je pense que vous allez pouvoir m'aider.

J'ai une application qui se connecte à une base sql au lancement, je veux que si elle réussie à établir la connection, le programme se lance et que dans le cas ou la connexion échoue, un petit msgbox nous dise byby !

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ConnectDataBase()
 
        Dim str As String = "SELECT name from company"
        Dim Command As New SqlCommand(str, myConnection)
        Dim Reader As SqlDataReader = Command.ExecuteReader
 
End Sub
et ma fonction connect est défini avec un try !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    Public Function ConnectDataBase()
        Try
            myConnection.ConnectionString = "database=" + databaseName + " ; server=" + serverName + " ; User ID=" + userId + " ; pwd=" + password
            myConnection.Open()
        Catch ex As Exception
            MsgBox("Connection failed : " & ex.Message, MsgBoxStyle.Critical)
            Application.Exit()
        End Try
    End Function
et en fait le msgbox fonctionne mais pas le application.exit()