multipe background Workers

**ahmed-bf** · 09/08/2012, 12h01

Je dispose d'une application qui se connecte vers une base de données et effectue 4 requêtes.

voilà le scénario :
- 2 requêtes (1 et 2) remplissant chacune un DataGridView(ce qui en fait 2 DataGridView)
- 2 requêtes (3 et 4) chacune d'elles affecte l'un des DataGridView

Le second remplissage du DataGridView1 (requête 3) a été fait à l'aide d'un BackgroundWorker et ça marche bien.

ce que je veux faire maintenant c'est réaliser la même chose pour le DataGridView2 (requête 4)
j'ai essayer de réaliser un autre background Worker pour cette requête mais ça bloque

j'ai envisager de réaliser ce second backgroundWorker parce que je manipule des requêtes sql lourdes donc si je lance cette requête dans le 1er BackgroundWorker ça devient lourd et ça perd tout son avantage

voici un bout de code pour avoir une idée plus claire sur ce que je suis entrain de faire :

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
46
Dim sql As String = "requête 1"
Dim dataadapter As New SqlDataAdapter(Sql, connection)
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connection.Open()
dataadapter.Fill(dt)
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.DataSource = dt
Dim i As Integer
For i = 0 To 9
Dim variable As String = DataGridView1.Item(0, i).Value.ToString
Dim sql1 As String = "requête 2"
Dim dataadapter1 As New SqlDataAdapter(sql1, connection)
dataadapter1.Fill(dt1)
Next i
DataGridView2.DataSource = dt1
Timer1.Interval = 10000
Timer1.Start()
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dataadapter.Dispose()
BackgroundWorker1 = New BackgroundWorker
BackgroundWorker1.WorkerReportsProgress = True
BackgroundWorker1.RunWorkerAsync()
End Sub
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim worker As BackgroundWorker = DirectCast(sender, BackgroundWorker)
Try
Dim sql2 As String = "requête 3"
Dim dataadapter2 As New SqlDataAdapter(sql2, connection)
dataadapter2.Fill(dt2)
e.Result = dt2
dataadapter2.Dispose()
Catch ex As Exception
 
End Try
End Sub
 
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Dim dt2 As DataTable = DirectCast(e.Result, DataTable)
Me.DataGridView1.DataSource = dt2
End Sub

'Ce qui manque là c'est le bout de code concernant la requête 4 qui normalement doit être semblable à celui de la requête 3 (j'ai bien essayer de faire ça mai ça marche pas)

Une dernière question :
J'ai vu dans d'autre forum qu'il sera plus bénéfique (dans mon cas) d'utiliser "threadpool" !! quelle sera la meilleure solution ?? "background Worker" ou "ThreadPool" ??

**zaghi** · 09/08/2012, 14h20

normalement sa doit marcher , quel message d'erreur tu as lorsque tu fais 2 background Workers ??

**ahmed-bf** · 09/08/2012, 16h20

Ceci est le code dans le quel j'ai tous fais dans un seul et même backgroundWorker
Le fait que les requêtes 2 et 4 (remplissant le DataGridView2) dépendent des requêtes 1 et 3 (remplissant le DataGridView1) m'a amené à faire tout le travail dans un seul BackgroundWorker. De toute façon même si je les ferais sur des backgroudWorkers différents ça revient au même vu que le BackgroudWorker2 va attendre la fin de l'exécution du BackgroundWorker1.

je vais utiliser le contenu de la 1ere colonne du DataGridView1 dans les requêtes servant à remplir le DataGridView2

"Dim variable As String = DataGridView1.Item(0, i).Value.ToString"

j'ai aucune erreur lors du démarrage de l'application mais apres l'expiration du Timer j'obtiens des DataGridView vides (requête 3 et 4)
Je pense que le problème vient des lignes consacrées au passage des DataTables au thread principal (UI), mais je sais pas ce qui ne va pas !!

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Public Class Form1
 
    Public sqlconnection As SqlConnection
    Dim connectionString As String = "******"
    Dim connection As New SqlClient.SqlConnection(connectionString)
    Dim dt As New DataTable
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim sql As String = "requete 1"
    Dim dataadapter As New SqlDataAdapter(Sql, connection)
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        connection.Open()
        dataadapter.Fill(dt)
        DataGridView1.DataSource = dt
        Dim i As Integer
        For i = 0 To 9
            Dim variable As String = DataGridView1.Item(0, i).Value.ToString
            Dim sql1 As String = "requete 2"
            Dim dataadapter1 As New SqlDataAdapter(sql1, connection)
            dataadapter1.Fill(dt1)
        Next i
        DataGridView2.DataSource = dt1
        Timer1.Interval = 10000
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        BackgroundWorker1 = New BackgroundWorker
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.RunWorkerAsync()
        'Timer2.Interval = 15000
        'Timer2.Start()
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim worker As BackgroundWorker = DirectCast(sender, BackgroundWorker)
        Try
            Dim sql2 As String = "requete 3"
            Dim dataadapter2 As New SqlDataAdapter(sql2, connection)
            dataadapter2.Fill(dt2)
            e.Result = dt2
            dataadapter2.Dispose()
            Dim i As Integer
            For i = 0 To 9
                Dim variable As String = DataGridView1.Item(0, i).Value.ToString
                Dim sql3 As String = "requete 4"
                Dim dataadapter3 As New SqlDataAdapter(sql3, connection)
                dataadapter3.Fill(dt3)
                dataadapter3.Dispose()
            Next i
            e.Result = dt3
 
        Catch ex As Exception
 
        End Try
    End Sub
 
   Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
                                            ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Dim dt2 As DataTable = DirectCast(e.Result, DataTable)
        Dim dt3 As DataTable = DirectCast(e.Result, DataTable)
        Me.DataGridView1.DataSource = dt2
        Me.DataGridView2.DataSource = dt3
      End Sub

**Pol63** · 09/08/2012, 17h24

on peut avoir les requetes, le nombre de ligne dans les tables, et le nombre de lignes retournées par la requete aussi ?

**ahmed-bf** · 10/08/2012, 09h47

Envoyé par Pol63

on peut avoir les requêtes, le nombre de ligne dans les tables, et le nombre de lignes retournées par la requête aussi ?

Les requêtes sql sont :
- requête 1 : Top 10 des machines infectées durant les dernières 24 heures (2 colonnes : TargetHostName + ThreatNumber)
- requête 2 : La source par laquelle parvient le plus de menaces pour chaque machines affichée dans le DataGridView1.colonne1 (d’où l'utilisation de "variable")

- requête 3 : la même que la requête 1 sauf que c'est le top 10 durant les derniers 7 jours
_ requête 4 : la même que la requête 2 sauf que c'est fait pour les machines retournées par la requête 3

Ces 4 requêtes sont réalisées sur la même table "ePOEvents" de la base de données de McAfee (anti-virus) qui compte plus de 6 million de ligne mais le faite que je travaille sur les dernières 24 heures ou même les derniers 7 jours ça fait que je ne parcours pas toutes les lignes

Concernant le nombre de ligne, c'est clair que c'est 10 lignes par requêtes

N.B : j'ai pas mis les requêtes parce qu'elles sont trop longues, mais si vous voulez les voirs y a aucun problème

**Pol63** · 10/08/2012, 11h13

Envoyé par ahmed-bf

le faite que je travaille sur les dernières 24 heures ou même les derniers 7 jours ça fait que je ne parcours pas toutes les lignes

Concernant le nombre de ligne, c'est clair que c'est 10 lignes par requêtes

si ta requete retourne 10 lignes et qu'elle met plusieurs secondes/minutes, ca veut dire que ca lit toutes les lignes de la table ...

pour ne pas lire toutes les lignes d'une table lors d'une requete il faut des indexes, et qu'ils soient utilisables
un where mid(colonne, x, y) fait qu'un index sur colonne ne pourra pas être utilisé par exemple

**ahmed-bf** · 10/08/2012, 13h39

Envoyé par Pol63

si ta requete retourne 10 lignes et qu'elle met plusieurs secondes/minutes, ca veut dire que ca lit toutes les lignes de la table ...

pour ne pas lire toutes les lignes d'une table lors d'une requete il faut des indexes, et qu'ils soient utilisables
un where mid(colonne, x, y) fait qu'un index sur colonne ne pourra pas être utilisé par exemple

Requête 1 :

Code :

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

select Top 10 targethostname, count(*) as 'NumberThreat' from [EPOEvents] left join [EPOLeafNode] on [EPOEvents].[AgentGUID] = [EPOLeafNode].[AgentGUID] where ( ( ( [EPOEvents].[AnalyzerName] like N'VirusScan Ent%' ) and ( [EPOEvents].[AnalyzerName] not like N'%for%' ) ) and  ( [EPOEvents].[DetectedUTC] between CONVERT(datetime,dateadd(hh,-24,getdate()),102) and CONVERT(datetime,getdate(),102))  and ( ( [EPOEvents].[ThreatType] = N'app' ) or ( [EPOEvents].[ThreatType] = N'app_adware' ) or ( [EPOEvents].[ThreatType] = N'app_remoteadmin' ) or ( [EPOEvents].[ThreatType] = N'app_pua' ) or ( [EPOEvents].[ThreatType] = N'app_puo' ) or ( [EPOEvents].[ThreatType] = N'app_package' ) or ( [EPOEvents].[ThreatType] = N'app_rootkit' ) or ( [EPOEvents].[ThreatType] = N'app_P2P' ) or ( [EPOEvents].[ThreatType] = N'app_IM' ) or ( [EPOEvents].[ThreatType] = N'app_keylogger' ) or ( [EPOEvents].[ThreatType] = N'app_pwcracker' ) or ( [EPOEvents].[ThreatType] = N'app_dialer' ) or ( [EPOEvents].[ThreatType] = N'app_spyware' ) or ( [EPOEvents].[ThreatType] = N'virus' ) or ( [EPOEvents].[ThreatType] = N'comp' ) or ( [EPOEvents].[ThreatType] = N'trojan' ) or ( [EPOEvents].[ThreatType] = N'joke' ) or ( [EPOEvents].[ThreatType] = N'test' ) ) ) group by targethostname order by 'NumberThreat' desc"

Requête 2 :

Code :

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

Dim sql1 As String = "SELECT TOP 1 SourceHostName, count(*) AS NumberThreat from [EPOEvents] left join [EPOLeafNode] on [EPOEvents].[AgentGUID] = [EPOLeafNode].[AgentGUID] where ( ( ( [EPOEvents].[AnalyzerName] like N'VirusScan Ent%' ) and ( [EPOEvents].[AnalyzerName] not like N'%for%' ) ) and  ( [EPOEvents].[DetectedUTC] between CONVERT(datetime,dateadd(hh,-24,getdate()),102) and CONVERT(datetime,getdate(),102)) and TargetHostName='" + variable + "' and ( ( [EPOEvents].[ThreatType] = N'app' ) or ( [EPOEvents].[ThreatType] = N'app_adware' ) or ( [EPOEvents].[ThreatType] = N'app_remoteadmin' ) or ( [EPOEvents].[ThreatType] = N'app_pua' ) or ( [EPOEvents].[ThreatType] = N'app_puo' ) or ( [EPOEvents].[ThreatType] = N'app_package' ) or ( [EPOEvents].[ThreatType] = N'app_rootkit' ) or ( [EPOEvents].[ThreatType] = N'app_P2P' ) or ( [EPOEvents].[ThreatType] = N'app_IM' ) or ( [EPOEvents].[ThreatType] = N'app_keylogger' ) or ( [EPOEvents].[ThreatType] = N'app_pwcracker' ) or ( [EPOEvents].[ThreatType] = N'app_dialer' ) or ( [EPOEvents].[ThreatType] = N'app_spyware' ) or ( [EPOEvents].[ThreatType] = N'virus' ) or ( [EPOEvents].[ThreatType] = N'comp' ) or ( [EPOEvents].[ThreatType] = N'trojan' ) or ( [EPOEvents].[ThreatType] = N'joke' ) or ( [EPOEvents].[ThreatType] = N'test' ) ) ) GROUP BY SourceHostName ORDER BY NumberThreat DESC"

Ce sont les deux requête (1 et 2) qui servent à remplir les 2 DataGridView (Utilisées par McAfee, j'ai juste changé les champs à afficher et la période)

**Sankasssss** · 10/08/2012, 14h13

Bonjour ahmed-bf,

Pourriez-vous s'il vous plait, comme demandé deux fois par messages privés, éditer votre message afin d'y ajouter les balises code et indenter ce dernier afin de faciliter la lecture des membres voulant vous aider.

Pour cela, il vous suffit d'utiliser le bouton code (#) juste au dessus de la zone de saisie des messages comme l'illustre cette animation :

Je l'ai déjà fait pour vos messages 1 et 3 hier.

Merci d'avance

multipe background Workers

VB.NET

Discussions similaires

Partager

Partager