Discussion :

[Jah73]

Bonjour à tous,

Je voudrais faire en sorte que mon application n'exécute

Code :

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

New SqlConnection(connectString)

qu'une seule fois.

De ce fait, j'ai crée une classe LinkDataBase pour avoir qu'une seule connexion au serveur (singleton) :

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
 
Public Class LinkDataBase
 
    Private connectString As String = "..."
    Private Shared instance As LinkDataBase = Nothing
 
    Private Sub New()
 
        Dim connection As SqlConnection = New SqlConnection(connectString)
 
        connection.Open()
 
        If Not connection.State = ConnectionState.Open Then
            MsgBox("Server connection failure ", MsgBoxStyle.OkOnly, "Status")
        End If
 
    End Sub
 
 
    Public Shared Function GetInstance() As LinkDataBase
 
        If instance Is Nothing Then
            instance = New LinkDataBase()
        End If
 
        Return instance
 
    End Function
End Class

De ce côté la, pas de problème. Cependant, quand je veux faire une SqlCommand, le second paramètre doit être de type SqlConnection sauf que quand je fais :

Code :

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

Dim insert As SqlCommand = New SqlCommand("INSERT INTO ..", LinkDataBase.GetInstance())

il me dit qu'une valeur type LinkDataBase ne peut être convertie en SqlConnection (logique).

Quelqu’un pourrait me dire comment palier ce problème ?

Merci,

Jah

[Rainui]

Bonjour,

Votre méthode

Code :

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

LinkDataBase.GetInstance()

renvoie un objet LinkDataBase et pas une SqlConnection.

Vous pouvez peut être ajouter une propriété à votre classe de type SqlConnection afin de pouvoir l'utiliser par la suite.

Mais pourquoi vouloir monopoliser une connection à une source de données sur la durée de vie de l'application?

[Jah73]

Bonjour Rainui,

En fait, j'ai énormément de requêtes à faire dans différentes classes et je voulais mettre le getInstance dans chaque SqlCommand pour centraliser et simplifier la chose.

Il faudrait donc que j'intègre un return quelque part ?

[Rainui]

Bonjour,

Vous pouvez plus simplement écrire une fonction à laquelle vous passez comme paramètre la requête que vous voulez exécuter et qui renvoie les résultats sous la forme que vous souhaitez utiliser.

Ainsi vous n'aurez plus qu'à utiliser cette fonction pour récupérer vos données partout ou vous en avez besoin.

Fonction du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function ReturnData(ByVal CmdString As String) As DataTable
    Dim _Result As New DataTable
    Dim _ConnString As String = "Data Source=|DataDirectory|\MyDB.sdf;Persist Security Info=False;"
    Dim _Conn As New SqlServerCe.SqlCeConnection(_ConnString)
    Dim _Command As New SqlServerCe.SqlCeDataAdapter(CmdString, _Conn)
    _Conn.Open()
    _Command.Fill(_Result)
    _Conn.Close()
    Return _Result
End Function

[Jah73]

Merci pour vos réponses Rainui,

Le problème c'est que ce sont des inserts, dans les classes où j'exécute les requêtes, je voudrais éviter d'avoir :

Code :

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

1
2
Dim _ConnString As String = "Data Source=|DataDirectory|\MyDB.sdf;Persist Security Info=False;"
    Dim _Conn As New SqlServerCe.SqlCeConnection(_ConnString)

De ce fait, j'ai voulu faire un singleton pour avoir à écrire ces lignes qu'une seule fois. De plus, je n'ai pas besoin de retour comme ce sont des Insert : ExecuteNonQuery()


EDIT : Cette solution peut convenir mais je voudrais éviter de faire _Conn.Open() et _Conn.Close() à chaque requêtes

[Rainui]

Bonjour,

Heu, l'idée reste la même, je ne vois pas ce qui vous dérange

Au lieu de faire une fonction vous faites une Sub, à la place de

Code :

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

Dim _Command As New SqlServerCe.SqlCeDataAdapter(CmdString, _Conn)

vous mettez un SqlServerCE.SqlCommand() puis à la place de

Code :

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

_Command.Fill(_Result)

vous mettez _Command.ExecuteNonQuery()

Je ne vais pas vous pondre le code exact, je ne sais pas ce que vous voulez faire

[Pol63]

La 1ère première chose quand on veut faire des choses étranges c'est de préciser pourquoi.

Donc pourquoi ne vouloir qu'une connexion alors que tu as plein de requêtes à faire ?
Ca irait beaucoup plus vite de les faire toutes en même temps.
Et même si tu en fait une de temps en temps ouvrir et fermer une connexion à chaque fois et ce qui est recommandé.

Néanmoins il convient de se faire une classe qui encapsule l'accès aux données, permettant en une ligne d'exécuter une requête plutot que d'en mettre 10. Si tu as une bonne raison cette classe peut être faite pour n'avoir qu'une connexion.

[Jah73]

Je pense avoir trouvé la solution, je m'explique ..

Comme j'ai des requêtes diverses et variées dans différentes classes, je voulais avoir une seule connexion au serveur à l'ouverture de mon programme et me déconnecter à la fermeture. Du coup j'ai fais comme ca :

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
Public Class LinkDataBase
 
    Private connectString As String = "...."
    Private Shared instance As LinkDataBase = Nothing
    Private Shared connection As SqlConnection = Nothing
 
 
    Private Sub New()
 
        connection = New SqlConnection(connectString)
 
        connection.Open()
 
        If Not connection.State = ConnectionState.Open Then
            MsgBox("Server connection failure ", MsgBoxStyle.OkOnly, "Status")
        End If
 
    End Sub
 
    Public Shared Function GetInstance() As SqlConnection
 
        If instance Is Nothing Then
            instance = New LinkDataBase()
        End If
 
        Return connection
 
    End Function
End Class

De ce fait, quand j’exécute une requête, je n'ai plus qu'à faire :

Code :

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

 Dim insert As SqlCommand = New SqlCommand("...", LinkDataBase.GetInstance())

Et pour me déconnecter

Code :

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

LinkDataBase.GetInstance.Close()

Est-ce une bonne méthode ?

[Rainui]

Bonsoir,

Pour le coup, je ne vois pas pourquoi se casser la tête à écrire une classe pour juste ouvrir et fermer une connection ...

Autant mettre une variable SqlConnection en public dans la classe du formulaire principal et sur les évènements load et closing gérer l'ouverture et la fermeture de la connection.

Je dois probablement dire une bétise...

Si Pol63 voit une utilité à cette classe, je veux bien la connaitre comme ça je me coucherais moins bête

[Pol63]

ca permet de ne pas faire

Code :

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

1
2
3
using connexion
 
end using

donc ca ne va pas très loin ^^

[Rainui]

Merci Pol63 pour cette confirmation

[sinople]

Garder une connexion ouverte tout du long de la vie de ton application est une erreur de design "standard". Ca bouffe des ressources dans le vide et pire encore ça peut bloquer toutes la base parce qu'on a laisser un LOCK trainer à un endroite.

C'est pourquoi il est conseillé d'utiliser un bloc Using uneconnexion As New connexion() .... End Using pour utiliser une connexion (Garantie que la connexion est fermée à la sortie du bloc using même en cas d'exception.

Il peut néanmoins être intéressant de faire ce que tu proposes pour obtenir une chaîne de connexion commune à l'application (surtout si cette dernière peut être variable (le changement des settings des chaînes de connexion en .Net est assez laborieux :-)

Last but not Least, même si le singelton c'est super sur le papier et que ça fait bien de dire qu'on utilise des paterns de prog, il existe en vb.net des trucs qui s'appellent les modules qui font a peu près la même chose en beaucoup plus simple. Je vais me faire tapper dessus par les puristes de la prog objet sur ce coup...

[Rainui]

Code :

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

1
2
3
Using Massette
doigts=TryCast(SinopoleHand,Doigt)
End Using

En tout cas, j'aurais compris à quoi sert Using

[Jah73]

Merci pour vos explications, je vais abandonner ce singleton alors ..