WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
COLUMNVIEW - remplir avec sqlite3
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 :


Date de création : 01/11/2009 @ 17:02
Dernière modification : 27/01/2012 @ 22:03
Catégorie : COLUMNVIEW
Page lue 4526 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^