Hey folks,
I am trying to get a list view of one of my Database Tables and I keep getting dumped out of my program.
The code I have written looks like:
Any help would be appreciated
regards,
Lary
I am trying to get a list view of one of my Database Tables and I keep getting dumped out of my program.
The code I have written looks like:
B4X:
Sub Activity_Create(FirstTime As Boolean)
Dim Cursor1 As Cursor
Dim SQL1 As SQL
Dim Qry As String
Table1.Initialize(Me, "Medications", 4)
Table1.AddToActivity(Activity, 0, 0dip, 100%x, 50%y)
Table1.SetHeader(Array As String("Name", "Dose", "Frequency", "Comments"))
Qry = "SELECT meds.MedID, meds.MedName, meds.MedDose, meds.MedFreq, meds.MedComm FROM meds inner join users " & _
"on users.ID = meds.UserID where meds.UserID = " & Main.MastUID
'ToastMessageShow(Qry, True)
Cursor1 = SQL1.ExecQuery(Qry)
For i = 0 To Main.MIDList.Size - 1
Cursor1.Position = i
'Cursor1.GetInt("MedID")
Table1.AddRow(Array As String(Cursor1.GetString("MedName"), Cursor1.GetString("MedDose"), Cursor1.GetString("MedFreq"), Cursor1.GetString("MedComm")))
'Table1.AddRow(Array As String("Row: " & i, "ccc", "ddd", "eee"))
Next
Table1.SetColumnsWidths(Array As Int(100dip, 100dip, 100dip, 100%x - 300dip))
'Activity.AddMenuItem("Jump To 3000", "Jump1")
'Activity.AddMenuItem("Jump To 0", "Jump2")
'Table2.Initialize(Me, "Table2", 0)
'Table2.AddToActivity(Activity, 0, 55%y, 100%x, 45%y)
'Table2.LoadTableFromCSV(File.DirAssets, "citylist.csv", True)
End Sub
Any help would be appreciated
regards,
Lary