Ebook_Main_List.Initialize
If Not(File.Exists(File.DirInternal, "ebook.db3")) Then
File.Copy(File.DirAssets, "ebook.db3", File.DirInternal, "ebook.db3")
Else
File.Delete(File.DirInternal, "ebook.db3")
File.Copy(File.DirAssets, "ebook.db3", File.DirInternal, "ebook.db3")
End If
sq.Initialize(File.DirInternal,"ebook.db3",False)
Dim cu As Cursor
cu = sq.ExecQuery("SELECT * FROM Ebook")
Log(cu.RowCount)
For i = 0 To cu.RowCount-1
Log(i)
Dim detail As Ebook
detail.Initialize
cu.Position = i
detail.ID = cu.GetInt("ID")
detail.Publisher = cu.GetString("Publisher")
detail.Title = cu.GetString("Title")
detail.Category = cu.GetString("Category")
detail.Downloads = cu.Getint("Downloads")
detail.Likes = cu.GetInt("Likes")
detail.Comments = cu.GetInt("Comments")
detail.Author = cu.GetString("Author")
detail.Summary = cu.GetString("Summary")
detail.price = cu.GetString("Price")
DateTime.DateFormat = "MM/dd/yyyy"
Dim DateDB As Long = DateTime.DateParse(cu.GetString("Date"))
detail.Date = DateDB
Dim Bmp As Bitmap
Dim binImage() As Byte, Flux As InputStream
binImage = cu.GetBlob("Thumbnail")
Flux.InitializeFromBytesArray(binImage, 0, binImage.Length)
Bmp.Initialize2(Flux)
Flux.Close
detail.Image = Bmp
Ebook_Main_List.Add(detail)
Next