Control pour afficher, modifier, filtrer... une base access
Description
Ce control utilisateur utilise une FlexGrid.
Il suffit de passer à la grille les nom des champs, le chemin de la base et 1 ou 2 paramètres et vous obtenez une grille qui affiche les données voulues.
Possibilités :
- Filtre par parametre SQL
- Tri des données avec paramatre SQL
- Possibilité de modifier les champs que l'on veut (les autres sont bloqués)
- Ajout d'un enregistrement
- Affichage des données selon leur type (Bool, String, Number...)
J'ai également mis dans le zip, un ocx compilé pour ceux qui préfère.
J'ai passé pas mal de temps sur cette source, mais je pense en gagner encore plus.
Merci de laisser vos commentaire et de noter. Cela fait toujours plaisir quand on partage une source.
Bonne prog
++
PS : J'ai mis initié car même si le code ne présente aucune technique vraiment compliquée, sa mise en oeuvre est quand même dans l'ensemble l'est un peu.
Il suffit de passer à la grille les nom des champs, le chemin de la base et 1 ou 2 paramètres et vous obtenez une grille qui affiche les données voulues.
Possibilités :
- Filtre par parametre SQL
- Tri des données avec paramatre SQL
- Possibilité de modifier les champs que l'on veut (les autres sont bloqués)
- Ajout d'un enregistrement
- Affichage des données selon leur type (Bool, String, Number...)
J'ai également mis dans le zip, un ocx compilé pour ceux qui préfère.
J'ai passé pas mal de temps sur cette source, mais je pense en gagner encore plus.
Merci de laisser vos commentaire et de noter. Cela fait toujours plaisir quand on partage une source.
Bonne prog
++
Source / Exemple :
'POUR INITIALISER LA GRILLE
Call Grille.DataBase (AppPath & "BDD.mdb")
Call Grille.Reinitialiser_Champs
Call Grille.Ajouter_Champs("Num Devis", "RefDevis", Number_, False)
Call Grille.Ajouter_Champs("Date", "DateDevis", Date_, True)
Call Grille.Ajouter_Champs("Client", "NomClient", String_, False)
Call Grille.Ajouter_Champs("Montant", "Total", Currency_, True)
Call Grille.Ajouter_Champs("Accepté", "Accepte", Boolean_, True)
Grille.Table = "TAB_DEVIS"
Call Grille.KeyField("RefDevis", Number_, 0)
Call Grille.Data("", "ORDER BY RefDevis")
'POUR AJOUTER UNE LIGNE A LA GRILLE
Call Grille.Ajouter_Ligne
'RIE DE PLUS
Conclusion :
PS : J'ai mis initié car même si le code ne présente aucune technique vraiment compliquée, sa mise en oeuvre est quand même dans l'ensemble l'est un peu.
Codes Sources
A voir également
- Control pour afficher, modifier, filtrer... une base access
- Afficher un tableau php en html - Conseils pratiques -PHP
- Exemple base de données access gestion du personnel - Forum Visual Basic
- Base de données access - Conseils pratiques -Visual Basic / VB.NET
- Afficher un tableau php - Forum PHP
- Javascript base de données - Conseils pratiques -Javascript
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.