EXPORT table access

Version imprimable

EXPORT table access

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:

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;

12/12/2010, 18h11
Andnotor

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

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:

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:

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

Re ; en testant ce code d'exportation
Code:

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 :P

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

Code:

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);

13/12/2010, 15h23
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/

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:

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 :yaisse2:
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 :ccool: