contextSwitchDeadlock a ete detecte
Bonjour,
Je réalise un programme qui me permet de parcourir un repertoire et de recuperer tous les fichiers texte.
Pour chaque fichier texte je verifie si c'est un fichier original ou un fichier que j'ai modifier si c'est un original je le modifie en faisant un traitement sur chaque ligne.
Tous les fichiers sont ensuite integrer dans ma table ligneTransaction à l'aide d'un "bulk insert".
Pour un repertoire qui represente un trimestre de l'annee je recupere 880 000 lignes.
Malheureusement le processus qui me permet de faire cela s'arrete en plein milieu et m'affiche cette erreur :
Citation:
ContextSwitchDeadLock a été détecté
Le CLR n'a pas pu effectuer de transition du contexte COM 0x10ba008 au contexte COM 0x10ba178 pendant 60 secondes. Le thread qui possède le contexte/cloisonnement de destination est probablement en train d'attendre ou de traiter une opération très longue sans pompage des messages Windows. Cette situation a généralement des effets négatifs sur les performances et peut parfois entraîner le blocage de l'application ou une utilisation ininterrompue de la mémoire.
Voici une partie de mon code :
Code:
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
Public Sub integrerFichier(ByVal s As String) ' Fonction qui me permet de traiter un fichier
Dim myLines() As String
Dim continuFichier As Boolean = True
Dim continuFile As Boolean = True
Dim codeUNI As String
Dim i As Int32
Dim nombre As Int64
Dim sqlSelect As String
Dim ligne As String
Dim newLigne As String
Dim l As Int32 = 0
Dim ElementBis() As String
Try
Dim fi As FileInfo
fi = New FileInfo(s)
Dim Element() As String = fi.Name.Split(".")
codeUNI = Element(2)
myLines = File.ReadAllLines(s)
If (myLines.Length > 1) Then
nbLigne = nbLigne + 1
ligne = myLines(1)
If (ligne.Length <= 40) Then
i = 1
Do
ligne = myLines(i)
integrerLigne(ligne, codeUNI)
myLines(i - 1) = ligne
i = i + 1
Loop While (i < myLines.Length)
Dim sw As StreamWriter
sw = New StreamWriter(s)
Do
newLigne = myLines(l)
sw.WriteLine(newLigne)
l = l + 1
Loop While (l < myLines.Length - 1)
sw.Close()
End If
End If
If (myLines(0).Length < 50) Then
ElementBis = myLines(0).Split(";")
sqlSelect = "SELECT count(*) FROM ligne where codeUNI = '" & codeUNI & "' and datepart(yy,dateTransaction) = datepart(yy, '" & Date.Parse(ElementBis(1)) & "') and datepart(mm,dateTransaction) = datepart(mm,'" & Date.Parse(ElementBis(1)) & "') and datepart(dd,dateTransaction) = datepart(dd,'" & Date.Parse(ElementBis(1)) & "') and IdMachine = " & CInt(ElementBis(0)) & " and nbDossiers = " & CInt(ElementBis(5)) & " and datepart(mi,heure) = datepart(mi,'" & Date.Parse(ElementBis(2)) & "') and datepart(hh,heure) = datepart(hh,'" & Date.Parse(ElementBis(2)) & "') and decision = '" & ElementBis(3) & "' and codeModePaiement = '" & ElementBis(4) & "' and sommeTransaction = " & ElementBis(6)
Dim CommandSQL As New SqlCommand(sqlSelect, con)
nombre = CommandSQL.ExecuteScalar
If (nombre = 0) Then
Dim sqlString As String = "BULK INSERT ligne FROM " & "'" & s & "'" & " WITH (FIELDTERMINATOR = ';', ROWTERMINATOR = '\n');"
Dim com As New SqlCommand(sqlString, con)
com.ExecuteNonQuery()
End If
End If
Catch ex As Exception
MsgBox("bulk: " & ex.Message)
End Try
End Sub
Public Function integrerLigne(ByRef maligne As String, ByVal pointVente As String) ' Fonction qui permet de modifier une ligne de mon fichier original
Dim continuLigne As Boolean = True
Dim p As Char = "."
Dim v As Char = ","
Dim pv As Char = ";"
Dim e As Char = " "
Dim th As Int16
Dim tm As Int16
Try
Dim ElementBis() As String = maligne.Split(";")
If (ElementBis(2).Length = 8) Then
If (ElementBis(6).Contains(v)) Then
ElementBis(6).Replace(v, p)
End If
Dim h As String = ElementBis(2).Substring(4, 4).Insert(2, ":")
th = trancheHoraire(h)
tm = typeMachine(ElementBis(0))
maligne = ElementBis(0) & ";" & ElementBis(1) & ";" & h & ";" & ElementBis(3) & ";" & ElementBis(4) & ";" & ElementBis(5) & ";" & ElementBis(6) & ";" & pointVente & ";" & th.ToString & ";" & tm.ToString
End If
Catch ex As Exception
MsgBox("ligne non valide" + " " + pointVente + " " & nbLigne)
End Try
End Function |
Merci d'avance
