COLUMNVIEW - remplir avec sqlite3( Temps de lecture estimé à 1 min 33 sec )
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é :
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 :
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 :