Laisser une connexion ouverteRésolu

Question

Bonjour, 
 
 J'ai un programme qui peut executer une tonne de requêtes, comme presque pas. Je ne suis pas DBA, et j'aimerais, dans mon programme, faire en sorte que l'application se connecte a la base lorsqu'on la démarre, puis qu'un timeout passe à 60 secondes, et si une requête (n'importe ou dans le programme) utilise la connexion, alors cela relance le timeout à 60 sec.

Y a t-il une astuce pour faire cela ? 

Cordialement
--

NHenry · Answer

Bonjour,

Comment tu fais actuellement ?
As-tu essayer d'utiliser une autre postée pour ta connexion (Module au lieu de fonction par exemple) ?

Moundir76 · Answer

Bonjour,

Actuellement, dès que j'ai besoin de ma connexion, je l'ouvre au dernier moment, et je la referme au plus tôt. Cependant, dans mon application, j'ai une fonction de recherche et le temps que la connexion se fasse, cela provoque un léger "freeze" de l'application.

Ainsi je souhaiterais que ma connexion se ferme toute seule si elle n'est plus utilisée au bout d'une minute, car je ne pense pas que ce soit très propre de la laisser ouverte en permanence ?

Ai-je été plus clair ? 

Merci d'avance

NHenry · Answer

Bonsoir,

Ok, j'attendais un peu de code ou une idée sur l'organisation du programme

Sinon, fais un module dans le quel tu stocke la variable de la connexion en public.
Dedans, tu fais une fonction de connexion et une autre de déconnexion.
La première appelée lors du lancement du programme et l'autre lors de la fermeture de l'application.

Ensuite, tu utilise uniquement la variable créée.

Moundir76 · Answer

Bonjour,

Merci beaucoup, c'est une idée à laquelle je n'avais pas pensée ! Les développeurs VB ont ils souvent recours au module ?

Voici mon code pour ceux que ça pourrais intéresser :

Imports System.Data.SqlClient

Module moduleConnexion
    WithEvents tmr As New Timer
    Dim MaConnexion As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=""Path\de\la BDD\bdd.mdf"";Integrated Security=True;Connect Timeout=30;User Instance=True")
    'Ouvre la connexion et 
    Sub Connect()

        MaConnexion.Open()
        'Set interval à 3 minutes
        tmr.Interval = TimeSpan.FromMinutes(3).TotalMilliseconds
        tmr.Start()
    End Sub

    'Si le timer est a 0 on ferme la connexion
    Private Sub tmr_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tmr.Elapsed
        MaConnexion.Close()
    End Sub


End Module

A+

cs_Jack · Answer

Salut

-1- Place une variable dteLastUsed de type Date dans la Form. Cette variable te servira a stocker la date et heure de la dernière utilisation de ta DB.
Dans chaque requète que tu soumets, renseigne cette variable en y mettant DateTime.Now 
 
-2- Place un nouveau Timer sur ta Form, Enabled et Interval 1000 ou 2000 (on n'est pas pressé)
Dedans, évalue le temps écoulé depuis ta dernière requète en calculant un TimeSpan et déconnecte toi si ... :
Dim UnUsed As System.TimeSpan = DateTime.Now.Subtract(dteLastUsed)
If UnUsed.TotalSeconds > 60 Then Call maDbDisconnect

-3- Bien sûr, avant chaque requète, il te faudra vérifier si ta connexion est active, auquel cas une reconnexion sera nécessaire
If maConnexion Is Nothing Then Call maDbConnect

Laisser une connexion ouverte

5 réponses

Votre réponse