dbgrid copier/collerRésolu

Question

Bonjour a tous, 

Voila mon PB, je recupere le resultat d'un ADOQuery dans un DBGrid. 
Jusque l&#224;, pas de PB. 
Ensuite, je voudrai copier le contenu de ce DBGrid dans le presse papier, et le coller dans un tableur, qui ne sera pas forcement Excel. 
Et mon PB est la  , quelqu'un a-t-il un exemple de code pour cette opration? 

Par exemple, vous ouvrez une table dans Access, vous cliquez sur la case en haut a gauche, toute la grille est selectionn&#233;e, vous faites un clic droit, "copier", et vous collez dans un tableur. 
Je souhaite faire la meme chose, ou quelque chose d'&#233;quivalent, mais surtout tres simple pour l'utilisateur.  

D'avance merci pour tous ceux qui pourront m'aider. 

Reynald.

roud59 · Accepted Answer

Bonjour Reynaldd

Voici ce que j'ai d&#233;ja fait il y a qq mois.
Ca se colle bien dans excel, access je ne sais pas.

procedure TForm1.btCopieTableClick(Sender: TObject);
var
  i : integer;
  S : string;
  Strings : TStringList;
begin
  Strings := TStringList.Create;
  try
    with DBGrid1, Dataset as TTable do begin
      DisableControls;
      First;
      for i := 0 to Columns.Count-1 do
        S := S + Columns[i].Field.FieldName + #9;
      Strings.Add(S);
      while not EOF do begin
        S := '';
        for i := 0 to Columns.Count-1 do
          S := S + Columns[i].Field.AsString + #9; // #9 est le caract&#232;re de tabulation
        SetLength(S, Length(S)-1);
        Strings.Add(S);
        Next;
      end;
    end;
   Clipboard.AsText := Strings.Text;
  finally
    EnableControls;
    Strings.Free;
  end;
end;

A adapter selon tes besoins.
J'&#233;sp&#232;re t'avoir aid&#233;. Bonne prog

Roud59

Reynaldd · Answer

Merci !

C'est Genial, c'est exactement ce qui me fallait !

 Reynald.

Dbgrid copier/coller

2 réponses

Votre réponse

Discussions similaires