Sub exe_sql_nonQuery (Name As String)
Try
LogColor("------Wait for exe_sql_nonQuery_complete...", Colors.Cyan)
Dim cmd As DBCommand = fCom.CreateCommand(Name, Starter.arg)
Dim j As HttpJob = fCom.CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
LogColor("Inserted successfully!",Colors.Cyan)
Starter.nonQuery_success = True
Else
Starter.nonQuery_success = False
End If
j.Release
Starter.nonQuery_many = Starter.nonQuery_many + 1
Log("nonQuery_many: " & Starter.nonQuery_many)
Catch
Starter.nonQuery_success = False
Log(LastException)
End Try
LogColor("------ exe_sql_nonQuery_complete: DONE", Colors.Cyan)
CallSubDelayed(Me, "exe_sql_nonQuery_complete")
End Sub