REMPLIR UNE COLUMNVIEW AVEC SQLITE3

---

Bonjour,
Aujourd'hui nous allons remplir une columnview avec des données stockées dans un fichier de type sqlite3.

voici le code commenté :

déclaration des variables : DIM sname AS String DIM spercorso AS String DIM $­­hconn AS new connection DIM hres AS result DIM sql AS String DIM i AS Integer DIM hFile AS File DIM sLINE AS String définition de la connexion à la base sqlite : sname = "bddstock" spercorso = application.path with $­­hconn .type = "sqlite3" .host = spercorso END with $­­hconn.name = sname $­­hconn.OPEN sql = "select * from stock where mag like '%" & "" & "%'" hres = $­­hconn.exec(sql) IF hres.available = TRUE THEN définition des noms des colonnes, taille et nombre : columnview1.columns.count = 17 columnview1.columns[0].width = 50 columnview1.columns[0].text = "id" columnview1.columns[1].text = "codeb" columnview1.columns[2].text = "description" columnview1.columns[3].text = "ref" columnview1.columns[4].text = "fournisseur" columnview1.columns[5].text = "udv" columnview1.columns[7].text = "qte en stock" columnview1.columns[7].text = "stock mini" columnview1.columns[8].text = "stock max" columnview1.columns[9].text = "simil" columnview1.columns[10].text = "px achat" columnview1.columns[11].text = "px vente" columnview1.columns[12].text = "imputation" columnview1.columns[13].text = "magasin" columnview1.columns[14].text = "famille" columnview1.columns[15].text = "qte achat" remplissage de la columnvie avec la boucle FOR EACH NEXT : FOR EACH hres columnview1.add(i, now) columnview1[i][0] = hres!id columnview1[i][1] = hres!codeb columnview1[i][2] = hres!produit columnview1[i][3] = hres!ref columnview1[i][4] = hres!fournisseur columnview1[i][5] = hres!cond columnview1[i][7] = hres!qte columnview1[i][7] = hres!stockmin columnview1[i][8] = hres!stockmax columnview1[i][9] = hres!simil columnview1[i][10] = hres!pxachat columnview1[i][11] = hres!pxvente columnview1[i][12] = hres!imp columnview1[i][13] = hres!mag columnview1[i][14] = hres!famille columnview1[i][15] = hres!qtEACHat incrémenter l'index de la ligne : inc i NEXT ELSE ENDif END

Chaque ligne d'une columnview est pointée par un index. (ici la variable "i" )
à chaque passage de la boucle, il faut incrémenter l'index par la commande INC i
voilà pour aujourd'hui

Cet exemple est tiré de FreeGMAO le logiciel de gestion de PME PMI à consulter et télécharger ici :