Dim UnUsed As System.TimeSpan = DateTime.Now.Subtract(dteLastUsed) If UnUsed.TotalSeconds > 60 Then Call maDbDisconnect
If maConnexion Is Nothing Then Call maDbConnect
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports 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