Discussion :

[Bakkach]

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 :

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

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 ) .. et merci d'avance .. ^^

[chaparo]

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

Code :

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

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

[Bakkach]

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

Code :

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

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 ^^

[chaparo]

La ou tu en a besoin

Code :

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

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 :

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

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

[Joki_]

Tu peux aussi créer un module..

[Bakkach]

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 .. ^^

[gnusti]

Bonjour,

Code :

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

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 :

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

1
2
3
4
5
 
 
...
Connexion()
...

C'est tout

[Joki_]

Bonjour,

Code :

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

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 :

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

1
2
3
4
5
 
 
...
Connexion()
...

C'est tout

Hum, exactement ça. +1

[Bakkach]

Merci bcp .. ^^

[Bakkach]

Bonjour,

Code :

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

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 :

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

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 :

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

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 :

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

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!!

[Bakkach]

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

Code :

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

1
2
3
    Public con As New SqlConnection
    Public cmd As New SqlCommand
    Public lrd As SqlDataReader

ça marche .. merci bcp pour votre aide .. ^^

[Joki_]

N'oublie pas le résolût.