Pilotage d'une bdd Excel via Delphi 7

Question

Bonjour,
Je veux réaliser une petit application qui va géré un tableau Excel , par exemple dans l'application je veux crée un Botton qui va  filtré les données par rapport aux nom de ville et un autre Botton qui me donne le filtre par année ou  par mois
D'anc.  Ma question c'est est ce que c'est possible de piloter directement une feuille Excel sur Delphi 7
Ou j'ai besoin de passé par un autre chose, et je veux un peut d'aide pour la réalisation de ce projet
(Tutoriel, doc, programme ?.)
Merci a vous  .

cs_cantador · Answer

Bonjour,

La solution de piloter un filtrage d'EXCEL, dans ton cas, n'est pas fameuse..
L'expérience montre que très vite, on est confronté à des difficultés croissantes (mise à jour des données, des champs, gestion des droits des utilisateurs, protection etc.etc.)

Bref, EXCEL est avant tout un tableur et non une BASE de données.

Le mieux est de construire une petite base de données avec des outils free,
de mettre sur un formulaire quelques boutons liés à des requêtes SQL
permettant l'affichage sous-forme d'Etats de données filtrées selon
certains critères pouvant être sélectionnés (case à cocher, listes déroulantes,boutons radios etc.)

cantador

yacinew · Answer

merci ,
mes je veut en 1er temps de crée une application o moin qui affiche un tebleau excel 
jecherche un peu l'utilisation de ole avec excel ou ado avec excel
merci de m'aider

cs_DJALLA · Answer

Voici comment tu pourrais envoyer des données à Excelle via Delphi

Procedure TMainForm.EnvoyerLaBaseVersExcel;
var NomFichier:string; x, NouvClasseur,FeuilleActive:variant;
const L:integer=3;
BEGIN
//A-
 x:=CreateOleObject('Excel.Application');
 x.Application.Visible:=True; //False pour ne pas voir EXCEll
 //NouvClasseur:=x.Workbooks.Add;//créer un nouveau dossier
 NomFichier:='C:\DATA\FICHIER.XLS';
 NouvClasseur:=x.Workbooks.Open(NomFichier);
 FeuilleActive:=NouvClasseur.Activesheet;
 //
 FeuilleActive.Range['A1'].value:='Abidjan';
 FeuilleActive.Range['B1'].value:='keitandjalla@yahoo.fr';
 FeuilleActive.Range['C3'].value:='KEITA';
 FeuilleActive.Range['D4'].value:='(00225)07626111';
 FeuilleActive.Range['E5'].value:='Adresse';
 //etc...
 NouvClasseur.Save(NomFichier);
 NouvClasseur.close;
 x.quit;
END;

aitek

Pilotage d'une bdd Excel via Delphi 7

3 réponses

Votre réponse

Discussions similaires