'Read the Sqlite
Private Sub change_validation
Dim SenderFilter As Object = sql.ExecQueryAsync("SQL", "select * from test_table where validation = 'unread'", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
If Success Then
Do While rs.NextRow
Log($"ResultSet ID=${rs.GetInt("id")}"$)
sql.ExecNonQuery2("update test_table set validation=? where id=?",Array As String("read",rs.GetInt("id")))
Loop
rs.Close
End If
ProgressDialogHide
End Sub