Do While Not rs.eof
ss = ss + 1
id = rs("Id").value
If oncekiid > 0 Then
fark = id - oncekiid - 1
If fark > 0 Then
For i = 1 To fark
hede = id - i
olmayanlar = olmayanlar & " - " & hede
Next
End If
End If
oncekiid = id
rs.movenext()
Loop
kodlarını kullanarak programı test ettiğimde, program 1-2 dakika yanıt vermiyor, sonrasında
The CLR has been unable to transition from COM context 0x1a1348 to COM context 0x1a14b8 for 60 seconds. The thread that owns the destination context/apartment is most likely either doing a non pumping wait or processing a very long running operation without pumping Windows messages. This situation generally has a negative performance impact and may even lead to the application becoming non responsive or memory usage accumulating continually over time. To avoid this problem, all single threaded apartment (STA) threads should use pumping wait primitives (such as CoWaitForMultipleHandles) and routinely pump messages during long running operations.
hatasını veriyor. yukardaki kodlarada yer alan
"olmayanlar = olmayanlar & " - " & hede"
satırını kaldırdığımda program sorunsuz bir biçimde çalışıyor.
bu ilginç sorun neden kaynaklanıyor olabilir?
