FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses comobj,sysutils;  
  
function AccessDatabaseCreator(_FileName : String) : String; 
var catalog : OLEVariant; 
begin 
  result := ''; 
  try 
    catalog := CreateOleObject('ADOX.Catalog'); 
    catalog.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_Filename+';'); 
    catalog := NULL; 
  except 
    on e : Exception do result := e.message; 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function CompactAccessDB(DB, MdP : string): Boolean; {DB = path complet de la base Access, MdP = password de la DB } 
// Ajouter ComObj dans les Uses 
var 
  v: OLEvariant; 
begin 
  Result := False; 
  try 
    v := CreateOLEObject('JRO.JetEngine'); 
    try 
      if CopyFile(PAnsiChar(DB),PAnsiChar(DB+'.bak'),False) then //backup de la base 
      begin 
        V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+';Jet OLEDB:Database Password='+MdP, 
                          'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'comp'+';Jet OLEDB:Database Password='+MdP); //compactage 
        DeleteFile(DB);// suppression de la base d'origin 
        RenameFile(DB+'comp',DB); // mise en place de la base compactée 
        Result := True; 
      end; 
    finally 
      V := Unassigned; 
    end; 
  except 
    Result := False; 
  end; 
end;

1
2
3
4
5
6
7
const 
   ///Chaîne de connexion ADO à construire avec le nom du répertoire contenant le fichier CSV 
  cstADOCsvConnexion='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="text;HDR=YES;Format=Delimited"'; 
... 
 //Appel 
  
MyADOConnection.ConnectionString :=Format(cstADOCsvConnexion,[ANomFichierCSV]);

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
{*------------------------------------------------------------------------------ 
Crée un fichier Schema.ini pour l'usage sous ADO d'un fichier CSV utilisant un séparateur hors des standard ADO.  
  @param APath: Chemin où créer le fichier Schema.ini, qui doit être celui du fichier .csv et doit être en R/W 
  @param AName: Nom du fichier CSV concerné. Il est utilisé comme nom de section dans le fichier Schema.ini 
  @Param ADelimiteur: Délimiteur utilisé dans le fichier csv, généralement le caractère point virugule ';'. 
------------------------------------------------------------------------------*} 
Procedure CreerSchemaIni(APath, ANameOnly: TFileName; const ADelimiteur: ShortString); 
 { 
[MonFichier.CSV] 
Format = Delimited(;) 
 } 
  
var 
  SchemaIni: TIniFile; 
begin 
try 
  SchemaIni:=Nil; 
  SchemaIni:=TIniFile.Create(IncludeTrailingPathDelimiter(APath)+'Schema.ini'); 
  SchemaIni.WriteString(ANameOnly, 'Format', 'Delimited('+ADelimiteur+')'); 
 finally 
  SchemaIni.Free; 
 end; 
end; 
  
end;

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
procedure TfrmImpExp.ImportDirectCVSToBase(PathFichierCSV, NomFichierCSV:TFileName); 
{ 
Peut renvoyer l'exception EOleException : Type de données incompatible dans l'expression du critère 
Ceci est dû par exemple à un champ contenant une chaîne au lieu d'un integer. 
  
Avec un DataSet l'erreur serait: '52SPP298' n'est pas une valeur entière correcte pour le champ 'IDPAYS' 
} 
const 
     //NomTable NomPath+NomBase NomFichierText(sans le path) 
    Requete='INSERT INTO [%s] IN "%s" SELECT * FROM %s'; 
  
Var NomFichierCSV, 
    PathFichierCSV : TFileName; 
  
begin 
try 
  // Gestion du délimiteur ';' 
  CreerSchemaIni(PathFichierCSV, NomFichierCSV,cstDefautSeparateurChamp);  
  //"Ouvre" le fichier csv 
  MyADOConnection.ConnectionString :=Format(cstADOCsvConnexion,[PathFichierCSV]); 
  // Ajoute les lignes d'un fichier CSV directement dans la table 
  With dmPrincipal do // Avec dmPrincipal= class(TDataModule) 
  begin 
    // TADOConnection 
    ADOCntCSV.Execute(Format(Requete,[NomTable, 
                                     IncludeTrailingPathDelimiter(PathFichierCSV)+ cstNomBase, 
                                     NomFichierCSV])); 
  end; 
finally 
  with dmPrincipal do 
    ADOCntCSV.Close; 
end; 
end;

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

1
2
3
4
5
6
7
cstTxtQryCSV='Select * From %s'; 
... 
CreerSchemaIni(PathFichierCSV, NomFichierCSV,cstDefautSeparateurChamp); 
  
OpenCSV(PathFichierCSV); 
ADODtsCSV.CommandText:=Format(cstTxtQryCSV,[NomFichierCSV]); 
ADODtsCSV.Active := True;

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
{*------------------------------------------------------------------------------ 
Se connecte à la pseudo table basée sur un fichier CSV 
  @param APathCSV   Nom complet du fichier CSV pour un usage avec un DataSet ou le nom du répertoire pour un usage avec SQL 
------------------------------------------------------------------------------*} 
procedure TdmPrincipal.OpenCSV(APathCSV : TFileName); 
// Les champs entourés avec des "" sont filtrés, i.e. débarassés des " 
begin 
    //avec ADOCntCSV : TADOConnection;  
  OpenCntADO(ADOCntCSV,cstADOCsvConnexion,APathCSV); 
end; 
{*------------------------------------------------------------------------------ 
Exécute une connexion ADO. La connexion est fermée avant d'être réouverte avec la nouvelle chaîne de connexion. 
  @param ADOCnt   Connexion ADO concernée 
  @param CntString   Chaîne de connexion ADO 
  @param ANomFichier   Nom du fichier concerné (base Access ou fichier CSV) 
------------------------------------------------------------------------------*} 
procedure TdmPrincipal.OpenCntADO(ADOCnt : TADOConnection;CntString : String; ANomFichier: TFileName); 
begin 
 Assert(ANomFichier <> EMPTY_STRING,'Tentative d''ouverture d''une connexion ADO avec un nom de fichier vide.'); 
 with ADOCnt do 
 begin 
   Close; 
   ConnectionString :=Format(cntString,[ANomFichier]); 
   Open; 
 end; 
end;