Sub GetClubs
Dim cursor1 As Cursor
Dim row As Int
Dim objClub As clsClub
Dim arClub As List : arClub.Initialize
Try
cursor1 = Main.sql1.ExecQuery("SELECT * FROM clubs ORDER BY clubNaam ASC")
If cursor1.RowCount > 0 Then
intRowNumber = cursor1.RowCount
For row = 0 To intRowNumber -1
cursor1.Position = row
objClub.ClubID = cursor1.GetInt("clubID")
objClub.ClubNaam = cursor1.GetString("clubNaam")
objClub.ClubGPS = cursor1.GetString("clubGPS")
arClub.Add(objClub)
Next
End If
Catch
Log(LastException.Message)
ToastMessageShow(LastException.Message, True)
End Try
Return arClub
End Sub