Mar 23, 2018 This new library is used to add some functions to the already precious SQLite library. Insertion, updating and reading of images in fields of type BLOB. Functions to add a table, a field. Update a field. Delete a row or table. List of tables, fields and typos of the fields contained in the database Commands to populate List and ListView also with images. It is still in testing terms, if there are errors please report to me jSD_SqliteExtra Author: Star-Dust Version: 1 sqlite Fields: TypeFieldBlob As String TypeFieldInteger As String TypeFieldNumeric As String TypeFieldReal As String TypeFieldText As String Functions: AddField (Dir As String, Filename As String, NameTable As String, NameField As String, TypeField As String, defaultValue As String) As Boolean Example: Dim sq as sqlite sq.initialize sq.AddField(File.DirApp,"mysql.db","mytable","myfield","") sq.AddField(File.DirApp,"mysql.db","mytable","myNumberfield","0") AddTable (Dir As String, Filename As String, NameTable As String, Fields As String, CreateIfNecessary As Boolean) As Boolean Example: Dim sq as sqlite sq.initialize sq.AddTable(File.DirApp,"mysql.db","mytable","ID INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, Number INTEGER default 0, Name TEXT default ''") Class_Globals As String DeleteRow (Dir As String, Filename As String, NameTable As String, Condition As String) As String Example: Dim sq as sqlite sq.initialize sq.DeleteRow(File.DirApp,"mysql.db","mytable","ID=1") DeleteTable (Dir As String, Filename As String, NameTable As String) As String Example: Dim sq as sqlite sq.initialize sq.DeleteTable(File.DirApp,"mysql.db","tableOld") getListFieldName (Dir As String, Filename As String, TableName As String) As List getListFieldTypeName (Dir As String, Filename As String, TableName As String) As List getListTable (Dir As String, Filename As String) As List Initialize As String Inizializza l'oggetto. Puoi aggiungere parametri a questo metodo,se necessario. InsertBitmap (Dir As String, Filename As String, TableName As String, Field As String, Bm As Image) As String Example: Dim sq as sqlite sq.initialize sq.InsertBitmap("mysql.db", "mytable", "imageField", LoadBitmap(File.DirInternal,"myimage.png")) IsInitialized As Boolean Verifica se l'oggetto sia stato inizializzato. PopulateList (Dir As String, Filename As String, NameTable As String, FieldName As String, Condition As String) As List Example: Dim sq as sqlite sq.initialize Dim L As list = sq.PopolateList("mysql.db","mytable","Name", "") PopulateListView (Dir As String, Filename As String, NameTable As String, FieldName As String, FieldID As String, Condition As String, LV As ListView, CLearListView As Boolean) As String Example: Dim sq as sqlite sq.initialize sq.PopolateList("mysql.db","mytable","CityField","ID", "", ListView1,True) readBitmap (Dir As String, Filename As String, TableName As String, Filter As String, Field As String) As Image Example: Dim sq as sqlite sq.initialize Dim B as Bitmap = sq.readBitmap("mysql.db", "mytable","ID=1", "imageField") UpdateBitmap (Dir As String, Filename As String, TableName As String, Filter As String, Field As String, Bm As Image) As String Example: Dim sq as sqlite sq.initialize sq.UpdateBitmap("mysql.db", "mytable","ID=1", "imageField", LoadBitmap(File.DirInternal,"myimage.png")) UpdateField (Dir As String, Filename As String, NameTable As String, FieldName As String, Value As String, Condition As String) As String Example: Dim sq as sqlite sq.initialize sq.UpdateField(File.DirApp,"mysql.db","mytable","NumberField", "100", "ID=1") sq.UpdateField(File.DirApp,"mysql.db","mytable","StringField", "'StringValue'", "ID=1") Attachments jSD_SqliteExtra 1.00.zip jSD_SqliteExtra 1.00.zip 6.2 KB · Views: 880 Sample_1.zip Sample_1.zip 89.6 KB · Views: 901 Click to expand...
This new library is used to add some functions to the already precious SQLite library. Insertion, updating and reading of images in fields of type BLOB. Functions to add a table, a field. Update a field. Delete a row or table. List of tables, fields and typos of the fields contained in the database Commands to populate List and ListView also with images. It is still in testing terms, if there are errors please report to me jSD_SqliteExtra Author: Star-Dust Version: 1 sqlite Fields: TypeFieldBlob As String TypeFieldInteger As String TypeFieldNumeric As String TypeFieldReal As String TypeFieldText As String Functions: AddField (Dir As String, Filename As String, NameTable As String, NameField As String, TypeField As String, defaultValue As String) As Boolean Example: Dim sq as sqlite sq.initialize sq.AddField(File.DirApp,"mysql.db","mytable","myfield","") sq.AddField(File.DirApp,"mysql.db","mytable","myNumberfield","0") AddTable (Dir As String, Filename As String, NameTable As String, Fields As String, CreateIfNecessary As Boolean) As Boolean Example: Dim sq as sqlite sq.initialize sq.AddTable(File.DirApp,"mysql.db","mytable","ID INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, Number INTEGER default 0, Name TEXT default ''") Class_Globals As String DeleteRow (Dir As String, Filename As String, NameTable As String, Condition As String) As String Example: Dim sq as sqlite sq.initialize sq.DeleteRow(File.DirApp,"mysql.db","mytable","ID=1") DeleteTable (Dir As String, Filename As String, NameTable As String) As String Example: Dim sq as sqlite sq.initialize sq.DeleteTable(File.DirApp,"mysql.db","tableOld") getListFieldName (Dir As String, Filename As String, TableName As String) As List getListFieldTypeName (Dir As String, Filename As String, TableName As String) As List getListTable (Dir As String, Filename As String) As List Initialize As String Inizializza l'oggetto. Puoi aggiungere parametri a questo metodo,se necessario. InsertBitmap (Dir As String, Filename As String, TableName As String, Field As String, Bm As Image) As String Example: Dim sq as sqlite sq.initialize sq.InsertBitmap("mysql.db", "mytable", "imageField", LoadBitmap(File.DirInternal,"myimage.png")) IsInitialized As Boolean Verifica se l'oggetto sia stato inizializzato. PopulateList (Dir As String, Filename As String, NameTable As String, FieldName As String, Condition As String) As List Example: Dim sq as sqlite sq.initialize Dim L As list = sq.PopolateList("mysql.db","mytable","Name", "") PopulateListView (Dir As String, Filename As String, NameTable As String, FieldName As String, FieldID As String, Condition As String, LV As ListView, CLearListView As Boolean) As String Example: Dim sq as sqlite sq.initialize sq.PopolateList("mysql.db","mytable","CityField","ID", "", ListView1,True) readBitmap (Dir As String, Filename As String, TableName As String, Filter As String, Field As String) As Image Example: Dim sq as sqlite sq.initialize Dim B as Bitmap = sq.readBitmap("mysql.db", "mytable","ID=1", "imageField") UpdateBitmap (Dir As String, Filename As String, TableName As String, Filter As String, Field As String, Bm As Image) As String Example: Dim sq as sqlite sq.initialize sq.UpdateBitmap("mysql.db", "mytable","ID=1", "imageField", LoadBitmap(File.DirInternal,"myimage.png")) UpdateField (Dir As String, Filename As String, NameTable As String, FieldName As String, Value As String, Condition As String) As String Example: Dim sq as sqlite sq.initialize sq.UpdateField(File.DirApp,"mysql.db","mytable","NumberField", "100", "ID=1") sq.UpdateField(File.DirApp,"mysql.db","mytable","StringField", "'StringValue'", "ID=1")