Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
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 6600 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

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^