Sub LogIn(usuario1 As String,contraseña2 As String)
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("selectedSesion", Array(usuario1,contraseña2))
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
ProgressDialogShow("Cargando...")
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
EditTextNombreUsuario.Text = ""
EditTextContraseña.text = ""
Starter.InicioSesionApp = row(6)
StartActivity(firstLayout)
Activity.Finish
Next
Else
Log("ERROR: " & j.ErrorMessage)
ToastMessageShow("Error en la conexión",False)
End If
ProgressDialogHide
If res.Rows.Size = 0 Then
ToastMessageShow("Usuario o contraseña incorrecto",False)
End If
j.Release
End Sub