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