comment copier le contenu d'un dbgrid dans un richedit?

Version imprimable

21/04/2006, 10h11
altadeos

comment copier le contenu d'un dbgrid dans un richedit?

Bonjour tout le monde!!

Je suis actuellement en train de m'occuper d'une fonction d'impression dans mon projet de bts et je voudrais savoir comment copier le contenu d'un dbgrid dans un richedit et de plus je voudrais mettre le titre des colonnes au dessus.

Si une ame charitable pouvait me venir en aide je lui serais très reconnaissant ;)

Merci d'avance et bonne continuation!! ;) :P

Perso j'ai utilisé ça pour faire un export vers un fichier txt de ma DBGrid, en esperant que ça puisse t'aider un peu, attention j'exporte le résultat d'une requete sql tapée dans un memo (et je débute en c++ :oops: )

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
 
   TStringList *S;
   TSaveDialog *dlgS;
 
   AnsiString chaine;
 
   S = new TStringList;
 
   try
   {
      ADOQuery->SQL  = Memo->Lines;
      ADOQuery->Open();
      ADOQuery->First();
 
      chaine = "";
      for (int i = 0; i < ADOQuery->FieldCount - 1; i++)
      {
         chaine = chaine + ADOQuery->Fields->Fields[i]->FieldName + ";";
      }
      S->Add(chaine);
 
      while (!ADOQuery->Eof)
      {
         chaine = "";
         for (int i = 0; i < ADOQuery->FieldCount - 1; i++)
         {
            chaine = chaine + ADOQuery->Fields->Fields[i]->AsString + ";";
         }
         S->Add(chaine);
         ADOQuery->Next();
      }
 
      dlgS = new TSaveDialog(Form1);
      dlgS->DefaultExt = "txt";
      dlgS->Filter = "Fichiers export (*.txt)|*.txt|All Files";
      dlgS->Options.Clear();
       if( dlgS->Execute() == True )
       {
         try
         {
            S->SaveToFile(dlgS->FileName);
         }
         catch (...) { }
      }
      delete dlgS;
   }
   catch (...) {}
   delete S;

Merci pour ton aide Albedo j'ai réussi ce que je voulais!!

Voici mon code pour permettre à tout le monde de réussir à imprimer une requète :P :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
       AnsiString Temp="";
        FicheImpression->Show();
        FicheImpression->RichEdit->Lines->SetText("COMPTE RENDU DES ALERTES:");
        FicheImpression->RichEdit->Lines->Add("");
        FicheImpression->RichEdit->Lines->Add("Format des alertes : N° client | Date | Heure | Type d'incident | Zone");
        FicheImpression->RichEdit->Lines->Add("");
 
        ModuleDonnee->ADOQueryErreur->Close();
        ModuleDonnee->ADOQueryErreur->SQL->Clear();
        ModuleDonnee->ADOQueryErreur->SQL->Add("SELECT * FROM erreur");
        ModuleDonnee->ADOQueryErreur->ExecSQL();
        ModuleDonnee->ADOQueryErreur->Open();
 
        while(!ModuleDonnee->ADOQueryErreur->Eof)
        {
                Temp = "";
                for (int i = 0; i < ModuleDonnee->ADOQueryErreur->FieldCount; i++)
                {
                        Temp = Temp + ModuleDonnee->ADOQueryErreur->Fields->Fields[i]->AsString + " | ";
                }
                FicheImpression->RichEdit->Lines->Add(Temp);
                ModuleDonnee->ADOQueryErreur->Next();
        }

Bonne continuation!!