Importer un fichier CSV dans une table Access

**zemeilleurofgreg** · 09/07/2008, 12h17

Bonjour à tous,

j'ai déja posé cette question dans un sujet résolu mais ...

pourriez-vous jeter un petit coup d'oeil à ce code qui me parait correct mais me retourne pourtant le message : "CSVFile.csv n'est pas un chemin valide. Assurez-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."

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
17
18
19
20
21
22
procedure TfrmMain.ImportDirectCVSToBase(PathFichierCSV, NomFichierCSV:TFileName);
const
Requete='INSERT INTO [%s] IN "%s" SELECT * FROM %s';
var
cstADOCsvConnexion:string;
begin
  try
  CreerSchemaIni(PathFichierCSV, NomFichierCSV,';');
  cstADOCsvConnexion:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"';
 
  ADOcsv.ConnectionString :=Format(cntString,[NomFichierCSV]);       
 
  ADOcsv.Execute(Format(Requete,['Q_Zmir0678',
                                     IncludeTrailingPathDelimiter(DBPath),
                                     NomFichierCSV]));
  except
  on E:Exception do
  begin
    showmessage(E.Message);
  end;
  end;
end;

La variable DBPath contient le chemin + le nom de la base de données.
La variable NomFichierCSV contient le nom du fichier CSV : à savoir "CSVFile.csv"
La variable PathFichierCSV contient le chemin du répertoire ou se trouve le fichier csv (sans le nom de fichier).

ADOcsv est un objet TADOConnection

voici la requête résultant du ADOcsv.Execute :

Code :

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

INSERT INTO [Q_Zmir0678] IN "D:\Applications\Borland\Delphi7\Projects\DRP BDC\DATA\DRP Prologs OUT 17_11_2006.mdb\" SELECT * FROM CSVFile.csv

Merci d'avance

**Cl@udius** · 09/07/2008, 12h24

Salut

Code :

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

1
2
3
ADOcsv.Execute(Format(Requete,['Q_Zmir0678',
                                     IncludeTrailingPathDelimiter(DBPath),
                                     NomFichierCSV]));

La variable DBPath contient le chemin + le nom de la base de données.

Pourquoi faire un IncludeTrailingPathDelimiter sur DBPath ?

Tu dois te retrouver un anti-slash parasite à la fin.

@+ Claudius

**zemeilleurofgreg** · 09/07/2008, 12h35

Pourquoi faire un IncludeTrailingPathDelimiter sur DBPath ?

j'ai trouvé ce code tel quel dans un autre poste !

j'ai essayé sans le IncludeTrailingPathDelimiter mais ça ne change rien

**Cl@udius** · 09/07/2008, 13h16

Re,

Autres remarques:

il n'y aurait-il pas une confusion en cstADOCsvConnexion et cntString ?
Tu n'utilises pas PathFichierCSV dans la chaine de connexion ?

**zemeilleurofgreg** · 09/07/2008, 13h42

il n'y aurait-il pas une confusion en cstADOCsvConnexion et cntString ?

oups

, erreur de retranscription !

Code :

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

ADOcsv.ConnectionString :=Format(cstADOCsvConnexion,[NomFichierCSV]);

je n'ai pas delphi devant moi mais je crois que c'est correct dans mon code !

Tu n'utilises pas PathFichierCSV dans la chaine de connexion ?

Code :

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

cstADOCsvConnexion:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"';

euhhhh ??? tu me fais hésiter !!

**Cl@udius** · 09/07/2008, 13h48

Envoyé par zemeilleurofgreg

euhhhh ??? tu me fais hésiter !!

Data Source=%s

et

Code :

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

ADOcsv.ConnectionString :=Format(cstADOCsvConnexion,[NomFichierCSV]);

Je pense qu'il est nécessaire de préciser un chemin d'accès complet vers le csv.
Effectue ce test et tiens nous au courant.

@+ Claudius

**Pedro** · 09/07/2008, 13h52

Envoyé par Cl@udius

Salut
Pourquoi faire un IncludeTrailingPathDelimiter sur DBPath ?

Tu dois te retrouver un anti-slash parasite à la fin.

Justement, l'intérêt de IncludeTrailingPathDelimiter, outre son nom horriblement long, est d'ajouter l'antislash que s'il n'y est pas

mes 2cts

**Cl@udius** · 09/07/2008, 14h04

Envoyé par Pedro

Justement, l'intérêt de IncludeTrailingPathDelimiter, outre son nom horriblement long, est d'ajouter l'antislash que s'il n'y est pas

mes 2cts

Entièrement d'accord avec toi Pedro.

, mais...

Envoyé par zemeilleurofgreg

La variable DBPath contient le chemin + le nom de la base de données.

... dans la mesure où DBPath contient également le .mdb je n'en vois pas l'intérêt, au contraire même.

@+

**Rayek** · 09/07/2008, 14h34

Envoyé par zemeilleurofgreg

La variable DBPath contient le chemin + le nom de la base de données.

Envoyé par Cl@udius

Pourquoi faire un IncludeTrailingPathDelimiter sur DBPath ?

Cl@udius à raison sur ce point, si on a DBPath = c:\toto.mdb alors on se retrouvera avec IncludeTraillingPathDelimiter(DbPath) = c:\toto.mdb\
Le problème doit surement venir de la (sauf si faute de recopiage :p)

Le mieux pour savoir et de faire un ShowMessage(DBPath) avant et après l'appel.

**zemeilleurofgreg** · 09/07/2008, 14h56

Le mieux pour savoir et de faire un ShowMessage(DBPath) avant et après l'appel.

j'ai déja fais le test et il me retourne effectivement un antislash après toto.mdb !

mais le problème ne vient pas de là car j'ai essayé sans le IncludeTrailingPathDelimiter (c'est vrai qu'il est long ce truc

) ==> merci le CTRL+C / CTRL+V!!

**Cl@udius** · 09/07/2008, 15h01

Envoyé par zemeilleurofgreg

...mais me retourne pourtant le message : "CSVFile.csv n'est pas un chemin valide. Assurez-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."

Envoyé par Cl@udius

Je pense qu'il est nécessaire de préciser un chemin d'accès complet vers le csv.

As-tu essayé d'inclure le path dans la chaîne de connexion ?

**zemeilleurofgreg** · 09/07/2008, 15h18

As-tu essayé d'inclure le path dans la chaîne de connexion ?

non, là ou je suis je n'ai pas delphi à ma disposition !

dés que je rentre, je teste ça !

**zemeilleurofgreg** · 09/07/2008, 15h20

As-tu essayé d'inclure le path dans la chaîne de connexion ?

tu parles du path du fichier csv ?

**Cl@udius** · 09/07/2008, 15h22

Oui c'est ça.

**zemeilleurofgreg** · 09/07/2008, 19h13

As-tu essayé d'inclure le path dans la chaîne de connexion ?

voila, j'ai essayé d'inclure le chemin du fichier csv mais sans résultat (toujours ce message d'erreur) !

voici mon code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Procedure TfrmMain.CreerSchemaIni(APath, ANameOnly: TFileName; const ADelimiteur: ShortString);
var
SchemaIni: TIniFile;
begin
    SchemaIni:=Nil;
  try
    SchemaIni:=TIniFile.Create(IncludeTrailingPathDelimiter(APath)+'Schema.ini');
    SchemaIni.WriteString(ANameOnly, 'Format', 'Delimited('+ADelimiteur+')');
  finally
    SchemaIni.Free;
  end;
end;
 
 
procedure TfrmMain.ImportDirectCVSToBase(PathFichierCSV, NomFichierCSV:TFileName);
const
Requete='INSERT INTO [%s] IN "%s" SELECT * FROM %s';
begin
  try
  CreerSchemaIni(PathFichierCSV, NomFichierCSV,';');
 
  cstADOCsvConnexion:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"';
 
  ADOcsv.ConnectionString:=Format(cstADOCsvConnexion,[NomFichierCSV]);
 BDC\DATA\OUTPUT\CSVFile.csv;Extended Properties="text;HDR=YES;Format=Delimited"';
 
  ADOcsv.Execute(Format(Requete,['Q_Zmir0678',DBPath,NomFichierCSV]));
 
  except
  on E:Exception do
  begin
    showmessage(E.Message);
  end;
  end;
end;

il faut savoir que le fichier Schema.Ini doit impérativement se trouver dans le même répertoire que le fichier csv.

Et voici l'appel de la fonction :

Code :

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

ImportDirectCVSToBase(aFileName, 'CSVFile.csv');

aFileName contient le chemin du répertoire ou se trouve le csv !

Mes chemins et noms de fichiers ont l'air d'être corrects ! je comprend pas

**zemeilleurofgreg** · 09/07/2008, 19h42

Bon !! il y a du progrès

j'ai remplacé cela :

Code :

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

cstADOCsvConnexion:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"';

par ceci :

Code :

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

ADOcsv.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+PathFichierCSV+';Extended Properties="text;HDR=YES;Format=Delimited"';

Tout a l'air de se passer normalement sauf que lorsque je vais voir dans ma table elle est toujours aussi vide

**zemeilleurofgreg** · 09/07/2008, 19h56

chose étrange c'est que lorsque je copie ma requete dans un TADOQuery ça fonctionne très bien.

c'est donc

Code :

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

ADOcsv.Execute(Format(Requete,['Q_Zmir0678',DBPath,NomFichierCSV]));

qui déconne

**zemeilleurofgreg** · 09/07/2008, 22h48

Rectification, ça fonctionne !

Un grand merci à tous :king

@+

Importer un fichier CSV dans une table Access

Bases de données Delphi

Discussions similaires

Partager

Partager