'Inserted query in the DBCommand
Type DBCommand (Name As String,query As String, Parameters() As Object)
Dim dbc As DBCommand
dbc.Initialize
dbc.Name = "Query"
dbc.query = $"
SELECT * FROM customers WHERE id = ?
"$
dbc.Parameters = Array As String(1)
'This part only shows how to capture the information, you can modify it for your needs.
Dim req As DBRequestManager = CreateRequest
Dim j As HttpJob = CreateRequest.ExecuteQuery(dbc,0,"")
Wait For(j) 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