[Débutant] Déclarer et utiliser une fonction globale

Déclarer et utiliser une fonction globale

Salut j'ai une fonction: "Connection" que j'utilise presque dans chaque form de mon projet vb.net.
La fonction connection est de la forme suivante:
Code:

1 2 3 4 5 6 7 8 9 Dim con As New SqlConnection Dim cmd As New SqlCommand Dim lrd As SqlDataReader Public Sub Connection() con.ConnectionString = "Data Source=NOM_ORDINATEUR;Initial Catalog=NOM_DE_LA_BASE;Integrated Security=True" con.Open() cmd.Connection = con End Sub
Alors comment pourrais-je déclarer cette méthode comme étant une méthode globale de telle sorte qu'il suffit seulement de l’appeler sans avoir recours à re-écrire toute la fonction dans chaque form(enfin j'essaye d'éviter le gaspillage :D) .. et merci d'avance .. ^^

Je dirais de faire une classe genre un peu comme ca puis d'ajouter la reference de la dll dans tes projets

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
public class MaClass
 
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim lrd As SqlDataReader
Friend NOM_ORDINATEUR as string
Friend NOM_DE_LA_BASE as string
 
Public Sub Connection()
con.ConnectionString = "Data Source=NOM_ORDINATEUR;Initial Catalog=NOM_DE_LA_BASE;Integrated Security=True"
con.Open()
cmd.Connection = con
End Sub

Citation:
Envoyé par chaparo
Je dirais de faire une classe genre un peu comme ca puis d'ajouter la reference de la dll dans tes projets
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 public class MaClass Dim con As New SqlConnection Dim cmd As New SqlCommand Dim lrd As SqlDataReader Friend NOM_ORDINATEUR as string Friend NOM_DE_LA_BASE as string Public Sub Connection() con.ConnectionString = "Data Source=NOM_ORDINATEUR;Initial Catalog=NOM_DE_LA_BASE;Integrated Security=True" con.Open() cmd.Connection = con End Sub
et comment je fais appel a çette fonction ? .. je m'excuse je sus débutant en VB.net don j'aimerais bien un exemple qui m'aidera a comprendre.. et merci d'avance ^^

La ou tu en a besoin

Code:

1
2
3
4
5
6
 
 
dim connect as new MaClasse
connect.NOM_ORDINATEUR = "le nom"
connect.NOM_DE_LA_BASe = "la base"
connect.Connection()

Ou plutot que de créer les deux variable friend tu peux aussi donner les variables dans la fonction connection

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
public class MaClass
 
   Dim con As New SqlConnection
   Dim cmd As New SqlCommand
   Dim lrd As SqlDataReader
   Public Sub Connection(byval NOM_DE_LA_BASE as string, byval NOM_ORDINATEUR as string)
      con.ConnectionString = "Data Source=NOM_ORDINATEUR;Initial Catalog=NOM_DE_LA_BASE;Integrated Security=True"
      con.Open()
      cmd.Connection = con
   End Sub
end class
 
dim connect as new MaClasse
connect.Connection("le nom", "la base")

Tu peux aussi créer un module..

Citation:

Envoyé par Joki_

Tu peux aussi créer un module..

En effet c'est exactement ce que j'ai trouvé et que je veux bien savoir comment le faire avec un module..mon but est de déclarer la fonction "Connection()" dans un module: "MonModule" et lui faire appel dans les forms ou j'en ai besoin .. Mais je sais pas comment .. ^^

Bonjour,
Code:

1 2 3 4 5 6 7 8 9 10 Module LeNomDeMonModuleSansImportance Public Sub Connexion() 'Le blabla permettant de se connecter End Sub End Module
Puis lorsque tu en as besoin dans n'importe quelle procédure, fonction... :
Code:

1 2 3 4 5 ... Connexion() ...
C'est tout :)

Citation:
Envoyé par gnusti
Bonjour,
Code:

1 2 3 4 5 6 7 8 9 10 Module LeNomDeMonModuleSansImportance Public Sub Connexion() 'Le blabla permettant de se connecter End Sub End Module
Puis lorsque tu en as besoin dans n'importe quelle procédure, fonction... :
Code:

1 2 3 4 5 ... Connexion() ...
C'est tout :)
Hum, exactement ça. +1

Merci bcp .. ^^

Citation:
Envoyé par gnusti
Bonjour,
Code:

1 2 3 4 5 6 7 8 9 10 Module LeNomDeMonModuleSansImportance Public Sub Connexion() 'Le blabla permettant de se connecter End Sub End Module
Puis lorsque tu en as besoin dans n'importe quelle procédure, fonction... :
Code:

1 2 3 4 5 ... Connexion() ...
C'est tout :)
C'est exact mais il me reste une chose:
Je veux aussi déclarer le:
Code:

1 2 3 Dim con As New SqlConnection Dim cmd As New SqlCommand Dim lrd As SqlDataReader
comme étant des variables globales et qu'ils soient reconnues dans tous les forms sans besoin de les déclarer dans chaque form .. j'ai essayé de les déclarer dans le module de la façon suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Imports System.Data.SqlClient Module Fonctions Dim con As New SqlConnection Dim cmd As New SqlCommand Dim lrd As SqlDataReader Public Sub Connection() con.ConnectionString = "Data Source=MON-PC;Initial Catalog=MABASE;Integrated Security=True" con.Open() cmd.Connection = con End Sub End Module
mais ça ne marche pas!!

Aaah c'est bon j'ai trouvé la solution ..
au lieu de les déclarer avec Dim je les déclare avec Public:
Code:

1 2 3 Public con As New SqlConnection Public cmd As New SqlCommand Public lrd As SqlDataReader
ça marche .. merci bcp pour votre aide .. ^^

N'oublie pas le résolût.