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 .
Comment puis-je appeler cette fonction ?
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
Partager