Sub consulta (c1k As Int, estado As String)
' EN ESTA RUTINA CONSULTAMYSQL PARA COMPROBAR SI ALGUN CAMPO ESTA A 0
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("existeRegistro", Array(c1k, estado))
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)
' Log(res.Columns)
For Each row() As Object In res.Rows
item_id = row(0)
Next
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub