Deutsch
Germany.ruФорумы → Архив Досок→ Программирование

​Совсем не понимаю...

06.07.18 11:37
​Совсем не понимаю...
 
Murr патриот
Murr

Совсем не понимаю...


Простая функция (код не мой - можно тапки бросать мимо):

Public Function fillDT(ByVal sql As String) As DataTable
Dim oraCN As New OracleConnection
Dim oraDA As New Oracle.DataAccess.Client.OracleDataAdapter
Dim DT As New DataTable
Dim oraCmd As New OracleCommand
Try
oraCN.ConnectionString = _connectionString
oraCN.Open()
Debug.Print(sql)
oraCmd.CommandText = sql
oraDA.SelectCommand = oraCmd
oraDA.SelectCommand.Connection = oraCN

DT.Columns.GetEnumerator()
oraDA.Fill(DT)

Return DT
Catch ex As Exception
Email.SendMailMessage(_senderAddress, My.Settings.emailErrorRecipient, "", "", _
My.Computer.Name.ToString & ": " & _
"error in: DANenprod1." & _
System.Reflection.MethodBase.GetCurrentMethod.Name.ToString, _
sql & ControlChars.CrLf & _
ex.ToString)
Return DT
Finally
oraCN.Dispose()
End Try

End Function

Успешно работала несколько лет.

Никаких изменений в код мною не вносилось.

Передаваемая СКЛ-строка - сложная, но относительно быстрая - в дбФорже-студии выполняется за 1.578 сек.


Что могло измениться так, что oraDA.Fill(DT) не может выполнится в течении 12-15 часов?

Ошибок выполнения или таймаутов - нет.

Данных - да, много, но ведь работало...

 

Перейти на