Sub JobDone(Job As HttpJob)
If Job.Success = False Then
Log("Error: " & Job.ErrorMessage)
Else
If Job.JobName = "DBRequest" Then
Log("RDC JobDone " & DateTime.Date(DateTime.Now)) ' RDC JobDone 2015/05/19 15:42:44 (ok, needed just a couple of seconds)
Dim result As DBResult = reqManager.HandleJob(Job) '
Log ( "RDC total: " & result.Rows.Size & " records. " & DateTime.Date(DateTime.Now)) ' RDC total: 20000 records. 2015/05/19 15:42:58
If result.Tag = "tag1" AND result.Rows.Size>0 Then 'query tag
MySub.SQL_Bls1.BeginTransaction
Try
For Each records() As Object In result.Rows
DoEvents: DoEvents: DoEvents
rec = records(result.Columns.Get("ID"))
' etc
' etc
Dim query As String = "INSERT INTO records VALUES(NULL,?,?,?,?,?,?,?,?,?,?,?,?,?)"
SQL_Bls1.ExecNonQuery2(query, Scan_Record_ForDb(Sms))
Next
MySub.SQL_Bls1.TransactionSuccessful
Log ( "Web RDC finished: " & DateTime.Date(DateTime.Now)) ' Web RDC finished: 2015/05/19 15:43:22
Catch
Log("RDC error " & LastException.Message)
End Try
MySub.SQL_Bls1.EndTransaction
End If
End If
Job.Release
End Sub