Discussion :

[Totanne]

Bonjour à tous.
Je m'initie aux thread.
Sur ma form j'ai un textbox (TB1) et un DataGridView (DGV1)
TB1 sert a filtrer les donnees dans DGV1, du style :

Code :

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

"SELECT MonChamp FROM Ma Table WHERE MonChamp LIKE '" & TB1.Text & "%'"

La Table en question comporte plus de 40 000 Lignes et du coup les premières requètes sont un peu longuette.
Je veux donc lancer un thread dès que TB1 obtient le Focus et remplir un Dataset avec toutes les données de la table puis peupler le DGV via une dataview.
Pour commencer, je lance donc mon thread dans TB1.GotFocus
Je me fous pour l'instant de la DataView et je remplis directement le DGV avec toutes les donnees de la table, histoire de voir déjà si ca marche.
Et ca marche ! ... Le problème c'est que pendant que le Thread s'execute, je ne peut pas utiliser la TB correctement (rien ne s'affiche tant que le DGV n'est pas chargé)
En gros, Le Thread ne sert à rien, vu que le tread principal semble bloqué pendant l'execution du secondaire !
Qlqun a t'il une idée sur le pourquoi du comment ?
Voici mon code :

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
Imports System.Data.SqlClient
Imports System.Threading
 
Public Class Form1
 
    Private Sub TB1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TB1.GotFocus
        Dim T As Thread = New Thread(AddressOf ExecutionThread)
        T.Start()
    End Sub
 
    Private Delegate Sub Resynchronisation(ByVal D As DataTable)
 
    Private Sub ExecutionThread()
        Dim SQLcnx As New SqlConnection("MaChaineDeConnexion")
        Dim SqlAdp As SqlDataAdapter = New SqlDataAdapter("SELECT MonChamp FROM MaTable ORDER BY MonChamp ", SQLcnx)
        Dim DTset As New DataSet
        SqlAdp.Fill(DTset)
        SQLcnx.Close()
        Dim TableauDObjets() As Object = {DTset.Tables(0)}
        Dim Del As Resynchronisation = New Resynchronisation(AddressOf ExecutionSynchrone)
        DGV1.BeginInvoke(Del, TableauDObjets)
    End Sub
 
    Private Sub ExecutionSynchrone(ByVal D As DataTable)
        DGV1.DataSource = D
    End Sub
End Class

[SaumonAgile]

Je ne vois pas à quel moment tu utilises les threads dans ton exemple. Il doit manquer cette partie du code, non ?

[Totanne]

Ben .. heu .. dans le GotFocus Non ?
En tous cas le DGV se rempli comme voulu ...

[SaumonAgile]

Ah oui excuse moi, je n'avais pas vu.

Pour répondre à ton problème, c'est normal que ton dgv soit "bloqué" lors du chargement, car en utilisant Invoke, tu exécutes le chargement dans le thread qui s'occupe de l'affichage.
Dans ton exemple, la requête s'exécute en arrière plan, mais le chargement du contrôle s'effectue dans le thread principal.

[Totanne]

Je vois ce que tu veux dire.
Mais ce n'est pas mon DGV qui est bloqué, c'est la TextBox qui contient le focus et avec laquelle il ne se passe rien pendant l'execution du Thread.

D'autre part (les notions de temps sont souvent subjectives mais ...) il me semble que la textBox est bloquée dès le démarrage du thread (durant l'accès a la base de donnée) et non pas seulement lors de l'affichage du resultat.
Charger 40 000 lignes prend j'imagine un certain temps et le bloquage est lui immédiat (du moins il me semble)...

Je vais quand même essayer mon code jusqu'au bout (c'est a dire en chargeant un dataset et en n'affichant que le nécessaire via le filtre d'une dataview) voir si ca marche...

[SaumonAgile]

Que ce soit le dgv ou le textbox ne change rien. En fait comme le chargement se fait dans le thread de l'UI, c'est toute la fenêtre qui est "bloquée".