Windev Mobile 25 : Création table SQLite

sqlitetest

gbFichierExiste est un booleen = faux
SI fFichierExiste(fRepExe() + "\databases\scanned.db") ALORS
	gbFichierExiste = vrai
	Info("fichier existe")
FIN

ScannedDb est une Connexion
ScannedDb..Provider				= hAccèsNatifSQLite
ScannedDb..Source				= "scanned.db"
ScannedDb..Accès				= hOLectureEcriture

SI HOuvreConnexion(ScannedDb)	= Faux ALORS
	Erreur(HErreurInfo())
sinon
	SI gbFichierExiste = Faux ALORS
		SI HExécuteRequêteSQL(ScannedDb, "ScannedDb", hRequêteDéfaut, "CREATE TABLE article(code TEXT, quantite REAL);") = Vrai ALORS
			Info("Création table ok.")
		SINON
			Info("Erreur création : " + HErreurInfo())
		FIN
	SINON
		SI HExécuteRequêteSQL(ScannedDb, "ScannedDb", hRequêteDéfaut, "INSERT INTO article VALUES('0123456789', 1.5);") = Vrai ALORS
			Info("Insertion ok.")
		SINON
			Info("Insertion erreur : " + HErreurInfo())
		FIN
	FIN
		
	SI HExécuteRequêteSQL(ScannedDb, "ScannedDb", hRequêteDéfaut, "SELECT * FROM article") = Vrai ALORS
		Info("Obtention ok.")
		
    // ICI COMMENT LIRE ????
            
	SINON
		Info("Obtention erreur : " + HErreurInfo())
	FIN
		
	HFermeConnexion(ScannedDb)	
FIN