Android Question new fcm receiver insert sql

    If sql1.IsInitialized = False Then
        sql1.Initialize(File.DirInternal,"main.db",True)
    End If

Sub fm_MessageArrived (Message As RemoteMessage)
    Log("Message arrived")
    Log($"Message data: ${Message.GetData}"$)
    
    'If checkTableexist("pesan") Then
        Dim logo As Bitmap = LoadBitmapResize(File.DirAssets, "single-icon.png", 24dip, 24dip, True)
        Dim n As NB6
        n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(logo).AutoCancel(True)
        Dim cs As CSBuilder
        n.BigTextStyle(Message.GetData.Get("title"), cs.Initialize.BackgroundColor(Colors.Red).Append("").PopAll,Message.GetData.Get("body"))
        n.Build(Message.GetData.Get("title"), "", "tag",pesan).Notify(1)
        
        If sql1.IsInitialized = False Then
            sql1.Initialize(File.DirInternal,"main.db",True)
        End If
        
        sql1.ExecNonQuery2("insert into pesan (judul,isi) values (?,?)",Array As Object(Message.GetData.Get("title"),Message.GetData.Get("body")))
    'End If
End Sub

CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")

Public Sub SubscribeToTopics
    fm.SubscribeToTopic("mytopic") ' You can subscribe to more topics
End Sub

Sub Process_Globals
    Private fm As FirebaseMessaging
    Private sql1 As SQL
End Sub

'Called when an intent is received.
'Do not assume that anything else, including the starter service, has run before this method.
Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
    If FirstTime Then
        fm.Initialize("fm")
    End If
        
    fm.HandleIntent(StartingIntent)
End Sub

Public Sub SubscribeToTopics
    'Log("subs topic")
    fm.SubscribeToTopic("hadirkubroadcast") 'you can subscribe to more topics
    Do While fm.Token = ""
        Log("waiting")
        Sleep(1000)
    Loop
    'Log(fm.Token)
End Sub

Sub fm_MessageArrived (Message As RemoteMessage)
    Log("Message arrived")
    Log($"Message data: ${Message.GetData}"$)
    
    If sql1.IsInitialized = False Then
        sql1.Initialize(File.DirInternal,"main.db",True)
    End If
    
    If checkTableexist("pesan") Then
        Dim logo As Bitmap = LoadBitmapResize(File.DirAssets, "single-icon.png", 24dip, 24dip, True)
        Dim n As NB6
        n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(logo).AutoCancel(True)
        Dim cs As CSBuilder
        n.BigTextStyle(Message.GetData.Get("title"), cs.Initialize.BackgroundColor(Colors.Red).Append("").PopAll,Message.GetData.Get("body"))
        n.Build(Message.GetData.Get("title"), "", "tag",pesan).Notify(1)
        
        sql1.ExecNonQuery2("insert into pesan (judul,isi) values (?,?)",Array As Object(Message.GetData.Get("title"),Message.GetData.Get("body")))
    End If
End Sub

Sub fm_TokenRefresh (Token As String)
    'Log("TokenRefresh: " & Token)
End Sub

Public Sub checkTableexist(tbname As String) As Boolean
    Dim rset As ResultSet = sql1.ExecQuery2("select name from sqlite_master where name=?",Array As String(tbname))
    Dim hasil As Boolean
    If rset.RowCount > 0 Then
        hasil = True
    Else
        hasil = False
    End If
    rset.Close
    Return hasil
End Sub

'Google Play Services Base - Always required when using Google Play Services or Firebase:
CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)
'Firebase - Always required when using Firebase
CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)
'Firebase Notifications / Push messages
CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)
' Firebase Analytics
CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)
/code]

And (as I needed these values and my app will never be on Google Play):

[code]
... minSdkVersion="16" android:targetSdkVersion="26" ...

Dim m As Map
m.Initialize
m.Put("title", Message.GetData.Get("title"))
m.Put("message", Message.GetData.Get("body"))
m.Put("content", Message.GetData.Get("content"))
m.Put("topic", Message.From)
m.Put("messageid", Message.MessageId)

Dim ListOfMaps As List
ListOfMaps.Initialize
ListOfMaps.Add(m)

If Starter.SQLPush.IsInitialized = False Then
    Starter.SQLPush.Initialize(File.DirInternal,"pushdb.sdb",True)
End If

Try
    DBUtils.InsertMaps(Starter.SQLPush, "notifications", ListOfMaps)
Catch
    Log(LastException)
End Try