Android Question how to refresh badger count on the button

[Makumbi]

Please help i have used a badger count on my send button but my main problem is that it doesn't refresh to show the current count even when the old record has been deleted

Dim j As HttpJob
    j.Initialize("", Me)
            j.Download($"http://kccug.com/Generic_Handler_JSON/RecieveSMSReply.ashx?customerId=${act}&s=${txtMessage.Text}&d=${DateTime.Date(l)}&id=${cod}&ph=${phone}&f=${sx}&tk=${Rsms4.Text}"$ )
    
            txtMessage.Text=""
            'Dim SQLQry As String = "DELETE FROM SMSlist where Phone = ?", Array As String(phone.Text))"
            'Starter.SQL1.ExecNonQuery(SQLQry)
            cursor1 =Starter.SQL1.ExecQuery2("DELETE  FROM  SMSlist where Atk = ?", Array As String(Rsms4.Text))
            badger1.Initialize
            Dim intCount As Int
            intCount = Starter.SQL1.ExecQuerySingleResult("SELECT count(Id) as Id FROM SMSlist")
            
            If intCount > 0 Then
                Dim ms As Int = intCount
            Else
                Dim ms As Int = 0
            End If
            Log(ms)
            badger1.SetBadge(btnSend, ms)
            
        Msgbox("SMS Sent Successfully ", "SMIS")
    End If

 

[Erel]

1. Never use Msgbox. Only MsgboxAsync.

2. Better to wait for the JobDone result and only then update the database.

3. You should use ExecNonQuery2.

 

[Makumbi]

Please erel i have made some changes on my code but i didnt get you right please here are my changes

    Dim j As HttpJob
    j.Initialize("", Me)
            j.Download($"http://kccug.com/Generic_Handler_JSON/RecieveSMSReply.ashx?customerId=${act}&s=${txtMessage.Text}&d=${DateTime.Date(l)}&id=${cod}&ph=${phone}&f=${sx}&tk=${Rsms4.Text}"$ )
    
            txtMessage.Text=""
            'Dim SQLQry As String = "DELETE FROM SMSlist where Phone = ?", Array As String(phone.Text))"
            'Starter.SQL1.ExecNonQuery(SQLQry)
            cursor1 =Starter.SQL1.ExecQuery2("DELETE  FROM  SMSlist where Atk = ?", Array As String(Rsms4.Text))
            badger1.Initialize
            Dim intCount As Int
            intCount = Starter.SQL1.ExecQuerySingleResult("SELECT count(Id) as Id FROM SMSlist")
            
            If intCount > 0 Then
                Dim ms As Int = intCount
            Else
                Dim ms As Int = 0
            End If
            Log(ms)
            badger1.SetBadge(btnSend, ms)
            
        MsgboxAsync("SMS Sent Successfully ", "SMIS")

Please help i have used a badger count on my send button but my main problem is that it doesn't refresh to show the current count even when the old record has been deleted

Dim j As HttpJob
    j.Initialize("", Me)
            j.Download($"http://kccug.com/Generic_Handler_JSON/RecieveSMSReply.ashx?customerId=${act}&s=${txtMessage.Text}&d=${DateTime.Date(l)}&id=${cod}&ph=${phone}&f=${sx}&tk=${Rsms4.Text}"$ )
   
            txtMessage.Text=""
            'Dim SQLQry As String = "DELETE FROM SMSlist where Phone = ?", Array As String(phone.Text))"
            'Starter.SQL1.ExecNonQuery(SQLQry)
            cursor1 =Starter.SQL1.ExecQuery2("DELETE  FROM  SMSlist where Atk = ?", Array As String(Rsms4.Text))
            badger1.Initialize
            Dim intCount As Int
            intCount = Starter.SQL1.ExecQuerySingleResult("SELECT count(Id) as Id FROM SMSlist")
           
            If intCount > 0 Then
                Dim ms As Int = intCount
            Else
                Dim ms As Int = 0
            End If
            Log(ms)
            badger1.SetBadge(btnSend, ms)
           
        Msgbox("SMS Sent Successfully ", "SMIS")
    End If

 

[Erel]

I don't know whether it is related to the problem you are trying to solve or not, however you should replace:
Starter.SQL1.ExecQuery2
With:
Starter.SQL1.ExecNonQuery2