Discussion :

[arnolem]

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()

[Piotrek]

Salut

Essaie la fermeture de l'application en dehors du catch, soit en verifiant que le State de ta myConnection est bien "open", soit en retournant un booleen, declare en dehors du try-catch, que tu metterais a true ou false dans le catch (et tu referme l'appli en fonction)

(et utilise un stringbuilder si t'as plus de 4 concatenations de texte a faire)

[AP]

Oui il vaut mieux éviter les exit dans un catch ou un finally et faire l'opération quand on est sorti du bloc.

[arnolem]

c'est vrai que j'ai remarqué que des exit sub ne marchais pas non plus.
Pour la connection sa peux encore aller mais dans certains cas, sa va etre chiant a tester en dehosr du catch.
pour la connection, je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If (myConnection.State = 0)
then
exit.application()

[crazyyann]

Salut,
j'ai peut étre mal compris ton probléme, mais si tu faisait simplement un End à la place de Application.Exit().

Comme ça:

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) 
           End
 End Try 
    End Function

[Nico28]

J'ai de mon coté eu quelques soucis (dans certains cas) pour arriver à interrompre un programme (par exemple dans une boucle, le 'end' ne fonctionnait pas !!).
Ce que j'ai trouvé qui fonctionne à tous les coups, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
System.Environment.Exit(0)

Ceci dit, je ne sais pas dans quel état je laisse la machine !!

[doccpu]

Application.Exit() attend que tout les threads et toutes les boucles soient terminés avant de fermer l'application.
si ça ne se ferme pas c'est qu'il y a autre chose qui tourne dans ton application !

System.Environment.Exit(0) je suis pas sur mais je crois que sa crashe l'appli et renvoie le code spécifié !
à savoir : MicroSoft considère toute valeur <> 0 comme un code d'erreur !

perso je préfere "Application.Exit()".