Discussion :

[SergioMaster]

Bonjour,

Comme j'ai eu accès aux CData avec ma version Entreprise, je me suis penché sur la connexion Firedac/Excel. Mes premiers essais, sur un tableau existant sont concluants aussi me suis-je lancé sur une question : est-il possible de créer un tableau Excel directement ?
Selon la doc, créer une nouvelle feuille permet de créer le tableau grâce à la procédure CData.Excel.CreateWorksheet du moins est-ce le cas avec ODBC, toujours dans la doc cette fois il est possible d'utiliser FDStoredProc pour créer les feuilles
Là où cela devient dingue c'est que pour exécuter une procédure stockée il faut se connecter à un tableau donc, je tourne en rond pour créer une nouvelle feuille dans un nouveau tableau je dois d'abord me connecter à un tableau existant c'est quand même dommage !

en gros voilà 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
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
 begin
  Edit1.Text:=Opendialog1.FileName;
  with FDConnection1.Params as TFDPhysCDataExcelConnectionDefParams do begin
    if not FileExists(OpenDialog1.FileName)
      then ExcelFile:='D:\Common Files\test.xlsx'
      else ExcelFile:=OpenDialog1.FileName;
  end;
  try
  FDStoredProc1.ParamByName('file').asString:=OpenDialog1.FileName;
  FDStoredProc1.ParamByName('sheet').asString:='un essai';
  FDStoredProc1.ParamByName('columnnames').asString:='col1,col2,col3';
  FDStoredProc1.ExecProc;
  except
   // gestion d'erreurs (i.e. feuille déjà existante)
  end 
  FDConnection1.Connected:=False;
  with FDConnection1.Params as TFDPhysCDataExcelConnectionDefParams do
      ExcelFile:=OpenDialog1.FileName;
 end;
 FDConnection1.Connected:=True;
 // suite des opérations
end;

une idée pour éviter d'avoir un premier tableau "bidon mais nécessaire" ?

[ALWEBER]

Bonjour,

une idée pour éviter d'avoir un premier tableau "bidon mais nécessaire" ?

Peut être un fichier de ressources

[SergioMaster]

Peut être un fichier de ressources

Intéressant mais je ne crois pas que firedac (TFDConnection) puisse se connecter à un fichier dans une ressource ou un stream, je vais quand même explorer la piste.
En y réfléchissant, effectivement, cela permettrait d'avoir un tableau vide qu'il faudrait ensuite sauvegarder dans le répertoire temporaire afin de pouvoir se connecter dessus, créer la feuille, puis supprimer le fichier temporaire. C'est jouable

[SergioMaster]

En conclusion, après un essai plus poussé, voilà comment j'ai pu créer un tableau (à partir d'un tableau vide en ressource) et une feuille .

En fait une sauvegarde directe de la ressource dans le nouveau fichier serait plus efficace que ce 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
procedure TMainForm.Button1Click(Sender: TObject);
var xlsxModele : String;
    aStream : TResourceStream;
  I: Integer;
begin
if Opendialog1.Execute then
 begin
  Edit1.Text:=Opendialog1.FileName;
  with FDConnection1.Params as TFDPhysCDataExcelConnectionDefParams do begin
    if not FileExists(OpenDialog1.FileName)
      then begin
         xlsxModele:=System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetTempPath,'test.xlsx');
         aStream:=TResourceStream.Create(HInstance,'xlsx',RT_RCDATA);
         aStream.SaveToFile(xlsxModele);
         aStream.Free;
         ExcelFile:=xlsxModele;
      end
      else ExcelFile:=OpenDialog1.FileName;
  end;
  try
  FDStoredProc1.ParamByName('file').asString:=OpenDialog1.FileName;
  FDStoredProc1.ParamByName('sheet').asString:='un essai';
  FDStoredProc1.ParamByName('columnnames').asString:='col1,col2,col3';
  FDStoredProc1.ExecProc;
  except
     on E: EFDDBEngineException do
      ShowMessage(E.Message);
  end;
// NOTE 3 feuilles sont créées  la première avec le nom indiqué, les autres sont nommées Sheet2,Sheet3
 
  FDConnection1.Connected:=False;
  with FDConnection1.Params as TFDPhysCDataExcelConnectionDefParams do
      ExcelFile:=OpenDialog1.FileName;
 end;
 // ajout de données
 FDQuery1.SQL.Text:='INSERT INTO "un essai" (col1,col2,col3) VALUES (:a,:b,:c)';
 for I := 2 to 10 do
   begin
    FDQuery1.ParamByName('a').DataType:=ftInteger;
    Fdquery1.ParamByName('a').asInteger:=i;
    Fdquery1.ParamByName('B').asString:=i.ToString;
    Fdquery1.ParamByName('c').asString:='Test '+i.ToString;
    FDQuery1.ExecSQL;
   end;
 FDConnection1.Connected:=False;   // pour rafraichir
 FDQuery1.SQL.Text:='SELECT * FROM "un essai"';
 FDQuery1.Active:=True;
 
end;

Quelques bémols, malgré le typage des paramètres les cellules créées restent considérées FDQuery1.ParamByName('a').DataType:=ftInteger; FDQuery1.ParamByName('a').asInteger:=i; comme texte dans la feuille crée (valeurs commençant par ')

La documentation est faible sur le sujet, donc en conclusion créer une feuille/tableau de cette façon n'est pas vraiment très efficace.
Perso je ne recommanderai l'utilisation de CDATA.EXCEL que pour des tableaux/feuilles déjà existants