Discussion :

[redoran]

Re ; pour exporter les données d'une table access j'ai trouvé ce code mais j'ai pas compris a quoi sert le edit1.text ?
Excel 8.0??????

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var sCopy : string;
begin
  sCopy := 'SELECT * INTO ["Excel 8.0;Database=' +
            Edit1.Text + '"].[SheetAuthors] FROM malades';
 
  AdoQuery1.SQL.Text:=sCopy;
  AdoQuery1.ExecSQL;
 
end;

[Andnotor]

Database=, ça t'inspire quoi sous Excel ?

[redoran]

Bonjour ; database c'est la en français Bdd . j'ai repris l'exemple mais il me généré une erreur que le fichier existe déjà et aucune trace de l'exportation alors j'ai cherché mais j'ai rien trouvé.
le site http://delphi.about.com/od/database/l/aa090903f.htm
je suis aller sur une autre solution qui est la suivante :

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
51
52
53
54
55
procedure Tfexport.SpeedButton1Click(Sender: TObject);
 var Year,Month,Day,an,mois,year1,year2:Word;
vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet : variant;
  i,row,j:integer;
 
     bookmark:Tbookmarkstr;
    table:tdataset;
 
 
begin
dm1.Table1.Open;
if rbexpliste.Checked then
   begin
   expliste.Close; /// requête d'extraction des données
   expliste.Open;
    //créer et rendre visible excel
   table:=expliste;
   ExcelApplication1.Visible[0]:=true;
   excelapplication1.workbooks.add(NULL,0);
   //remplir la première ligne avec les noms des champs
   vMSExcel:=ExcelApplication1.ActiveCell;
 
   for i:=0 to table.Fields.Count-1 do
   begin
   vMSExcel.Value:=table.Fields[i].DisplayLabel;
   vMSExcel:=vMSExcel.Next;
   end;
   vMSExcel.AutoFormat(8,NULL,NULL,NULL,NULL,NULL,NULL);// la j'ai pas compris cette ligne?
 
   //remplir les lignes suivantes avec les enregts.
   table.DisableControls;
   try
    bookmark:=table.Bookmark;
    try
     table.First;
     row:=2;//table.RecordCount+1;
     while not table.Eof do
     begin
       vMSExcel:=ExcelApplication1.Range['A'+inttostr(Row), 'A'+inttostr(Row)];
       for i:=0 to table.Fields.Count-1 do
       begin
         vMSExcel.Value:=table.Fields[i].AsString;
        vMSExcel:=vMSExcel.Next;
       end;
       table.Next;
       Inc(row);
     end;
     finally
      table.Bookmark:=bookmark;
     end;
     finally
      table.EnableControls;
     end;
         exit
    end;

le code marche est le résultat est bon sauf:
après l'ouverture d'excel on voit le défilement des enregistrement un par un ( reste a deviné dans le cas ou l'exportation contient un nombre +- ( au dela 300 enregistrement )!!!
lors l'ouverture d'excel et au moment d'écriture des données sur excel , si je clique dans une cellule l'exportation s'arrête et l'application bug !!!!
je me demande si on peut exporté les données sans l'ouverture d'excel ? j'ai essayé en décalant ce morceau de code al fin de la procedure mais sa na pas marché

Code :

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

1
2
3
4
...........
 ExcelApplication1.Visible[0]:=true;
   excelapplication1.workbooks.add(NULL,0);
..............................................

une idée

[redoran]

Re ; en testant ce code d'exportation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
var sCopy : string;
begin
  sCopy := 'SELECT * INTO ["Excel 8.0;Database=' +
            Edit1.Text + '"].[SheetAuthors] FROM malades';
 // c'est un champ destiné a donné un non au fichier excel resultant de l'exportation 
  AdoQuery1.SQL.Text:=sCopy; // écriture de la requête dans le adoquery
  AdoQuery1.ExecSQL; // exécution de la requête 
 
end;

c'est meilleur que le deuxième code mais il reste a amélioré du coté des mise en forme et le chemin d'exportation .
je suis preneur de cette solution en attendant son amélioration , c'est quelqu'un peut nous aidé sur cette étape merci

[redoran]

voila pour le chemin d'exportation j'ai utilisé ce code apparemment sa marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var sCopy : string;
 
begin
sCopy := 'SELECT * INTO ["Excel 8.0;Database=' +
            'essai1' + '"].[Liste Malades] FROM malades';
 
  AdoQuery1.SQL.Text:=sCopy;
  AdoQuery1.ExecSQL;
 
if savedialog1.Execute then
adoquery1.saveFromFile(savedialog1.FileName);

[philnext]

Pour répondre à ta question 1/ normalement c'est le nom de ton fichier Excel. Sinon j'avais fait un truc pour exporter un table vers Excel qui doit être là :
http://sourceforge.net/projects/axbase/

[redoran]

Bonjours ; @ Phil j'ai installer axbase mais j'ai pas trouver option d'exportation , il fallait que je rentre le répertoire programfile... pour lancer l'application... peut étre que j'ai pas su l'activé en plus il faut installer la JVCL.....!!!!!!
voila j'ai un peut amélioré le code :
crée un chemin pour sauvegarder le fichier ;
utilisé une requéte paramétré ;

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
procedure Tfexport.SpeedButton1Click(Sender: TObject);
 var Year,Month,Day,an,mois,year1,year2:Word;
  y,m:integer;
 
  sCopy : string;
 
begin
......................................................
if (rblistp.Checked) and (savedialog1.Execute )then //rblistp c'est un radiobutton
begin
sCopy := 'select nreg as [N° ],datedec as [Date Déclaration],Nom,Prenom,Age,Sexe,transfert as [Transfert]'
+',evol as [Evolution] INTO ["Excel 8.0;Database=' + savedialog1.FileName + '"].[Liste sujet] FROM tsujets where datedec>=:D and datedec<=:F order by datedec , nreg';
 
  expliste.SQL.Text:=sCopy;
  //ParamCheck := True;  sa ne fonctionne pas je ne c'est pas pourquoi ??????
  expliste.Parameters.ParamByName('D').Value :=datetostr(dt1.Date);// date début
  expliste.Parameters.ParamByName('f').Value :=datetostr(dt2.Date); // date fin
 
  expliste.ExecSQL;
  expliste.SQL.Text:=''; /// vider le adoquery
  expliste.Close;
  fexport.Close;  // fermer la form
exit;
end;

voila ca répond a mes besoins , sachant que le code d'origine est celui du lien cité ci
le code marche impeccablement " transfert des données sans ouvrir le fichier excel ni voire le défilement un grand barvo pour le propriétaire.
je suis ouvert a toute autre proposition ou une amélioration du code