Exporter des données vers Excel

Bonjour à tous

J'ai une base de données sur Interbase et l'interface que j'ai utilisé est Delphi 7. j'aimerai créer un boutton qui me permettra d'exporter les données de ma table vers Excel. Ya t-il quelqu'un qui peux m'aider?

Exporter ?

directement au fomat .xls ou
au fomat .csv ?

cantador

Bonjour ;-)

Je t'invite de voir a source déposée sur le site: http://www.delphifr.com/codes/GESTIONNAIRE-SOUCHOTHEQUE_44958.aspx

Bon courage et bonne programmation.

haftari.fouad

Ton export est disons "inspiré" de la source de JodeQa, ce qui n'enlève rien à ton travail effectué sur ton gestionnaire HAFTARIFOUAD.
Mais, c'est bien aussi de citer les auteurs..   

cantador

je veux les exporter directement au fomat .xls

Merci de m'aider.

cantador

Lors d'un export, il faut s'assurer que le fichier pourra être lu par le plus grand nombre et resté compatible avec les outils du moment (Excel, OpenOffice, etc..)
Dans cette optique, le format .csv est idéal.
Le fichier est petit et rapidement constitué.
Si tu le souhaites je te passerai des liens pour le code.

cantador

salut cher contador, je suis interesse par la maniere de faire cet export au format csv, je compte sur votre bonne comprehension

@:ibrahimakhalil :

Bonjour,

procedure TFom1.DatasetToTextFile(ds: TDataSet; nomFichier: string;
  separateur: string = ';'; delimiteur: char = #0);
var
  i: integer;
  fichier: TextFile;
  bm: TBookmark;
  sCursor: TCursor;
  valeur: string;
  openDS: boolean;

begin
  try
    { Création du fichier de sortie }
    AssignFile(fichier, nomFichier);
    Rewrite(fichier);
  except
    on e: exception do
      raise Exception.Create('Erreur pendant la création du fichier [' + nomfichier + '] : ' +
        sLineBreak + e.message);
  end;

  sCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  try
    ds.DisableControls;
    openDS := not ds.Active;
    bm := nil;
    try
      with ds do
      begin
        if openDS then
          Open
        else
        begin
          bm := ds.GetBookmark;
          First;
        end;
        for i := 0 to FieldCount - 1 do
        begin
          if (i > 0) then
            write(fichier, separateur + ds.Fields[i].FieldName)
          else
            write(fichier, ds.Fields[i].FieldName);
        end;
        writeln(fichier);
        while not Eof do
        begin
          for i := 0 to FieldCount - 1 do
          begin
            { ajout du délimiteur si le champ est de type texte }

            if (delimiteur <> #0) and
              (Fields[i].DataType in [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString]) then

              valeur := AnsiQuotedStr(Fields[i].AsString, delimiteur)

            else
              valeur := Fields[i].Text;

//            if (Fields[i].DataType = ftMemo) or (Fields[i].DataType = ftFmtMemo) then
//              valeur := Fields[i].AsString;

            { à partir du second champ, on ajoute le séparateur }
            if (i > 0) then
              write(fichier, separateur + valeur)
            else
              write(fichier, valeur)
          end;
          writeln(fichier);
          Next;
        end;
      end;
    finally
      if openDS then
        ds.Close
      else
      begin
        ds.GotoBookmark(bm);
        ds.FreeBookmark(bm);
      end;
      ds.EnableControls;
      CloseFile(fichier);
    end;
  finally
    Screen.Cursor := sCursor;
  end;
end;

cantador

@Nix :

Bonjour,

A quand la balise de code ?

cantador