Base de donnee et Tableau

Résolu
Signaler
Messages postés
572
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
4 mai 2020
-
Messages postés
300
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
8 janvier 2010
-
Slu



que me conseillez vous comme tableau a utiliser avec une base de donnee (DBGrid, MSFlexGrid, ....) ??

Et comment l utiliser?

Est il possible avec l un de ces objet de "personnaliser" le contenu ?
par exemple pour la colonne 2 mettre : champ1 "+" champ2...



merci d avance !

Herve

5 réponses

Messages postés
300
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
8 janvier 2010
2
Voici un exemple de MSFLEXGRID qui se lance au chargement du programme et qui touche a une base de donnée Access ^^ :

Private Sub Form_Load()

Set mabase = OpenDatabase(App.Path & "/Gestionsalle.mdb")
'Paramètrage du Msflexgrid au démarrage
'msf est mon msflexgrid (c'est son pti nom) ,text matrix pour ecrire dans les champs
msf.TextMatrix(0, 0) = "Numéro"
'je défini la taille de ma colonne
msf.ColWidth(0) = 700
msf.TextMatrix(0, 1) = "Date Début"
msf.ColWidth(1) = 1000
msf.TextMatrix(0, 2) = "Date Fin"
msf.ColWidth(2) = 1000
msf.TextMatrix(0, 3) = "Salle"
msf.ColWidth(3) = 2000
msf.TextMatrix(0, 4) = "Nom Association"
msf.ColWidth(4) = 1700
msf.TextMatrix(0, 5) = "Responsable"
msf.ColWidth(5) = 1100
msf.TextMatrix(0, 6) = "Horaire"
msf.ColWidth(6) = 1500
msf.TextMatrix(0, 7) = "Nb de personne"
msf.ColWidth(7) = 1250

req = "SELECT champs01, champs02 FROM Table01 WHERE condition01 AND condition02"
'req est ma requete SQL comme sa on peu personaliser ce que l'on veu afficher
Set jeu = mabase.OpenRecordset(req)
'variable jeu pour dire jeu d'enregistrement
While jeu.EOF = False ' tant que ton jeu n'es pas vide il va le lire ligne par ligne
msf.Rows = msf.Rows + 1 'tu incremente ton msflexgrid de 1
msf.TextMatrix(msf.Rows - 1, 0) = jeu!champs01
msf.TextMatrix(msf.Rows - 1, 1) = jeu!champs02
msf.TextMatrix(msf.Rows - 1, 2) = jeu!champs03
msf.TextMatrix(msf.Rows - 1, 3) = jeu!champs04
msf.TextMatrix(msf.Rows - 1, 4) = jeu!champs05
msf.TextMatrix(msf.Rows - 1, 5) = jeu!champs06
msf.TextMatrix(msf.Rows - 1, 6) = jeu!champs07
msf.TextMatrix(msf.Rows - 1, 7) = jeu!champs08

jeu.MoveNext 'tu passe a l'enregistremen suivant
Wend

jeu.Close
mabase.Close
'tu ferme ton jeu puis ta base a la fin
End Sub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

Si c'est pour visualiser les données le MSFlexGrig est mieux, surtout
pour la mise en forme. Tu le lies au contrôle Data, c'est très simple à
réaliser.



jpleroisse
Messages postés
572
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
4 mai 2020

Mais il faut tout de meme parcourir la DB pour templir le tableau ou il y a une solution plus rapide ?

Herve
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Re,

Pour remplir le contrôle MSFlexGrid, tu places un contrôle Data , tu
cliques sur la propriété DataBaseName (sur le petit carré avec des
points), là tu choisis ta BD dans la fenêtre qui apparait.Ensuite à la
propriété RecordSource, tu cliques et les ou la Table que contient la
BD apparaissent, tu choisis la table.

Tu cliques sur le contrôle MSFlexGrid et à la propriété DataSource tu places Data1 (il sera indiqué de toute façon).

Voilà, tu n'a plus qu'a lancer et tu verras tous les champs de la table dans le MSFlexGrid.

Pour personnaliser le MSFlexGrid, dans propiétés, tu cliques sur personnalisé et tu as des options.



jpleroisse
Messages postés
572
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
4 mai 2020

Merci



j avais trouve cette soluce ...mais il y a plein d elements de la BD
qui ne m interresse pas(par exemple l ID) , ou que j aimerais afficher
d une autre facon ... comment faire ??

Herve