1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| procedure TfrmMain.ImportDirectCVSToBase(PathFichierCSV, NomFichierCSV:TFileName);
const
Requete='INSERT INTO [%s] IN "%s" SELECT * FROM %s';
begin
try
//Gestion du délimiteur ';'
CreerSchemaIni(PathFichierCSV, NomFichierCSV,';');
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+PathFichierCSV+';Extended Properties="text;HDR=YES;Format=Delimited"';
ADOConnection1.Execute(Format(Requete,['Q_Zmir0678',DBPath,NomFichierCSV]));
Except
on E:Exception do
begin
showmessage(E.Message);
end;
end;
end; |
