sqlite dll

Informations pour bien débuter en PureBasic
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

sqlite dll

Message par microdevweb »

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 :

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
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: sqlite dll

Message par Kwai chang caine »

Bonjour MDW :wink:
Ca marche pas ici, surement compilé en X64 ?
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: sqlite dll

Message par microdevweb »

Salut Kwai chang caine,

Oui en effet, désolé.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Répondre