Where is the database file supposed to be placed. I made changes to the tables but it seems to be picking up and old version. I placed the db in the Files folder of the project and I get the message "File 'panwh.db' is not used (warning #15). When i print to log the dbpath it shows: /data/user/0/b4a.example/files...but I can't find that path anywhere. Do I need to run any command to have it pick up the new db file. I haverecompile various times and still get an error.
android.database.sqlite.SQLiteException: no such column: FlgCheck (code 1): , while compiling: SELECT UserID, UserName, UserLevel, PwEncrypt, PwKey, Status, FlgCheck, FlgLoad, FlgMorn, FlgInvt FROM Users Where UserId = ?
there was a spelling error on the column name which I fixed but it's not picking up the change.
#Region Project Attributes
#ApplicationLabel: Checkout
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim SQL1 As SQL
Public DBPath = File.DirInternal As String
Public DBFName As String = "panwh.db"
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Log(DBPath)
If SQL1.IsInitialized = False Then
SQL1.Initialize(DBPath, DBFName, True)
End If
Activity.LoadLayout("login")
CheckWiFi
End Sub
Sub Validate_Login (uid As String, psw As String) As Boolean
Dim Cursor1 As Cursor
Dim stmt As String
Dim pwe As String
Dim rc = False As Boolean
status = ""
stmt = "SELECT UserID, UserName, UserLevel, PwEncrypt, PwKey, Status," _
& " FlgCheck, FlgLoad, FlgMorn, FlgInvt FROM Users Where UserId = ?"
Cursor1 = SQL1.ExecQuery2(stmt, Array As String(uid)) ' Here is where it cancels
Cursor1.Position = 0
status = Cursor1.GetString("Status")
If status = "1" Then
check = Cursor1.GetString("FlgCheck")