Sub GetPermitsFromServer
Try
indLoading.Show
Dim SQL1 As SQL
SQL1.Initialize(File.DirInternal, "data.db", False)
Dim req As DBRequestManager = CreateRequest
Dim dbc As DBCommand = CreateCommand("Get_New_Permits", Null)
Wait For (req.ExecuteQuery(dbc, 0, Null)) JobDone (job As HttpJob)
If job.Success Then
req.HandleJobAsync(job, "req")
Wait For (req) req_Result (res As DBResult)
'req.PrintTable(res)
For Each row() As Object In res.Rows
Dim strSQL As String = "INSERT INTO permits (id, permit_number, issue_by, issue_date) VALUES (?, ?, ?, ?)"
SQL1.AddNonQueryToBatch(strSQL, Array(row(0), row(1), row(2), row(3)))
Next
Dim SenderFilter As Object = SQL1.ExecNonQueryBatch("SQL")
Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
Log("Data Insert: " & Success)
Else
xui.MsgboxAsync(job.ErrorMessage, "Error")
End If
Catch
xui.MsgboxAsync(LastException.Message, "Error")
End Try
SQL1.Close
job.Release
indLoading.Hide
End Sub