Sub GetData
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "get_data1"
DBRequestManager.ExecuteQuery(cmd, 0, "get_data1")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "get_data2"
DBRequestManager.ExecuteQuery(cmd, 0, "get_data2")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "get_data3"
DBRequestManager.ExecuteQuery(cmd, 0, "get_data3")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "get_data4"
DBRequestManager.ExecuteQuery(cmd, 0, "get_data4")
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success = true Then
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqM.HandleJob(Job)
If result.Tag = "get_data1" OR & _
result.Tag = "get_data2" OR & _
result.Tag = "get_data3" OR & _
result.Tag = "get_data4" Then
Log(DateTime.Time(DateTime.now))
UpdateData(result)
End If
End If
Job.Release
End Sub
Sub UpdateData(result As DBResult)
Try
Private ValC1,ValC2,ValC3,ValC4 As String
Private ValI1,Val2,Val3 As Int
For Each records() As Object In result.Rows
ValI1 = records(6)
ValI2 = records(0)
ValC1 = records(1)
ValC2 = records(2)
ValC3 = records(3)
ValC4 = records(4)
ValI3 = records(5)
SQL.AddNonQueryToBatch("insert into table(Field1,
Field2,Field3,Field4,Field5,Field6,Field7) values(?,?,?,?,?,?,?)",Array As Object(ValI1,ValI2,ValC1,ValC2,ValC3,ValC4,ValI3))
Next
SQL.ExecNonQueryBatch("InsData")
Catch
Log(LastException)
End Try
End Sub
Sub InsData_NonQueryComplete(Success As Boolean)
Log(DateTime.Time(DateTime.now))
End Sub