Android Question B4XTable CLearing Data

[james_sgp]

This is a bit of a beginner quesiton, but suddenly I can seem to clear the existing data in a B4XTable. When I try and use details_tbl.ClearDataView it throws an error:

Error occurred on line: 404 (B4XTable)
java.lang.RuntimeException: Object should first be initialized.
    at anywheresoftware.b4a.sql.SQL.checkNull(SQL.java:55)
    at anywheresoftware.b4a.sql.SQL.ExecQuerySingleResult2(SQL.java:244)
    at anywheresoftware.b4a.sql.SQL.ExecQuerySingleResult(SQL.java:234)
    at b4a.example.b4xtable._cleardataview(b4xtable.java:552)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:351)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:146)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:193)
    at anywheresoftware.b4a.shell.DebugResumableSub$RemoteResumableSub.resume(DebugResumableSub.java:22)
    at anywheresoftware.b4a.keywords.Common$13.run(Common.java:1717)
    at android.os.Handler.handleCallback(Handler.java:873)
    at android.os.Handler.dispatchMessage(Handler.java:99)
    at android.os.Looper.loop(Looper.java:214)
    at android.app.ActivityThread.main(ActivityThread.java:7050)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:494)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:965)

Any help, much appreciated.

 

[aeric]

How do you expect someone could help without seeing any code?

 

[james_sgp]

Apologies, but my code to clear the table is one line...
FYI, filling table works without problem.

details_tbl.ClearDataView

 

[Chris2]

The method to clear the data from a B4XTable is

b4xtable.Clear

ClearDataView is to do with filtering the data I think

 

[teddybear]

Apologies, but my code to clear the table is one line...
FYI, filling table works without problem.

details_tbl.ClearDataView

The information is not enough.
Make a small project, try details_tbl.ClearDataView

 

[teddybear]

The method to clear the data from a B4XTable is

b4xtable.Clear

ClearDataView is to do with filtering the data I think

No, if you delete some rows it will update the rows count.

 

[aeric]

Apologies, but my code to clear the table is one line...
FYI, filling table works without problem.

details_tbl.ClearDataView

Apologies, I can't read your screen or mind.

I also want to refuse to provide more lines of code but I didn't.

Here how I do normally.

B4XTable1.sql1.ExecNonQuery2($"INSERT INTO data VALUES(?, ?, ?, ?)"$, params)
B4XTable1.ClearDataView

B4XTable1.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array(RowId))
B4XTable1.UpdateTableCounters

 

[Brian Dean]

The reason that everyone wants to see more code, @james_sgp, is because the error may be detected at line 404 but your coding error is somewhere else.

details_tbl.ClearDataView

Assuming that this is line 404, the error is that details_tbl is not initialised. So why is that? If as you say "suddenly I can[not] seem to clear the existing data in a B4XTable" then we presume the code was working but you have made a coding change somewhere that breaks it. That is what you need to find, and it is not in the code sample (such as it is) that you have provided. You are not going to get anywhere by studying line 404.

 

[james_sgp]

Still can`t get it to work, here is a small sample; as requested. Press refresh button should change the data, but it give an error, that Table isn`t initialised.


James

 

[Mahares]

Still can`t get it to work,

Replace your two subs with these two subs with the same name. It should do it for you:
Please note that I replaced your query with a parameterized query and used aliases for your table names to make it neater, but your query the way it is is also fine.

Sub update_detail(id As String)
    Dim Data As List
    DateTime.DateFormat = "dd-MMM-yy, HH:mm"
    Data.Initialize
           
'    Dim rs As ResultSet = sql_gear.ExecQuery("SELECT gear_moves.qr_code, gear_moves.state, gear_moves.date, gear_moves.who, gear_moves.note, gear_moves.sync, gear_items.size FROM gear_items INNER JOIN gear_moves ON gear_items.qr_code = gear_moves.qr_code WHERE ((gear_items.type)='" & id & "');")' ORDER BY id DESC")
'    Dim rs As ResultSet = sql_gear.ExecQuery("SELECT GM.qr_code, GM.state, GM.date, GM.who, GM.note, GM.sync, GI.size FROM gear_items GI INNER JOIN gear_moves GM ON GI.qr_code = GM.qr_code WHERE ((GI.type)='" & id & "');")' ORDER BY id DESC")
    Dim rs As ResultSet = sql_gear.ExecQuery2("SELECT GM.qr_code, GM.state, GM.date, GM.who, GM.note, GM.sync, GI.size FROM gear_items GI INNER JOIN gear_moves GM ON GI.qr_code = GM.qr_code WHERE GI.type= ? ", Array As String( id))
    Log("row count: " & rs.RowCount)
    If rs.RowCount > 0 Then
        Do While rs.NextRow
            Dim row(4) As Object
            If id = "BCD" Or id = "Wetsuit" Then
                row(0) = rs.GetString("gear_items.size")
            Else
                row(0) = "-"
            End If
            row(1) = rs.GetString("gear_moves.state")
            row(2) = DateTime.Date(rs.GetString("gear_moves.date"))
            row(3) = rs.GetString("gear_moves.who")
            Data.Add(row)
        Loop
        rs.Close
        details_tbl.SetData(Data)
    Else
'        If details_tbl.Size > 0 Then details_tbl.ClearDataView
        Log("table size: " & details_tbl.Size)
        details_tbl.refresh       
    End If
End Sub

Private Sub Button1_Click
    details_tbl.Clear
    details_Column(0) = details_tbl.AddColumn("DETAILS", details_tbl.COLUMN_TYPE_TEXT)
    details_Column(1) = details_tbl.AddColumn("STATUS", details_tbl.COLUMN_TYPE_TEXT)
    details_Column(2) = details_tbl.AddColumn("DATE", details_tbl.COLUMN_TYPE_TEXT)
    details_Column(3) = details_tbl.AddColumn("WHO", details_tbl.COLUMN_TYPE_TEXT)
    details_Column(0).Width = 20%x
    details_Column(1).Width = 18%x
    details_Column(2).Width = 20%x
    details_Column(2).Width = 25%x

    update_detail("Reg")
End Sub

 

[james_sgp]

Great thanks, so after doing a CLear, i need to regenerate the table

 

[Mahares]

so after doing a CLear, i need to regenerate the table

Test it first and see if that is what you are looking for.

 

[james_sgp]

ALready did, when I posted my last message. It all worked great thanks

 

[cklester]

You can clear a B4XTable using SetData() with an empty list. That's how I've done it recently.