Добрый день.
Сразу прошу прощения если данный вопрос подымался... искал долго не нашел. Спорить что хорошо искал, тоже не буду...)
Среда разработки VS 2008 Sp1
Приложения переносит данные (по различным шаблонам) из EXCEL в MS SQL Server (в данный момент это 2005)
В начале я переношу данные в DataTable, потом создаю временную таблицу по шаблону (данный момент необходим, так как на уровне серверной процедуры идет проверка вносимых данных) и переношу содержимое DataTable в таблицу на сервере.
Для этого этапа я написал процедуру которая отлично работает, почти всегда. Но бывает ситуации когда данных "очень много" (практика показала это когда много текстовой информации) происходит ошибка:
ContextSwitchDeadlock was detectedMessage: CLR не удалось перейти из COM-контекста 0x31a5c8 в COM-контекст 0x31a738 за 60 секунд. Наиболее вероятно, что поток, владеющий контекстом/апартаментом назначения, находится в режиме ожидания или выполнения очень длительной операции без прокачки сообщений Windows. Обычно эта ситуация отрицательно влияет на производительность и даже может привести к зависанию приложения или чрезмерному расходованию памяти. Чтобы избежать этой проблемы, все потоки однопоточного апартамента (STA) должны использовать примитивы ожидания для прокачки (например, CoWaitForMultipleHandles) и периодически прокачивать сообщения во время длительных операций.
При нажатии
F5 приложение продолжает выполняться, т.е. переносить данные с того момента с которого запнулось. Обработка ошибок имеется, но почему-то вываливается на отладку.
Вопрос: что тут не так?
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.
Using objConnection As New SqlClient.SqlConnection(f_SQL_ConnectionString())
objConnection.Open()
Dim objCommand As SqlClient.SqlCommand = objConnection.CreateCommand
Dim objTran As SqlClient.SqlTransaction = objConnection.BeginTransaction("Tran")
objCommand.Connection = objConnection
objCommand.Transaction = objTran
With objDT
For i As Integer = 0 To .Rows.Count - 1
' очисчаем ошибку
Err.Clear()
' строим страку запроса
strQ = strQuery
Try
For j As Integer = 0 To objDT_Template.Rows.Count - 1
If .Rows(i).Item(j).ToString = "" Then
strQ = Replace(strQ, "%" & j & "%", "NULL")
Else
strV = .Rows(i).Item(j).ToString
Select Case objDT_Template.Rows(j).Item( 1 )
Case "bigint", "int", "smallint", "tinyint"
strQ = Replace(strQ, "%" & j & "%", strV)
Case "bit"
strQ = Replace(strQ, "%" & j & "%", IIf(strV = "True", "1", "0"))
Case "decimal", "numeric", "money", "float", "smallmoney", "real"
strQ = Replace(strQ, "%" & j & "%", Replace(strV, ",", "."))
Case "datetime", "smalldatetime"
strQ = Replace(strQ, "%" & j & "%", f_DateSQL(.Rows(i).Item(j)))
Case Else '"char", "varchar", "text", "nchar", "nvarchar", "ntext" и другие не определенные типы
strQ = Replace(strQ, "%" & j & "%", "'" & Replace(strV, "'", "''") & "'")
End Select
End If
Next
' выполняем строку
Try
objCommand.CommandTimeout = 600
objCommand.CommandText = strQ
objCommand.ExecuteNonQuery()
Catch ex As Exception
strError = strError & vbCrLf & "№" & Err.Number & ":" & Err.Description
End Try
Catch ex As Exception
strError = strError & vbCrLf & "№" & Err.Number & ":" & Err.Description
Err.Clear()
End Try
Next
End With
objTran.Commit()
objConnection.Close()
End Using
as [DataTable] - данные
objDS_Template as [DataTable] - макет таблицы 3 колонки (0 - Поле, 1 - ТипДанных, 2 - Длина, 3 - НулЪ)
strQuery as [String] - строка запроса
пример:
insert into dbo.table(Col1,Col2,Col3) values (% 0 %,% 1 %,% 3 %)
- функция которая возвращает строку подключения в зависимости от способа идентификации на сервере (NT/SQL)
"Data Source=SQLServer;Initial Catalog=Base;Integrated Security=True" или "Data Source=SQLServer;Initial Catalog=Base;Persist Security Info=True;User ID=user;password=123;"
---------------------------------
С уважением Ди
