Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
COLUMNVIEW - put in with 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 :


Creation date : 01/11/2009 @ 17:02
Last update : 27/01/2012 @ 22:03
Category : COLUMNVIEW
Page read 6294 times


Print the article Print the article


react.gifReactions to this article

Nobody gave a comment yet.
Be the first one to do it!


QUICK MENU
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^