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
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 4535 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

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 ^