Discussion :

[Dalgo75]

Bonjour,
Je bute sur un probleme pour un projet que je dois effectuer sous Delphi 7.
Je souhaiterais importer des données de feuilles excel dans une base de données que je gere sous delphi (constituée de tables Paradox).
Est-il possible de faire cela?
Si oui, quelle est la maniere la plus simple de le faire?
Merci bcp a qui me repondra !

[TicTacToe]

Il y a plusieurs solutions

- soit tu exportes ton fichier excel sous forme de fichier texte, avec des tabulation par exemple, et ensuite tu fais une procédure d'importation dans ton progr, lisant le fichier texte. C'est une solution simple mais qui oblige l'utilisateur à sauver son fichier sous forme texte. Par contre ca peut servir pour d'autres import que Excel.

- soit tu tu sers des composants serveurs excel pour importer directement depuis excel (mais il est nécessaire que celui qui importe dispose d'Excel)

- peut être en passant par ODBC ??? là je sais pas, je laisse ce qui ont déjà tenter de dire si c'est faisable ou non ?

- peut-être en passant par le presse-papier (perso, je fais plutot l'inverse pour mes grilles, mais dans le sens Excel->Prog ca pourrait peut-être marcher, à creuser)

- il y a peut-être des composants qui font ca...

donc plein de solutions, (perso, mais ca fait un moment que l'outils est implémenté dans mon dev donc j'ai pas changé depuis), je passe par un fichier texte formaté

bon courage

[Graffito]

Bonjour,

Au cas ou tu choisisse la solution d'import de fichier text "ASCII delimited", quelques fonctions pour te faciliter la vie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var tsl1,tsl2 : tstringlist ;
...
tsl1:=Tstringlist.create ;
tsl2:=Tstringlist.create ;
tsl2.delimiter:=';' ; // ou un autre caractère comme TAB
Tstringlist.loadfromfile(filename) ;
For i:=0 to tsl1.count-1 do begin 
    tsl2.delimitedText:=tsl1[i] ;
    champA:=AnsiquotedStr(tsl2[0]) ;
    champB:=AnsiquotedStr(tsl2[1]) ;
    ...
    end;
...

[MFDev]

Salut,
Tictactoe a donné une solution:

- soit tu tu sers des composants serveurs excel pour importer directement depuis excel (mais il est nécessaire que celui qui importe dispose d'Excel)

Je l'ai utilisée. Cela sous entend:
_ lancement Excel
_ lecture du fichier xls, cellule par cellule
_ connaître le format des données
_ écrire dans la table paradox
Attention: suivant la quantité de données, c'est relativement long...
Mais cela fonctionne à merveille !
@+
Fabrice

[Dalgo75]

Merci pour vos réponses rapides et claires !
Je me mettrais à la tache dans la semaine, je vous ferait part de mon succès (ou de mon échec!) dans cette manip' ...

[laklak]

Salut,

- soit tu tu sers des composants serveurs excel pour importer directement depuis excel (mais il est nécessaire que celui qui importe dispose d'Excel)

ou mettre ces composants serveurs excel, dans la forme pricipales ou bien dans le DataModule?

et MfDev a dit :

Je l'ai utilisée. Cela sous entend:
_ lancement Excel
_ lecture du fichier xls, cellule par cellule
_ connaître le format des données
_ écrire dans la table paradox
Attention: suivant la quantité de données, c'est relativement long...
Mais cela fonctionne à merveille !

J'ai pas compris :oops: , c'est quoi la procedure?????????

merci
[Balises QUOTE rajoutées par Pedro. Merci d'y penser à l'avenir.]

[TicTacToe]

Les composants serveurs sont à mettres dans la fiche ou tu fais ton traitement (ou bien tu les créés dynamiquement).

Là je peux te renvoyer au tutoriel de Developpez très bien fait:
http://delphi.developpez.com/faq/?page=msoffice

Mais attention, comme le dit MFDev, la lecture cellule par cellule est TRES lent !

[laklak]

Bjr, est ce que on peut faire l'importation avec le datapump ?
si c'est possible, comment faire?
voila mon Pb :
J'ai une base de donnée déja d'une autre application et j'ai fais une nouvelle application avec une nouvelle base de données sous delphi 6(des tables paradox), ces derniéres tables je veux les remplir par certaines tables de l'ancienne base de données.

que dois je faire?????????? :cry: Merci

[laklak]

Merci pour la réponse