Moundir76286
Messages postés dimanche 3 octobre 2010Date d'inscription
16 mai 2014
Dernière intervention
-
30 juil. 2013 à 09:55 - Dernière réponse : Moundir76286
Messages postés dimanche 3 octobre 2010Date d'inscription
16 mai 2014
Dernière intervention
- 31 juil. 2013 à 10:21
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.
NHenry14133
Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut
22 avril 2018
Dernière intervention -30 juil. 2013 à 19:37
+1
Utile
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.
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
-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
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
cs_Jack14010
Messages postés samedi 29 décembre 2001Date d'inscriptionModérateurStatut
28 août 2015
Dernière intervention -31 juil. 2013 à 10:02
Dans ton code, Moundir76, le Timer commence lors de la connexion.
Le mien commence après la dernière utilisation d'une requète.
A toi de voir laquelle est la plus adaptée à ton besoin ...
Le risque de ta solution est que ta connexion peut se fermer juste avant ou pendant une requète ...
En effet, je n'avais pas pensé à cette notion de connexion qui peut se refermer pendant un traitement. Théoriquement ce sera impossible car devant chaque requete je fais appel a ma procedure Connect, et cela relance pour trois minutes le compteur.
Voila le code final :
Sub Connect()
If MaConnexion.State = ConnectionState.Open Then
Else
MaConnexion.Open()
End If
'Set interval à 3 minutes
tmr.Interval = TimeSpan.FromMinutes(3).TotalMilliseconds
tmr.Start()
End Sub
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 ?
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
