Discussion :

[tomy29]

Bonjour,

Connaissez vous la méthode la plus simple et la plus rapide pour importer un fichier dans une base Access, sachant que les formats de chaque ligne du fichier et de la table sont exactement les même (mm nombre de champs). Le séparateur de champ dans le fichier est ';'.

J'utilise Delphi 7 et ADO.

Merci.

[Rayek]

http://delphi.developpez.com/faq/?pa...hargerCSVTable

[tomy29]

Merci, ca m'a permis d'avancer. Mais un soucis est apparu : l'accès à la base est protégé par mot de passe.
Donc quand j'utilise un Adoconnection classique (sans utiliser de schema.ini)je mets en paramètre le mot de passe et je peux mettre a jour mes données sans problème.

Ici l'adoconnection se fait sur schema.ini, et on ne peut donc pas specifier de mot de passe pour acceder a la base ACCESS. Donc la requete (cf FAQ) :

INSERT INTO [Clients] IN "c:\appli\base\base.mdb" SELECT * FROM NouveauxClients.csv

ne marche pas car je n'ai pas d'autorisation d'acceder a la table Clients.

Avez vous une solution à mon probleme?

Merci!

[Rayek]

Avec mot de passe je ne sais pas si c'est possible.

Sinon vu que tu peux utiliser un Dataset avec cette connexion au fichier CSV, tu peux très facilement faire une moulinette qui parcourt le CSV en réalisant des insertion sur une autre source de données. (Ca sera plus long mais tu n'auras pas le problème de mot de passe.

[tomy29]

Au début je voulais parcourir ligne a ligne le fichier, mais avec un fichier a 100000 lignes je me suis dit que ca prendrait bcp de temps. Donc je voulais voir s'il y avait un moyen plus rapide.

En utilisant le cache ca pourrait accélérer le traitement au lieu de faire une insertion ligne a ligne?

[Rayek]

Voici un code que j'avais fourni il y a quelques temps a quelqu'un qui voulait insérer des données d'un fichier CSV dans un StringGrid

Code delphi :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
var
  lst,lstLigne: TStringList;
  i,j : integer;
  Begintime, endtime,TickPerSec : int64;
begin
 
  if OpenDialog1.Execute then
  begin
    QueryPerformanceCounter(BeginTime);
    lst := TStringList.Create;
    lstLigne := TStringList.Create;
    try
      lst.LoadFromFile(OpenDialog1.FileName);
      ProgressBar1.Max := lst.Count div 255;
      ProgressBar1.Min := 0;
      ProgressBar1.Step := 1;
      StringGrid1.RowCount := lst.Count + 1;
      StringGrid1.ColCount := 1;
      StringGrid1.Rows[0].BeginUpdate;
      for i := 0 to lst.Count -1 do
      begin
        lstLigne.Text := lst.Strings[i];
        lstLigne.Text := StringReplace(lstLigne.text,';',#13#10,[rfReplaceAll]);
        if lstLigne.Count > StringGrid1.ColCount then
          StringGrid1.ColCount := lstLigne.count -1;
        While Trim(lstLigne.Strings[lstLigne.Count-1]) = '' do
          lstLigne.Delete(lstLigne.Count-1);
        for j := 0 to lstLigne.Count -1 do
            StringGrid1.Cells[j,i+1] := lstLigne.Strings[j];
        if not ByteBool(i) then
          ProgressBar1.stepit();// := i * 100 div (lst.count -1);
//        Application.ProcessMessages;
      end;
      StringGrid1.Rows[0].EndUpdate;
 
 
      QueryPerformanceCounter(EndTime);
      QueryPerformanceFrequency(TickPerSec);
      Showmessage(IntToStr(Round((EndTime - BeginTime) / TickPerSec * 1000)));
    finally
      lst.free;
      lstligne.free;
    end;
  end;

Pour 40k enregistrement ca mettais dans les 1 à 2s , il ne te reste plus qu'a transformer l'envoi dans la StringGrid en envoi vers la base de données.