Bonjour à tous ,

J'ai plusieurs formulaires qui interroge plusieurs tables d'une base de données, je souhaiterai faire une fonction de connexion et l'appeler quand bon me semble plutôt que de la réécrire à chaque fois .
Voici mon code .
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Gpi
    Private Sub GpiConnection()
 
        'Chaine de connexion a la base 
        Dim maCnx As New SqlClient.SqlConnection()
        Dim maCmd As New SqlClient.SqlCommand
 
        'Variable de chaine de connexion
        Dim Database As String
        Dim Server As String
 
        Database = "GPI"
        Server = "CEVO06200436\SQLEXPRESS"
 
 
        'Try permettant d'envoyer l'erreur lors de la requete
        Try
 
            With maCnx
                .ConnectionString = "Integrated Security=SSPI;" & _
                                    "Initial Catalog=" & Database & ";" & _
                                    "Data Source=" & Server & ";"
 
                ' Ajout d'un Try Catch pour tester l'ouverture de la connexion si il y à une erreur il va fficher un msg box
                Try
                    .Open()
                Catch ex_Open As Exception
                    MsgBox(ex_Open.Message)
                    Exit Sub
                End Try
            End With
 
        Catch ex_Open As Exception
            MsgBox(ex_Open.Message)
            Exit Sub
        End Try
 
    End Sub
End Class
Comment puis-je appeler cette fonction ?