sqlite dll
Publié : jeu. 14/févr./2019 12:26
Bonjour à tous,
Je suis un peux absent du site car la je suis en plein dans le développement d'automate programmable, mais je continue à utilisé pb occasionnellement.
Personnellement quand j'utilise sqlite je passe par un module car je n'aime pas devoir sans cesse renseigné à nouveau l'id de la basse de donnée.
J'ai donc créer pour mon usage une dll style objet et la met à votre disposition.
ICI
Voici un exemple de code :
Je suis un peux absent du site car la je suis en plein dans le développement d'automate programmable, mais je continue à utilisé pb occasionnellement.
Personnellement quand j'utilise sqlite je passe par un module car je n'aime pas devoir sans cesse renseigné à nouveau l'id de la basse de donnée.
J'ai donc créer pour mon usage une dll style objet et la met à votre disposition.
ICI
Voici un exemple de code :
Code : Tout sélectionner
XIncludeFile "sqliteDbInclude.pbi"
Global dbName.s="dbTest.db"
; we create the table only if the database doesn't exist
Define request.s = "INSERT INTO countries (name) VALUES (?)"
If FileSize(dbName) = -1
; if the file of the database doesn't exist it is created
Define myDb.db = newSqlite(dbName)
If myDb
myDb\update("CREATE TABLE countries (id INTEGER PRIMARY KEY AUTOINCREMENT,name TEXT NOT NULL)")
myDb\setString(0,"Belgium")
myDb\update(request)
myDb\setString(0,"France")
myDb\update(request)
myDb\setString(0,"Spain")
myDb\update(request)
myDb\setString(0,"Italia")
myDb\update(request)
myDb\setString(0,"Germany")
myDb\update(request)
myDb\setString(0,"Rusia")
myDb\update(request)
EndIf
myDb\close()
EndIf
; Testing of result
Define myDb.db = newSqlite(dbName)
If myDb\query("SELECT * FROM countries ORDER BY name")
While myDb\nextRecord()
Debug Str(myDb\getLong(0))
Debug toString(myDb\getString(1))
Wend
myDb\close()
EndIf
