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."
La variable DBPath contient le chemin + le nom de la base de données.
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 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 :
Merci d'avance
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
Partager