Private Sub totalrows_btn9_MouseClicked (EventData As MouseEvent)
GetTotalRecords
End Sub
Sub GetTotalRecords
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("select_countallrows",Array())
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
Dim row() As Object = res.Rows.Get(0)
Log(row(0))
idad = row(0)
Else
Log("ERROR: " & j.ErrorMessage)
CSSUtils.SetStyleProperty(result_ad_txt17,"-fx-text-fill","#FF0000")
result_ad_txt17.Text = "Something went wrong"
End If
j.Release
totalrows_txt18.Text = idad
End Sub