Sub JobDone(Job As HttpJob)
If Job.Success = False Then
ToastMessageShow("No es posible la conexión",True)
Else
If Job.JobName = "DBRequest" Then
If SQL1.IsInitialized=False Then SQL1.Initialize(ruta, "am14dbishe.db", True, "Asdfg1234",ruta)
SQL1.ExecNonQuery("DELETE FROM t_extintor_titulo")
Dim Result As DBResult = ReqManagerList.HandleJob(Job)
SQL1.BeginTransaction
For Each records() As Object In Result.Rows
SQL1.ExecNonQuery2("INSERT INTO t_extintor_titulo VALUES (?,?,?,?,?,?,?)",Array As Object(records(0),records(1),records(2),records(3),records(4),records(5),records(6)))
Next
SQL1.TransactionSuccessful
SQL1.EndTransaction
End If
End If
End Sub