B4J Library SD: SqliteExtra

This new library is used to add some functions to the already precious SQLite library.
  1. Insertion, updating and reading of images in fields of type BLOB.
  2. Functions to add a table, a field. Update a field. Delete a row or table.
  3. List of tables, fields and typos of the fields contained in the database
  4. 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")

upload_2018-3-23_23-53-40.png
 

Attachments

  • jSD_SqliteExtra 1.00.zip
    6.2 KB · Views: 476
  • Sample_1.zip
    89.6 KB · Views: 483
Top