Hi all.
I have an sqlite database, that I am writing to. This works no problem. But when I go to load my database when I open my program, It does not seem to delete all rows even when I have the deleteallrows command as shown below:
[code]TimeManagementListboxbox.DeleteAllRows()
Dim siteRS as RecordSet
sql = "SELECT * FROM ACTIVITY "
siteRS = DB.SqlSelect(sql)
if DBError then Return
'Get Each entry in the database and put it in the listbox
if siteRS <> NIL Then
while not siteRS.EOF
TimeManagementListboxbox.AddRow (siteRS.Field(“DATACUSTOMER”).StringValue, siteRS.Field(“DATADATE”).StringValue, siteRS.Field(“DATAHOURS”).StringValue, siteRS.Field(“DATAMINUTES”).StringValue, siteRS.Field(“DATASECONDS”).StringValue, siteRS.Field(“DATANOTES”).StringValue)
'save Password database Primary Key for adding and editing
'TimeManagementListboxbox.rowtagat(TimeManagementListboxbox.LastRowIndex) = siteRS.Field("ID").IntegerValue
siteRS.MoveNext
wend
siteRS.Close
end if[/code]
Any ideas?
Regards