Discussion :

[Asdorve]

Bonjour à tous,

A intervalle régulier, mon programme execute une requete de type SELECT pour récupérer une liste dans ma base.

Pour chaque enregistrement renvoyé, je souhaite effectuer un traitement spécifique. Pour celà, une méthode consiste à faire une boucle, et pour chaque enregistrement lancer ma procédure.
Dans ce cas là, je suis obligé de faire ligne par ligne.

Je souhaiterais lancer une procédure sur la ligne 1, et en même temps lancer cette procédure sur les autre lignes sans attendre la fin du traitement de la ligne précédente.

Est-ce possible en VB6? Si oui, sur quelles solutions puis-je m'orienter?

Merci

[SfJ5Rpw8]

Possible oui ...

il faut faire du multithread .. je suis pas sur que l'on est quelque chose d'écrit la dessus mais une recherche sur le forum ...

Si j'aurais a faire cela aujourd'hui je m'orienterais vers une combinaisons VB6 et .NET :

Etude de développement Multi-threads avec Visual Basic 6.0 et le Framework .NET 2.0


tiens nous au courant

[Asdorve]

Ok, merci, j'avais vu le lien que tu m'as donné.

J'essayais cette piste:
http://www.developpez.net/forums/d28...-parallele-vb/

Mais erreur à la fin, vb6 plante. Sinon ça a l'air de fonctionner.

[SfJ5Rpw8]

Et lors de l'arrêt tu ferme bien tous les message box avant d'arrêter le programme ?

[Asdorve]

pour cet exemple là avec les msgbox, ça fonctionne, mais dans un autre test ça ne fonctionne 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
 
 
Sub Main()
    ' On crée les thread
   Form1.Show
 
    SHCreateThread AddressOf ShowMsgBox, ByVal 0&, CTF_INSIST, ByVal 0&
    SHCreateThread AddressOf ShowMsgBox2, ByVal 0&, CTF_INSIST, ByVal 0&
    SHCreateThread AddressOf ShowMsgBox3, ByVal 0&, CTF_INSIST, ByVal 0&
 
 
End Sub
 
Sub ShowMsgBox()
     For i = 1 To 1000
        Form1.Text1.Text = i
    DoEvents
    Next
 
End Sub
 
Sub ShowMsgBox2()
    For i = 1 To 1000
        Form1.Text2.Text = i
    DoEvents
    Next
End Sub
 
Sub ShowMsgBox3()
    For i = 1 To 1000
        Form1.Text3.Text = i
    DoEvents
    Next
End Sub

Sinon, pour combiner VB6 et .NET, si je n'ai QUE VB6 d'installer, ça va fonctionner? Ou j'ai besoin d'autre chose?

[SfJ5Rpw8]

pour la version API ... ton plantage à la sortie du programme est surement du a une mauvaise synchro.. entre tes threads , avant de sortir de ton programme (et donc te ton thread principal) tu dois être sur que tous les autre threads lancés sont terminés..


Pour le .Net tu dois au minimum avoir besoin du framwork .Net .. faurait lire l'article...

[Asdorve]

et comment être sûr que le thread est terminé?

Pour ce qui est du .NET, j'ai bien lu l'article, mais comme c'est un truc que je découvre, je n'étais pas sûr.