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.