WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
Base de données - Remplir une columnview

REMPLIR UNE COLUMNVIEW AVEC UNE BDD SQLITE


bddview.png
Bonjour,
aujourd'hui je vous propose de remplir une columnview à l'aide d'une base de données sqlite.

A) creation de la columnview
Cliquez sur le widget columnview et dessinez la dans votre form.

B) Definition de la columnview
Nous allons definir une columnview de 4 colonnes comme ceci dans l'evenement open de notre form :

PUBLIC SUB Form_Open()
ColumnView1.Columns.count = 4
ColumnView1.Columns[0].Width = 50
ColumnView1.Columns[0].Text = "ID"
ColumnView1.Columns[1].Text = "famille"
ColumnView1.Columns[2].Text = "refinterne"
ColumnView1.Columns[3].Text = "designation"
majgrille() 'rempli la colomnview avec la bdd
END



C) remplissage de notre columnview.
Ici nous supposons que notre bdd existe.
voici le code commenté de la fonction majgrille

PUBLIC SUB majgrille()
DIM mykey AS Integer = 0
maconnexion.Type = Lower("sqlite3") 'type de bdd
maconnexion.Host = Application.Path 'chemin dacces de la bdd
maconnexion.Name = "bdddata" 'nom de la bdd que nous voulons utiliser
maconnexion.Login = "" 'login pour se connecter a la base
maconnexion.Password = "" ' mdp pour connecter a la base
maconnexion.Port = "" ' port si bdd en reseau
maconnexion.Open() 'ouverture de la bdd
sql = "SELECT * FROM articles WHERE ID  LIKE '%" & "" & "%'"                
monresultat = maconnexion.Exec(sql)
ColumnView1.Clear() 'efface la columnview
FOR EACH monresultat
 ColumnView1.Add(thekey, Now) 'ajoute la premiere ligne
ColumnView1[thekey][0] = monresultat!ID
ColumnView1[thekey][1] = monresultat!famille
ColumnView1[thekey][2] = monresultat!refinterne
ColumnView1[thekey][3] = monresultat!designation
INC thekey incremente la ligne
NEXT
maconnexion.Close() 'ferme la connexion
END


voila pour aujourd'hui.

Date de création : 26/12/2011 @ 22:35
Dernière modification : 26/12/2011 @ 22:35
Catégorie : Base de données
Page lue 2341 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°2 

par manu le 08/01/2012 @ 12:01

Il ne faut pas oublier de créer en entête de la classe, l'objet maconnexion par un petit :
Private maconnexion as New Connection

ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^