Discussion :

[oulahoup]

Bonjour,

Soft: vbe2008

Le contexte: dans une MDI, j'indique le status de la connexion à la SGBD avec la fonction Timer.

Le code:

note: les déclarations sont faites en debut de MDI.

Partie 1 au niveau du Load du MDI aprés l'authentification, j'initie le Timer.

Code :

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

1
2
3
4
5
6
7
8
Private Sub MDIParent1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Timer1.Interval = 1000
        Timer1.Start()
 
        ToolStripStatusLabel1.Text = "Online"
 
    End Sub

Partie 2 avec le test.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        ticker = ""
 
        'Requete SQL
        conn = New MySqlConnection()
        conn.ConnectionString = "server=sgbd_distante;user id=root;password=;database=sgbd;"
 
        Try 'piege
 
            'connexion
            conn.Open()
 
            RequeteSQLTimer = "SELECT ticker FROM system;"
 
            'Execution de la requete
            myCommandTimer = New MySqlCommand(RequeteSQLTimer, conn)
            myReaderTimer = myCommandTimer.ExecuteReader
 
            ticker = 1
 
            conn.Close()
            conn.Dispose()
 
        Catch myerror As MySqlException
            'MessageBox.Show(myerror.Message, "Error Connecting to Database", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        Catch myerror As System.Exception
            'MessageBox.Show(myerror.Message, "System Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        Finally
 
            If ticker <> "" Then
                ToolStripStatusLabel1.Text = "Online"
                ToolStripStatusLabel1.ForeColor = Color.Green
                ToolStripStatusLabel1.Visible = Not (ToolStripStatusLabel1.Visible)
            Else
                ToolStripStatusLabel1.Text = "Offline"
                ToolStripStatusLabel1.ForeColor = Color.Red
                ToolStripStatusLabel1.Visible = Not (ToolStripStatusLabel1.Visible)
            End If
 
        End Try
 
    End Sub

Le probleme et la question: Quand je stoppe la SGBD distante en simulant un incident, je stoppe la base ou je débranche un cable, le fonctionnement du status Offline est aléatoire et cela fige l'application alors que la CPU client et serveur reste basse. Il ya clairement des exceptions mais je ne souhaites pas les afficher. Savez-vous pourquoi ?

note: il y a aussi la possibilité de faire via telnet mais avec vbe2008, je ne trouve pas la commande comme pour le ping.

Merci de votre aide.

@+

[Keihilin]

Le probleme et la question: Quand je stoppe la SGBD distante en simulant un incident, je stoppe la base ou je débranche un cable, le fonctionnement du status Offline est aléatoire et cela fige l'application alors que la CPU client et serveur reste basse. Il ya clairement des exceptions mais je ne souhaites pas les afficher. Savez-vous pourquoi ?

Cela est sûrement du à ta façon de tester la disponibilité de ta base.
Lorsque tu arrives à l'instruction "conn.Open()", une erreur va être levé si ta base n'est pas accessible, mais seulement à l'expiration du timeout...donc ton code va essayer d'ouvrir la connexion pendant 15 secondes par défaut.

[oulahoup]

Bonjour,

Ha ok.

Je vais chercher s'il est possible de modifier cette valeur pour la mettre à 3s.

Merci

[Keihilin]

Oui, il y a une propriété TimeOut sur l'objet Connection.

[oulahoup]

Bonjour,

J'ai trouvé cette commande:

Code :

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

1
2
3
4
        Dim value As Integer
 
        value = myCommandTimer.CommandTimeout
        myCommandTimer.CommandTimeout = 5

Mais le résultat n'est pas faulichon. Cela bloque le systeme.

Comme alternative, cette nuit, j'ai testé avec les sockets, mais cela engorge la base de données une fois que je quitte l'application et que je la relance.

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
 
        Dim ip As String = "192.168.0.1" 'ip à scanner
        Dim port As Integer = "8080" ' Port à écouter
 
 
        Dim sockets As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
       System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
        Try
            sockets.Connect(ip, port)
        Catch
        End Try
        If sockets.Connected Then ' si le port est ouvert
            ToolStripStatusLabel1.Text = "Online"
            ToolStripStatusLabel1.ForeColor = Color.Green
            ToolStripStatusLabel1.Visible = Not (ToolStripStatusLabel1.Visible)
            sockets .Close() 'fermeture socket
        Else ' si le port est absent
            ToolStripStatusLabel1.Text = "Offline"
            ToolStripStatusLabel1.ForeColor = Color.Red
            ToolStripStatusLabel1.Visible = Not (ToolStripStatusLabel1.Visible)
 
        End If

Quelle méthode utiliseriez vous pour un systeme similaire ?
Le labs de temps entre chque test, serait de combien pour être pertinent ?

Merci de votre aide.

[Pol63]

tu peux tester la connexion à la base sur un autre thread pour ne pas figer l'appli

[oulahoup]

Bonjour,

Si je fais un test toutes les 5 secondes, cele ne va aps en faire trop ?

Est-ce que le nombre de threads et semaphores sont liés ?

@+

[Pol63]

threads et sémaphores sont 2 choses différentes
sémaphore, ici pas besoin, un thread ca se démarre sans soucis

faire un test toutes les 5 secondes ca craind pas à priori
par contre peut etre pas besoin de faire une requete pour savoir si c'est bon
il y a des classes dans la dll sql server smo qui permet de faire une connexion à un server aussi
ou peut etre meme que connexion.open suffit pour être sur