Utiliser la columnview
Rédigé par spheris
Aucun commentaire
Classé dans : base de donnees, Columnview, gambas 2, Tutoriels
REMPLIR UNE COLUMNVIEW AVEC UNE BDD SQLITE
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.
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.