B4A=true
Group=Class
ModulesStructureVersion=1
Type=Class
Version=11.5
@EndOfDesignText@
 
Private Sub Class_Globals
	
	Private sqlDl As SQL
	Private Cursor5 As ResultSet

	Dim databaseName,idRecoed As String

End Sub

Public Sub Initialize(database As String,idVla As String)
	
	If sqlDl.IsInitialized=False Then
		sqlDl.Initialize(File.DirInternal,"download.db",True)
	End If

	databaseName = database
	idRecoed     = idVla

	deleteAllBook
	
End Sub

 
Public Sub deleteAllBook
	sqlDl.ExecNonQuery("DELETE FROM "&databaseName&"" )
End Sub


Public Sub insertBook(idBook As String)
	
	If sel0Book(idBook) Then
	Else
		sqlDl.ExecNonQuery("INSERT INTO "&databaseName&" ("&idRecoed&") VALUES ('"&idBook&"') ")
	End If
	
End Sub

Public Sub sel0Book(idBook As String) As Boolean
	
	Cursor5 = sqlDl.ExecQuery("SELECT id FROM "&databaseName&" where "&idRecoed&" = '"&idBook&"' " )
	If Cursor5.RowCount > 0 Then
		Return True
	Else
		Return False
	End If

End Sub

Public Sub delBook(idBook As String)
	sqlDl.ExecNonQuery("DELETE FROM "&databaseName&" where "&idRecoed&" = '"&idBook&"' " )
End Sub

Public Sub selectAll As List
	
	Cursor5 = sqlDl.ExecQuery("SELECT "&idRecoed&" FROM "&databaseName&"" )
	
	Dim listGhari1 As List
	listGhari1.Initialize
	
	Do While Cursor5.NextRow
		listGhari1.Add( Cursor5.GetInt(idRecoed))
	Loop : Cursor5.Close
	
	Return listGhari1
  
End Sub