Discussion :

[ighost]

salut a tous,

pour copier une base de donnée complète j'ai eu besoin de créer un logiciel qui permet de transferer les tables de la base de donnée pour les mettre dans une autre (les base sont completement différentes je le précise).

pour un soucis de rapidité je me suis dit que j'allais créé un thread pour chaque ajout de table.

nous avons donc une boucle qui repertorie les bases puis une boucle qui repertorie les table dans ces bases.

le soucis que j'ai c'est que je tente de débuguer.

je met un point d'arrêt sur mon thread mais l'appli s'arrête en cous de thread et je n'ai aucune arreur juste un arrêt de l'application.

j'ai bien mis des try catch partout, j'en viens a me demander si cela ne viens pas du lancement asynchrone du thread, cela empeche t'il le deboguage?
y'a t'il un soucis que j'ai raté?

[ighost]

l'appel du thread:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        For h = 0 To total_bases - 1
            base_origine = mysql_bases.Tables(0).Rows(h).Item(0)
            'base_destination = id_societe & "_" & base_origine
            base_destination = "XXX"
            parametre(1) = base_origine
            parametre(2) = base_destination
            Dim thread_bases As New thread_bases
 
            thread_bases.traitement.RunWorkerAsync(parametre)
        Next

le debut du thread qui ne va pas jusqu'au bout:

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
  Private Sub thread_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles traitement.DoWork
        Try
 
 
            Dim sql_table As DataSet
            Dim insert As String
            Dim parametre(2) As String
            Dim parametre_table(3) As String
            Dim base_origine As String
            Dim base_destination As String
            Dim mysql As New cl_mysql
            Dim sql As New cl_sql
            Dim table As String
 
            parametre = e.Argument
            base_origine = parametre(1)
            base_destination = parametre(2)
            parametre_table(1) = base_origine
            parametre_table(2) = base_destination
 
            mysql.setvar("XXX", "XXX", "XXX", base_origine)
            mysql.HostConn.Open()
            sql.setvar("XXX", "XXX", "XXX", "XXX")
            sql.Hostconn.Open()
            Dim schema_mysql As DataTable = mysql.mysqlquery("show table status from " & base_origine)

les XXX étant evidement des infos persos

[Pol63]

normalement pas de soucis pour débugger en multithreading, il est meme possible de passer d'un thread à l'autre sur un point d'arret

essaye avec un thread normal putot qu'un backgrounworker :

Code :

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

1
2
3
 
dim t as new system.threading.thread (addressof sub_de_depart)
t.start

[ighost]

je crois avoir trouvé le problème, je pense que l'appli s'arrête une fois les threads lancé (eh oui elle a fini elle), et du coup tout les thread associé se ferment prématurément.


maintenant reste a savoir comment faire pour vérifier la présence des thread avant la fermeture de l'appli.

[Pol63]

avec la technique que je t'explique, c'est toi qui choisit via la propriété isbackground si le thread créé doit s'arreter ou non quand le thread qui l'a créé s'arrete

enfin normalement tant que tu fermes pas la fenetre, l'appli se ferme pas donc le backgroundworker devrait continuer

tu dois le voir dans visual studio en plus si le bouton start est encore activé