j'ai un ensemble de données dans un classeur excel , j'ai construit une base de donnée avec delphi et je connait pas comment remplir les tables avec les données existantes dans le classeur excel
j'ai un ensemble de données dans un classeur excel , j'ai construit une base de donnée avec delphi et je connait pas comment remplir les tables avec les données existantes dans le classeur excel
Des idées ici, peut-être : http://delphi.developpez.com/faq/?page=exceldelphi
Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
. Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !
il y a les composants "SMImport " ou "EMS Advanced Data Import Component Suite" , ils permettent d'importer les données à partir de MS Excel,....
Mais ils sont payants.
Bonne chance
NABIL74
Importer des données d'un EXCEL vers Paradox est un sujet récurrent
comment convertir un fichier exel en table paradox ?
importer des données excel dans une application delphi
Transferer le contenu d'un XLS vers une table?
Lire Excel en OLE : Pilotage OLE d'Excel à partir de Delphi, l'important c'est Sheet, Range et Cell en complément de laExcel Delphi
Tu utilises Paradox dont tu maîtrise le TTable qui peut être connecté un Alias ODBC "Microsoft Excel Driver (*.xls)"
Utilise FieldCount, Fields[], Value, AsVariant, Append, Post, ... une double boucle
Src = TTable sur Microsoft Excel Driver
Dest = TTable sur Paradox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Src.Open(); Src.First(); while not Src.Eof do begin Dest.Append(); for iField := 0 to Src.FieldCount - 1 do Dest.Fields[iField].AsVariant := Src.Fields[iField].AsVariant; Dest.Post(); Src.Next(); end;
Est-ce un vrai fichier Excel ? ou un CSV déguisé ?
Un CSV correctement formaté (donc , et " et pas ; ) peut être lu via un TTable en TableType en ttASCII
Un CSV français peut se lire via une TStringList pour les lignes puis un autre TStringList pour le découpage en colonne via DelimitedText
Cela ne gère pas les CRLF echappé !
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !![]()
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Partager