Discussion :

[altadeos]

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!!

[albedo]

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

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

[altadeos]

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 :

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
       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!!