Importer un fichier CSV dans un clientdataset ?

**mls** · 13/04/2005, 19h40

Bonjour,

J'ai une petite question simple : peut-on "importer/lire" dans un composant (type TClientDataSet) un fichier csv (afin que ce composant puisse lire les champs séparés par des points-virgules) ?
En effet, j'aimerai obtenir le même principe qu'avec un TClientDataSet "lisant" un fichier XML.
Je ne voudrais pas passer par une base de données ou autre (TStringList, ...).

Merci d'avance pour votre aide.

**Frank** · 14/04/2005, 10h19

Bonjour et bienvenue sur le forum !

Je dirais que tu peux importer ton csv dans un champ memo.
Je m'en sers pour importer des csv de plus de 90000 lignes.
Cela me permet de faire des corrections quand cela est nécessaire.

**mls** · 14/04/2005, 12h04

Bonjour,

Merci de votre réponse, mais dans ce cas je récupère mes champs et mes valeurs en écrivant du code alors qu'avec un ClientDataSet, il me semble qu'on peut parcourir facilement les enregistrements d'un fichier XML (next, first, last, ...).

**mls** · 14/04/2005, 12h13

En fait, je veux juste lire le fichier csv (sans le modifier) facilement avec des commandes du type MonClientDataSet.first, MonClientDataSet.next, MonClientDataSet.last... (comme le composant TClientDataSet).

**Philia** · 14/04/2005, 15h57

Tu peux faire ça en lecture seule comme tu le souhaite avec un
TADOConnection via ODBC et un driver texte

Par code ça devrait faire un turc de se genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
TADOConnection.ConnectionString <> 'Provider=MSDASQL.1;' +
      'Persist Security Info=False;' +
      'Extended Properties="DefaultDir=' + LeCheminCompletDeTonCSV + ';' +
      'Driver={Microsoft Text Driver (*.txt; *.csv)};' +
      'DriverId=27;' +
      'Extensions=txt,csv,tab,asc;' +
      'FIL=text;' +
      'FILEDSN=;' +
      'MaxBufferSize=2048;' +
      'MaxScanRows=25;' +
      'PageTimeout=5;' +
      'SafeTransactions=0;' +
      'Threads=3;' +
      'UID=admin;' +
      'UserCommitSync=Yes;"'

apres tu utilise un ADoQuery et un DBGrid pour l'affichage

**mls** · 14/04/2005, 21h59

Merci Philia pour ta réponse.
Je viens de faire le test avec le code que tu m'as donné mais un message d'erreur apparaît à la connexion du composant TADOConnection :

'[Microsoft][Pilote ODBC Texte]'(inconnu)' n'est pas un chemin d'accès valide. Assurer vous que le nom du chemin d'accès est correct et qu'une connexion est établie avec le serveur sur lequel réside le fichier'

Ai-je oublié quelque chose ?

Sinon, est-ce qu'un autre moyen existe que de passer par une connexion ODBC ?