Discussion :

[philippe123]

Bonjour à tous,

j'ai une appli vb.net dans laquelle il y a un petit formulaire permettant de saisir :

- le serveur sgbd
- le user sgbd
- le mdp sgbd

Sur le clic d'un bouton "tester connexion" je lance une fonction qui teste la connexion.
Si il y a une erreur de connexion, je la catche et j'affiche un msgbox invitant l'utilisateur à renouveller sa saisie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function testerConnBDD(ByVal server_bdd As String, _
                       ByVal user_bdd As String, _
                       ByVal mdp_bdd As String) As Boolean
        '*** chaine de connexion
        Dim connString As String = "database=bddProd;server= " & server_bdd & ";User ID= " & user_bdd & ";pwd=" & mdp_bdd
        '*** Connexion à la base
        Dim connBDD As New SqlConnection(connStringRISDB)
        Try
            '*** on ouvre la connexion
            connBDD.Open()
            '*** on la ferme
            connBDD.Close()
            Return True
        Catch ex As Exception
            Return False
        Finally
            connBDD.Dispose()
        End Try
    End Function

le probleme est que lorsque les identifiants sont erronés, ca fige mon appli pendant 10 secondes...

Existe-t-il une autre méthode + souple permettant de tester une connexion vers un SGBD????

Merci pour votre aide

Philippe

[Skyounet]

Existe-t-il une autre méthode + souple permettant de tester une connexion vers un SGBD????

Ah ben non.

Tu peux lancer dans un thread pour pas que ça freeze, avec un joli message d'attente.

[philippe123]

Slt,

oui mon test est maintenant dans un backgroundworker.

Merci d'avoir clôturé ce point d'incertitude.

Philippe