Public Sub insertrecord(n As String, m As Map)
Dim sql As SQL
Dim sqlstr As String = "INSERT INTO tblUser(name, phone) VALUES (?, json(?))"
sql.Initialize(File.DirDefaultExternal, "JsonColumn.db", False)
Try
sql.ExecNonQuery2(sqlstr, Array As String(n, MapToJStr(m))) '<-- error occurs
sql.Close
CallSubDelayed2(callback, event, CreateMap("issuccess": True, "task": "insertrecord", "msg": "record is inserted"))
Catch
LogColor("insertrecord: " & LastException.Message, Colors.Red)
CallSubDelayed2(callback, event, CreateMap("issuccess": False, "task": "insertrecord", "errmsg": LastException.Message))
End Try
End Sub