Sub GetRecord (id As Int)
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("select_animal", Array(id))
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
req.PrintTable(res)
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub
#SQL COMMANDS sql.update_customers=UPDATE customers SET CustomerId = ?, FirstName = ?, LastName = ?, Company = ?, Address = ?, Email = ? WHERE rowid = ? Private Sub ShowDialog(Item As Map, RowId As Long, Action As Int) ... Dim params As List params.Initialize 'keys based...