Stocker / Extraire des fichiers dans une base Access

**bryan_fury75** · 14/06/2006, 12h53

Voila, je voudrais utiliser une base access pour stocker des fichiers (Word, Excel, Pdf...) et les ressortir quand j'en ai besoin.

J'ai créé sous Access une base dans laquelle j'ai créé 2 champs : 'Objet' qui contient mon fichier et 'Name' qui contient le nom du fichier. Depuis Access, quand j'insère manuellement des fichiers Word dans ma table, ils apparaissent sous forme de "Packages".

Pour extraire un fichier je fais une simple requête :

ADOQuery1.SQL.add(SELECT Table.Objet FROM Table);
ADOQuery1.open;
ADOQuery1.first;
S:=Adoquery1.FieldbyName('Objet').AsString;

...Et je copie la string dans un fichier texte. Mais en fait, à l'exécution, je m'aperçois que le fichier généré n'a pas la bonne structure, il semble contenir "trop" de données...

Une idée ?

**Bejaia-In** · 14/06/2006, 13h55

Quel est le type du champ "Objet" ?
Etant donné que les fichiers à stocker doivent être considéré comme des données brutes, tu doit utiliser le type "Blob".

La table Access doit avoir en plus un champ clé disons autoincrémenté.

**bryan_fury75** · 14/06/2006, 14h04

Comme type, j'ai sélectionné "Objet OLE". Ce qui selon moi correspond effectivement à un BLOB.

Mon problème, c'est justement que dans mon fichier extrait j'ai tout un tas de données correspondent à l'encapsulation OLE (le chemin du fichier, son nom, son appli par défaut...). Et je voudrais pouvoir supprimer ces informations pour récupérer mon fichier initial.

**Rayek** · 14/06/2006, 14h10

Voici une QR qui sera publié à la prochaine fournée qui te permettra de voir comment inclure ou extraire des données d'une base.

[QR] Comment insérer et récupérer un fichier dans un champ de type BLOB ?

Cette QR prendra exemple avec les composants ADO mais elle est fonctionnel avec n'importe quel composant de base de données.

Dans les exemples qui vont suivres, on considèrera que nous travaillons sur la structure de table suivante :

Id : Champ auto incrémenté
Nom : Champ texte/varchar de 100 en taille
Fichier : Champ Blob

A- L'insertion

Il y a 2 méthodes pour insérer des documents (Images ,Documents Texte, programmes, etc ...) dans une base de données :

1- Par chargement

a- Avec une requete

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
 
if OpenDialog.execute then
  With AdoQuery do
  begin
    Close;
    SQL.Clear;
    SQL.add('insert into MaTable(Nom,Fichier)');
    SQL.Add('Values(:PNom,:PFichier)');
    ParamCheck := True;
    Parameters.ParamByName('PNom').Value := ExtractFileName(OpenDialog.Filename);
    Parameters.ParamByName('PFichier').LoadFromFile(OpenDialog.Filename, ftBlob);
  try
    ExecSQL;
  Except on E:Exception do
    begin
      Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
       E.Message);
    end;
  end; 
end;

b- Avec une table

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
 
if OpenDialog.execute then
  With AdoTable do
  begin
     // Met la table en mode insertion de données
     Append; 
    // enregistrement du nom de fichier dans la base de données
    FieldByName('Nom').asString := ExtractFileName(OpenDialog.Filename);
    // Enregistrement du fichier dans la base de données
    (FieldByName('Fichier') as TBlobField).LoadFromFile(OpenDialog.Filename, ftBlob);
  try
     // On ajoute dans la base de données
     Post; 
  Except on E:Exception do
    begin
      // On annule la tentative d'ajout dans la base de données
      Cancel; 
      Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
        E.Message);
    end;
  end; 
end;

2- Par assignation

Cette méthode nécessite que l'on connaisse à l'avance le type de données que l'on va transmettre à la base de données.
Dans les deux exemples qui vont suivre, nous utiliseront des images.

a- Avec une Requete

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
 
var
  Img : TBitmap;
begin
  if OpenDialog.execute then
  try
     img := TBitmap.Create;
     img.LoadFromFile(OpenDialog.FileName);
    With AdoQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into MaTable(Nom,Fichier)');
      SQL.Add('Values(:PNom,:PFichier)');
      ParamCheck := True;
      Parameters.ParamByName('PNom').Value := ExtractFileName(OpenDialog.Filename);
      Parameters.ParamByName('PFichier').Assign(Img);
      try
        ExecSQL;
      Except on E:Exception do
        begin
          Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
          E.Message);
        end;
      end; 
    end;
  finally
    img.free;
  end;
end;

b- Avec une Table

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
 
var
  Img : TBitmap;
begin
  if OpenDialog.execute then
  try
     img := TBitmap.Create;
     img.LoadFromFile(OpenDialog.FileName);
     With AdoTable do
    begin
     // Met la table en mode insertion de données
     Append; 
     // enregistrement du nom de fichier dans la base de données
     FieldByName('Nom').asString := ExtractFileName(OpenDialog.Filename);
     // Enregistrement du fichier dans la base de données
     FieldByName('Fichier').Assign(Img);
     try
       // On ajoute dans la base de données
       Post; 
     Except on E:Exception do
       begin
         // On annule la tentative d'ajout dans la base de données
          Cancel; 
         Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
          E.Message);
       end;
     end; 
   end;
  finally
    img.free;
  end;
end;

B- La récupération

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  sPath : String
begin
  With AdoTable do
  begin
    // Récupération du nom du fichier
    sPath := ExtractFilePath(Application.ExeName) + FieldByName('Nom').AsString;
    // sauvegarde du fichier
    TBlobField(FieldByName('Fichier')).SaveToFile(sPath);
  end;
end;